Arrays

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)