Cuadro combinado de varias columnas de Excel VBA

buen día, mi nombre es Miguel y hoy os traigo un nuevo post.

A continuación veremos un programa en Excel VBA que crea un formulario de usuario que contiene un cuadro combinado de varias columnas.

El formulario de usuario que vamos a crear se ve así:

Cuadro combinado de varias columnas en Excel VBA

Para crear este formulario de usuario, realice los siguientes pasos.

1. Abra el Editor de Visual Basic. Si el Explorador de proyectos no está visible, haga clic en Ver, Explorador de proyectos.

2. Haga clic en Insertar, formulario de usuario. Si la caja de herramientas no aparece automáticamente, haga clic en Ver, caja de herramientas. Su pantalla debe configurarse de la siguiente manera.

Visualización de la pantalla del formulario de usuario en Excel VBA

3. Agregue la etiqueta, el cuadro combinado y los botones de comando. Una vez completado, el resultado debe ser coherente con la imagen del formulario de usuario que se muestra arriba. Por ejemplo, cree un control de cuadro combinado haciendo clic en ComboBox en el cuadro de herramientas. A continuación, puede arrastrar un cuadro combinado al formulario de usuario.

4. Puede cambiar los nombres y subtítulos de los controles. Los nombres se utilizan en el código Excel VBA. Los subtítulos son los que aparecen en pantalla. Es una buena práctica cambiar el nombre de los controles, pero no es necesario aquí porque solo tenemos algunos controles en este ejemplo. Para cambiar el título de los formularios de usuario, la etiqueta y los botones de comando, haga clic en Ver, Ventana Propiedades y haga clic en cada control.

5. Para mostrar el formulario de usuario, coloque un botón de comando en su hoja de trabajo y agregue la siguiente línea de código:

Privado Sub CommandButton1_Click ()

UserForm1.Show

Aleta Sub

Ahora creemos el Sub UserForm_Initialize. Cuando utilice el método Show para el formulario de usuario, se ejecutará automáticamente.

6. Abra el Editor de Visual Basic.

7. En el Explorador de proyectos, haga clic con el botón secundario en UserForm1 y, a continuación, haga clic en Ver código.

8. Elija Formulario de usuario en la lista desplegable de la izquierda. Elija Inicializar en la lista desplegable de la derecha.

9. Agregue las siguientes líneas de código:

Privado Sub UserForm_Initialize ()

ComboBox1.ColumnCount = 2

Oscuro Películas (1 Para 5, 1 Para 2) Cómo Cuerda
Oscuro me Cómo Entero, j Cómo Entero

Películas (1, 1) = "El señor de los anillos"
Películas (2, 1) = "Velocidad"
Películas (3, 1) = "Star Wars"
Películas (4, 1) = "El Padrino"
Películas (5, 1) = "Pulp Fiction"

Películas (1, 2) = "Aventura"
Películas (2, 2) = "Acción"
Películas (3, 2) = "Ciencia ficción"
Películas (4, 2) = "Crimen"
Películas (5, 2) = "Drama"

ComboBox1.List = Películas

Aleta Sub

Explicación: La primera línea de código establece el número de columnas en el cuadro combinado en 2. En lugar de establecer el número de columnas en tiempo de ejecución, también puede configurar esta opción en tiempo de diseño. Para lograr esto, haga clic con el botón derecho en el control del cuadro combinado, haga clic en Propiedades y establezca la propiedad ColumnCount en 2. Luego, declaramos e inicializamos una matriz bidimensional. La última línea de código asigna la matriz al cuadro combinado.

Ahora hemos creado la primera parte del formulario de usuario. Aunque parece ordenado, no pasará nada cuando hagamos clic en los botones de comando en el formulario de usuario.

10. En el Explorador de proyectos, haga doble clic en UserForm1.

11. Haga doble clic en el botón Aceptar.

12. Agregue las siguientes líneas de código:

Privado Sub CommandButton1_Click ()

Descargarme

MsgBox "Seleccionado" y ComboBox1.Value

En Erro Reanudar Entonces

MsgBox "Me gusta" y ComboBox1.Column (1) y "Películas"

Aleta Sub

Nota: Estas líneas de código cierran el formulario de usuario de Excel VBA y muestran el elemento y el género seleccionados. La declaración "On Error Resume Next" ignora el error cuando el usuario completa su propia película (en este caso, no hay ningún género disponible).

13. Haga doble clic en el botón Cancelar.

14. Agregue la siguiente línea de código:

Privado Sub CommandButton2_Click ()

Descargarme

Aleta Sub

Resultado cuando seleccione Velocidad y haga clic en Aceptar.

Resultado del cuadro combinado de varias columnas

Resultado del cuadro combinado de varias columnas

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info