[VBA] Etiqueta dinámica
Jean
-
safoufa -
safoufa -
Hola a todos,
Bueno, estoy realizando un pequeño programa en VBA Excel con formularios de usuario,
tengo un ListBox que se llena en función de lo que el usuario introduce en un TextBox. por ejemplo si el usuario introduce el número 3 la ListBox muestra D1,D2,D3. Cuando hago clic en D1, D2 o D3 se abre otro formulario de usuario. Hasta aquí no tengo problema, funciona! Pero ahora me gustaría que cuando cierre el segundo formulario de usuario, muestre el resultado en un LabelBox en el primer formulario de usuario. Entonces, para resumir, se trata de una creación automática de Label, me imagino que hay que pasar por una variable pero no veo cómo crear los Labels (no usar ocultar/visible), si alguien puede ayudarme!
Gracias por tu ayuda!!
Jean
Bueno, estoy realizando un pequeño programa en VBA Excel con formularios de usuario,
tengo un ListBox que se llena en función de lo que el usuario introduce en un TextBox. por ejemplo si el usuario introduce el número 3 la ListBox muestra D1,D2,D3. Cuando hago clic en D1, D2 o D3 se abre otro formulario de usuario. Hasta aquí no tengo problema, funciona! Pero ahora me gustaría que cuando cierre el segundo formulario de usuario, muestre el resultado en un LabelBox en el primer formulario de usuario. Entonces, para resumir, se trata de una creación automática de Label, me imagino que hay que pasar por una variable pero no veo cómo crear los Labels (no usar ocultar/visible), si alguien puede ayudarme!
Gracias por tu ayuda!!
Jean
2 respuestas
así es como crear un label en VBA
Set label_dyna = Controls.Add("forms.label.1", "nom du label" & a, Visible = True) ' creación automática del label llamado nom de label
label_dyna.top = 50 'label mostrar a 50 píxeles en el user form de altura
label_dyna.left = 200 ' label a mostrar 200 píxeles a la izquierda
label_dyna.caption = "la valeur voulu"
Set label_dyna = Controls.Add("forms.label.1", "nom du label" & a, Visible = True) ' creación automática del label llamado nom de label
label_dyna.top = 50 'label mostrar a 50 píxeles en el user form de altura
label_dyna.left = 200 ' label a mostrar 200 píxeles a la izquierda
label_dyna.caption = "la valeur voulu"