Arrays Dinámicos
Lo emplearemos Cuando el numero de elementos para una dimensión del array no sean las mismas.
Dim ArrayDinamic() 'dejamos vacios los parentesis
Sub recontar_items
ReDim Array(a) 'para asignar el espacio al array
Array(a) =34 *pero ojo que los valores no se mantendran
'si deseamos conservar los valores emplaremos
redim preserve nombrearray(numero)=valor
Redim preserve Array(a)=34 'conservamos los valores
End sub
La sentencia ReDim permite cambiar el número de elementos del array, no el número de dimensiones.
Por ejemplo, si declaramos el array_A a nivel de un módulo.
Private Array_A() as Integer
Para asignarle espacio al array utilizamos:
ReDim Array_A(5)
Cada vez que se ejecuta la sentencia ReDim, todos los valores almacenados en el array se pierden. Cuando le interese cambiar el tamaño del array conservando los valores del array,
use ReDim con la palabra clave Preserve.
Por ejemplo
ReDim Preserve Array_A(8)
