Vector como variable

Hola Luis,

Prueba el siguiente código. Ten en cuenta que, salvo que indiques otra cosa
(Option Base 1), visual basic empieza los vectores/matrices desde el 0
(predeterminado).

Sub test()
Dim v(0 To 3) As Boolean
v(0) = False
v(1) = True
v(2) = False
v(3) = True
Parametros v
End Sub

Sub Parametros(a() As Boolean)
Dim i As Long
For i = 0 To 3
Range("A" & i + 1) = a(i)
Next i
End Sub



"Luis" escribió
Qué tal foro! Necesito de su ayuda urgente... necesito saber cómo
declarar y utilizar un vector como una variable dentro de una
subrutina.

Se trata de un vector con 4 valores booleanos, algo así como:

Sub XYZ (A as string, B as double, vector(w as boolean, x as boolean,
y as boolean ,z as boolean))

Luego dentro de la subrutina quisiera poder utilizar cada uno de los
elementos del vector para asignarlos a varias celdas, algo así como:

hoja1.cells(2,1)=vector(1)
hoja1.cells(2,2)=vector(2)
hoja1.cells(2,3)=vector(3)
hoja1.cells(2,4)=vector(4)

Espero que hayan podido entenderme.. Muchas Gracias!!!

Saludos!

hola, chicos !

otra alternativa pudiera ser +/- como la siguiente:

Sub Vectores_a_Rango()
Dim Vectores
Vectores = Array(True, False, True, False)
Hoja1.Range("a2").Resize(, UBound(Vectores) + 1) = Vectores
End Sub

saludos,
hector.

Juan M escribio en el mensaje ...
Prueba el siguiente codigo. Ten en cuenta que, salvo que indiques otra cosa (Option Base 1)
visual basic empieza los vectores/matrices desde el 0 (predeterminado).

Sub test()
Dim v(0 To 3) As Boolean
v(0) = False
v(1) = True
v(2) = False
v(3) = True
Parametros v
End Sub

Sub Parametros(a() As Boolean)
Dim i As Long
For i = 0 To 3
Range("A" & i + 1) = a(i)
Next i
End Sub

Luis escribio en el mensaje ...
... como declarar y utilizar un vector como una variable dentro de una subrutina.
Se trata de un vector con 4 valores booleanos, algo asi como:
Sub XYZ (A as string, B as double, vector(w as boolean, x as boolean, y as boolean, z as boolean))
Luego dentro de la subrutina quisiera poder utilizar cada uno de los elementos del vector
para asignarlos a varias celdas, algo asi como:
hoja1.cells(2,1)=vector(1)
hoja1.cells(2,2)=vector(2)
hoja1.cells(2,3)=vector(3)
hoja1.cells(2,4)=vector(4)

Espero que hayan podido entenderme...