Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

USER FORM

13/03/2007 - 02:29 por Orfao | Informe spam
Ayuda Hacer una pregunta
en un userform tengo 20 optionbutton
a estos le debo asignar el valor verdadero o falso de hoja1!a1:a20
igualmente al modificarlos en el userform debo registrarlos en la celda
correspondiente
esto lo hago uno a uno
es decir:
userform1.combobox1.value=range("hoja1!a1)
userform1.combobox2.value=range("hoja1!a2)
etc..
y cuando lo registro:
range("hoja1!a1)=userform1.combobox1.value
range("hoja1!a2)=userform1.combobox2.value

etc..

la hoja1 esta en un libro addin
esto funciona demasiado lento

de que forma puiedo agilizar este procedimiento ?
talvez algo asi como
for x=1 to 20
userform1.combobox & x =range("hoja1!a"&x)
next

como asigno una serie de valores a una serie de controles (ej:
textbox1=a1; textbox2=a2; ...)

Me alimento del conocimiento de todos
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
13/03/2007 - 07:02 | Informe spam
hola, moises !

[como que sigues...] 'ejercitando la memoria' ?
al final de cuentas ya no se sabe si estamos hablando de optionbuttons... comboboxes... o textboxes :))

op1: si prefieres utiizar un bucle for...next puedes hacer referencia a los nombres de los controles [se supone secuenciales]
for x = 1 to 20
userform1.controls("combobox" & x) = ... etc. etc. etc.
next

op2: tambien podrias dejar vinculados 'permanentemente' cada control a 'su celda'...
[te evitas la necesidad de tomar/devolver/... de/a... cada celda con su cada control] ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
en un userform tengo 20 optionbutton a estos le debo asignar el valor verdadero o falso de hoja1!a1:a20
igualmente al modificarlos en el userform debo registrarlos en la celda correspondiente
esto lo hago uno a uno es decir:
userform1.combobox1.value=range("hoja1!a1)
userform1.combobox2.value=range("hoja1!a2) etc..
y cuando lo registro:
range("hoja1!a1)=userform1.combobox1.value
range("hoja1!a2)=userform1.combobox2.value etc..
la hoja1 esta en un libro addin esto funciona demasiado lento
de que forma puiedo agilizar este procedimiento ?
talvez algo asi como
for x=1 to 20
userform1.combobox & x =range("hoja1!a"&x)
next
como asigno una serie de valores a una serie de controles (ej: textbox1¡; textbox2¢; ...)

Preguntas similares

 

Busqueda sugerida :