vectores anidados
Publicado por jorge (67 intervenciones) el 20/03/2007 20:09:55
hola, estoy intentando almacenar matrices dentro de otro vector, este es mi código:
ReDim subestacion(Range("D3").Value)
ReDim Validar(validar_cuadro, 2)
For cuadro_acutal = 1 To Range("D3").Value
For i = 1 To validar_cuadro
Validar(i, 1) = ActiveCell.Offset(i - 1, 0).Value
Validar(i, 2) = ActiveCell.Offset(i - 1, 1).Value
Next
subestacion(cuadro_acutal) = Validar
Next
Range("D3").Value (valor entero positivo, por ej 3)
validar_cuadro (2 posibilidades, 7 ó 6)
los arrays los he declarado como variant, puesto que en una de las columnas copiadas aparecen siempre valores numéricos (cantidades), y en la otra texto (referencias)
y la pregunta es...
cómo puedo acceder a los valores almacenados en estos arrays?? (suponiendo que hasta ahora el código sea correcto)
lo que pretendo es almacenar cada matriz validar en una posición del vector subestación, una vez conseguido esto, como consulto por ej. la posición validar(2, 2) ubicada en subestacion(3)
ReDim subestacion(Range("D3").Value)
ReDim Validar(validar_cuadro, 2)
For cuadro_acutal = 1 To Range("D3").Value
For i = 1 To validar_cuadro
Validar(i, 1) = ActiveCell.Offset(i - 1, 0).Value
Validar(i, 2) = ActiveCell.Offset(i - 1, 1).Value
Next
subestacion(cuadro_acutal) = Validar
Next
Range("D3").Value (valor entero positivo, por ej 3)
validar_cuadro (2 posibilidades, 7 ó 6)
los arrays los he declarado como variant, puesto que en una de las columnas copiadas aparecen siempre valores numéricos (cantidades), y en la otra texto (referencias)
y la pregunta es...
cómo puedo acceder a los valores almacenados en estos arrays?? (suponiendo que hasta ahora el código sea correcto)
lo que pretendo es almacenar cada matriz validar en una posición del vector subestación, una vez conseguido esto, como consulto por ej. la posición validar(2, 2) ubicada en subestacion(3)
Valora esta pregunta


0