Fóruns
Microsoft Excel - 2...
Formulários
Função Para Contar ...
 
Notifications
Clear all

Função Para Contar Com Critérios Em Uma ListView

 
Formulários
Post Recente por xlarruda 6 anos atrás
4 Posts
2 Usuários
0 Reactions
1,343 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal,
Em uma ListView, quero contar os registros com o critério "FIXO" na coluna (4).
A função abaixo põe na Label30 o Total dos Registros (quero apenas os FIXO).

Sub ContarFeriados()
Dim ContaFIXO As String
Dim I
For I = 1 To ListView1.ListItems.Count
     If ListView1.ListItems.Item(I).SubItems(4) = "FIXO" Then
        ContaFIXO = ListView1.ListItems.Count
     End If
Label30.Caption = ContaFIXO         
Next I
End Sub

Grato,
Pedro

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/10/2018 12:39 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 
Sub ContarFeriados()
Dim ContaFIXO As Long
Dim I As Long

For I = 1 To ListView1.ListItems.Count
   If  ListView1.ListItems(I).ListSubItems(4).Text= "FIXO" Then
       ContaFIXO = ContaFIXO +1
   End If
Next I

Label30.Caption = ContaFIXO 


End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 01/10/2018 12:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

xlarruda

Obrigado, Amigo!
Obs: Como a coluna é a 5, o certo é: If ListView1.ListItems(I).ListSubItems(4).Text= "FIXO" Then
Valeu!!!!!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/10/2018 1:31 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Obrigado! me confundi aqui..

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 01/10/2018 2:32 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico