Con este código podremos llenar un cuadro combinado elemento por elemento, o pasandolos en un solo arreglo de datos (un conjunto de variables).
ANTES: Nuestro libro de excel debe estar habilitada para ejecutar macros, es decir, con la extención .xlsm y nuestra pestaña de programador debe estar en modo diseño para que podamos escribir código y editar los objetos que vamos a utilizar.
PASO 1: Creamos un botón de comando(commandbutton) en una de nuestras hojas, en este caso la primera hoja, y tambien creamos un formulario. Haciendo doble clic sobre el botón de comando escribimos lo siguiente:
Private Sub CommandButton1_Click()
UserForm1.Show
End SubCon esto mostraremos el formulario al hacer clic en el botón de comando.
PASO 2: En el formulario creamos dos cuadros combinados (combobox). Creamos también etiquetas (label) para describír qué datos nos mostrará cada cuadro combinado.
PASO 3: Hacemos doble clic en el formulario y escribimos lo siguiente:
Private Sub UserForm_Initialize()
ComboBox1.AddItem ("Elemento N°1")ComboBox1.AddItem ("Elemento N°2")ComboBox1.AddItem ("Elemento N°3")ComboBox1.AddItem ("Elemento N°4")ComboBox1.AddItem ("Elemento N°5")
ComboBox2.List = Array("Elemento N°6", "Elemento N°7", "Elemento N°8", "Elemento N°9", "Elemento N°10")
End Sub
Con AddItem añadimos cada uno de los elementos en el primer combobox, y con .List y Array añadimos todos los elementos en un solo arreglo. Puedes usar cualquiera de las formas.
PASO 4: Ejecutar
LINK DE DESCARGA
No hay comentarios.:
Publicar un comentario