Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Funciones con array

12/12/2006 - 15:41 por TST | Informe spam
Ayuda Hacer una pregunta
Hola a todos,
tengo un problema al trabajar con Arrays

Quiero almacenar en un array todos los valores de una columna q estoy
leyendo.
Antes de inserir un valor quiero comprobar q no existe ya en el arry.

Algo del tipo:

If (valore) Not In MyArray
MyArray.AddElement(valore)

Pero en VB!!!!

Alguien me puede ayudar?

Y una pregunta, es mejor (mas facil/mas funciones) trabajar con Array,
con Variant, con collection??????

Gracias por adelantado!!!!!!!!!

TST.
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Ivan
12/12/2006 - 18:04 | Informe spam
hola TST, podrias hacer algo parecido a esto

suponiendo por ej, que la hoja se llama "Hoja1" y los datos a cargar
estan en la columna 'a'

sub cargarArray()
dim celda as range, x as long, yaEsta as boolean
If CBool(Not Not MyMatriz) = False then redim MyMatriz(0)
with worksheets("Hoja1")
for each celda in .range("a1:a" & .[a65536].end(xlup).row)
yaEsta=false
for x = 1 to ubound(MyMatriz)
if MyMatriz(x)=celda then
yaEsta=true: exit for
end if
next
if yaEsta = false then
redim preserve MyMatriz(ubound(MyMatriz)+1)
MyMatriz(ubound(MyMatriz)=celda
end if
next
end with
end sub

no estoy del todo seguro, pero creo que funcionaria.

espero que te sirva
un saludo y hasta pronto

Ivan

Preguntas similares

 

Busqueda sugerida :