Foros del web, para los que viven de bits

davidtorrejon · 04-jul-2006, 04:34

Hola a tod@s, mi cuestion es facil de plantear: Necesito usar arrays en una hoja de calculo con VBA. ¿Cual es la propiedad que te indica el numero de elementos del array?. Ya probe con cosas como array.length y array.len, pero me da error. ¿Alguien puede ayudarme?. Gracias, Chao

3pies · 04-jul-2006, 05:01

Suponiendo este array de 10 elementos:

Código:

mi_array = Array("A", "B", "C", "D", "e", "F", "G", "H", "I", "J")

Para saber cuantos elementos hay, te basta con llamar a UBound y sumarle 1, pues los elementos del vector empiezan a contar desde 0 (en el ejemplo: 0,1,2,3,4,5,6,7,8,9).

Por tanto:

Código:

Range("A1") = UBound(mi_array) + 1

Te devuelve en la celda A1, el dato que buscas, en este caso: 10

En este otro caso:

Código:

Range("A2") = mi_array(0)

Te devolvería como resultado en A2: A

Salu2

04-jul-2006, 04:34	#1 (permalink)
davidtorrejon Fecha de Ingreso: marzo-2005 Mensajes: 82	Arrays en Excel VBA Hola a tod@s, mi cuestion es facil de plantear: Necesito usar arrays en una hoja de calculo con VBA. ¿Cual es la propiedad que te indica el numero de elementos del array?. Ya probe con cosas como array.length y array.len, pero me da error. ¿Alguien puede ayudarme?. Gracias, Chao

04-jul-2006, 05:01	#2 (permalink)
3pies Colaborador Fecha de Ingreso: diciembre-2003 Ubicación: Desde una destilería Mensajes: 1.855	Suponiendo este array de 10 elementos: Código: mi_array = Array("A", "B", "C", "D", "e", "F", "G", "H", "I", "J") Para saber cuantos elementos hay, te basta con llamar a UBound y sumarle 1, pues los elementos del vector empiezan a contar desde 0 (en el ejemplo: 0,1,2,3,4,5,6,7,8,9). Por tanto: Código: Range("A1") = UBound(mi_array) + 1 Te devuelve en la celda A1, el dato que buscas, en este caso: 10 En este otro caso: Código: Range("A2") = mi_array(0) Te devolvería como resultado en A2: A Salu2 __________________ Recetas de cocina fácil, sencilla, sana y económica Trucos de cocina

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado