por ejemplo si tengo
A-B-C-D-A-B
me tendria que contar 4 solamente: A, B, C y D, porque los otros dos estan repetidos y no cuentan
¿¿como puedo hacer??
desde ya muchas gracias, chau
05-may-2006, 21:01
|
#1 (permalink) |
 Fecha de Ingreso: agosto-2005
Mensajes: 19
|
Contar items de un listbox
por ejemplo si tengo A-B-C-D-A-B me tendria que contar 4 solamente: A, B, C y D, porque los otros dos estan repetidos y no cuentan ¿¿como puedo hacer?? desde ya muchas gracias, chau |
|
|
|
07-may-2006, 22:00
|
#3 (permalink) |
 
Fecha de Ingreso: abril-2004
Ubicación: 62º 06' 18" O / 33º 07' 47" S
Mensajes: 331
|
No se, se me ocurre, puede que haya otras formas mas fáciles:
Código:
Espero que no sea tarde y que te sirva Dim elemento() As String
Dim i As Long
Dim e As Long
Dim YaEsta As Boolean
Dim ElementosSinRepetir As Long
ReDim elemento(0)
elemento(UBound(elemento)) = List1.List(i)
For i = 1 To List1.ListCount - 1
YaEsta = False
For e = 0 To UBound(elemento)
If elemento(e) = List1.List(i) Then
YaEsta = True
Exit For
End If
Next
If YaEsta = False Then
ReDim Preserve elemento(UBound(elemento) + 1)
elemento(UBound(elemento)) = List1.List(i)
End If
Next
ElementosSinRepetir = UBound(elemento) + 1
MsgBox ElementosSinRepetir
Un saludo
__________________
Marcos El dinero no da la felicidad... démelo y sea feliz!!! |
|
|
|
Mode Lineal
La Zona horaria es GMT -6. Ahora son las 17:43.
