Matrices

Prueba desde 0 hasta 2


"Zapata" escribió en el mensaje
news:003901c3b2b7$5b2fbb80$

hola:
seguro que algUien sabe la respuesta a esto. Creo una
matriz con tres botones pero al ejecutar un buble siempre
se salta el primer botonde la matriz por que esto ? os
dejo la macro aqui para que la echeis un vistazo.

Boton = Array(CommandButton1, CommandButton2,
CommandButton3)

For i = 1 To 3
Boton(i).Visible = True
Boton(i).Caption = Sheets(i).Name
Next i

No funciona subindice fuera del intervalo

Prueba desde 0 hasta 2


"Zapata" escribió

en el mensaje

news:003901c3b2b7$5b2fbb80$

hola:
seguro que algUien sabe la respuesta a esto. Creo una
matriz con tres botones pero al ejecutar un buble

siempre

se salta el primer botonde la matriz por que esto ? os
dejo la macro aqui para que la echeis un vistazo.

Boton = Array(CommandButton1, CommandButton2,
CommandButton3)

For i = 1 To 3
Boton(i).Visible = True
Boton(i).Caption = Sheets(i).Name
Next i

.

¿que tal, chicos?

Zapata escribio en el mensaje
... creo una matriz con tres botones pero al ejecutar un bucle siempre se salta el primer boton [...]
Boton = Array(CommandButton1, CommandButton2, CommandButton3)
For i = 1 To 3
Boton(i).Visible = True
Boton(i).Caption = Sheets(i).Name
Next i

magnus escribio en el mensaje
Prueba desde 0 hasta 2

anonymous [Zapata?] escribio en el mensaje
No funciona subindice fuera del intervalo

la 'cuenta' de elementos es diferente para matrices y conjuntos [p.e.]
- las matrices 'van' de 0 a 'n_Elementos MENOS 1' => For i = 0 To Coleccion.Elementos.Count - 1 < [a menos que el modulo de codigo tenga en la seccion de declaraciones =>Option Base 1<=]
- los conjuntos [o 'colecciones de objetos', SIN 'importar' el Option_Base] SI 'van' de 1 a n_Elementos

para 'corregir' [o 'adaptar'] el codigo que estas usando 'tendras que' decidir si 'basas tu cuenta'...
-o- en los elementos del conjunto [1 a n_Elementos]
-o- en los elementos de la matriz [0 a n_Elementos-1 =>si Option Base 0 -por omision-<=] [p.e.]

Opcion 1.- 'ajustar' los elementos EN la matriz a los elementos de un conjunto [RESTAR UNO si Base 0]
For i = 1 To 3
Boton(i - 1).Visible = True
Boton(i - 1).Caption = Sheets(i).Name
Next

Opcion 2.- 'ajustar' los elementos EN el conjunto [SUMAR UNO] a los elementos de la matriz [si Base 0]
For i = 0 To 2
Boton(i).Visible = True
Boton(i).Caption = Sheets(i + 1).Name
Next

saludos,
Héctor.