Notifications
Clear all

Contar Nomes na List

4 Posts
3 Usuários
0 Reactions
1,057 Visualizações
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Pessoal, Boa noite!

Tenha uma listView onde tem uma coluna de nomes
Então tem:
João
Pedro
Maria
João
Romeu
Maria
Coloca-se o nome conforme necessidade
O que preciso seria ao fazer um filtro o comanda ir somar quantos nomes tem em toda a listview
Exemplo dos nome acima: quantidade de 4 nomes, sendo que joão e Maria estão duplicado

Atenciosamente,
Isabella

 
Postado : 15/06/2018 4:18 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Isabella,

Boa noite!

Anexe seu arquivo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 15/06/2018 5:06 pm
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Bom dia!
Estou com um pequeno problema, tive que formatar meu computador...

Andei pesquisando, só não tive a oportunidade de testar ainda, mas vi que tem um código com distinct ou goup by
se alguém puder me ajudar, assim que tiver meu computador ok, quero testar...

Tenha uma listView onde tem uma coluna de nomes
Então tem:
João
Pedro
Maria
João
Romeu
Maria
Coloca-se o nome conforme necessidade
O que preciso seria ao fazer um filtro o comanda ir somar quantos nomes tem em toda a listview
Exemplo dos nome acima: quantidade de 4 nomes, sendo que joão e Maria estão duplicado

Atenciosamente,
Isabella.

 
Postado : 17/06/2018 7:54 am
(@klarc28)
Posts: 971
Prominent Member
 

Fiz o código para listbox.
Para listview, basta substituir list por listitems e listcount por listitems.count

Option Explicit



Private Sub ListBox1_Change()

Dim qtd As Long
Dim i As Long
Dim j As Long
qtd = 0
 For j = 0 To Me.ListBox1.ListCount - 2
 For i = j + 1 To Me.ListBox1.ListCount - 1

If Me.ListBox1.List(j) <> Me.ListBox1.List(i) Then
qtd = qtd + 1
Exit For
End If
 
 Next i
Next j

Me.TextBox1.Text = qtd
End Sub



Private Sub UserForm_Initialize()
Me.ListBox1.AddItem ("Maria")
Me.ListBox1.AddItem ("Maria")
Me.ListBox1.AddItem ("João")
Me.ListBox1.AddItem ("João")

End Sub
 
Postado : 17/06/2018 8:36 am