¿Cómo rellenar un cuadro combinado con datos específicos al abrir el Libro de Trabajo?
Normalmente, puedes llenar un cuadro combinado (Control ActiveX) con un rango específico de datos de celda ingresando las referencias de celda en el campo ListFillRange de las propiedades del cuadro combinado. Si deseas rellenar un cuadro combinado con datos específicos directamente, sin ajustar manualmente sus propiedades, el método descrito en este artículo puede ayudarte.
Rellenar un cuadro combinado con datos específicos mediante código VBA
Rellenar un cuadro combinado con datos específicos mediante código VBA
Este método te permite rellenar un cuadro combinado con datos específicos directamente al abrir el libro de trabajo. Por favor, sigue los siguientes pasos.
1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisWorkbook en el panel izquierdo para abrir el editor de código de ThisWorkbook. Luego copia el siguiente código VBA en él. Ver captura de pantalla:
Código VBA: rellena un cuadro combinado con datos específicos al abrir el libro de trabajo
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
Notas:
3. Guarda el libro en formato Libro de Excel Habilitado para Macros y ciérralo.
4. Al volver a abrir el libro, verás que el cuadro combinado se ha rellenado con los datos especificados, como se muestra en la siguiente captura de pantalla:
Artículos relacionados:
- ¿Cómo copiar el valor del Cuadro Combinado a la celda activa en Excel?
- ¿Cómo mostrar el formato de fecha en la salida del cuadro combinado en Excel?
- ¿Cómo evitar o deshabilitar la escritura en un cuadro combinado en Excel?
- ¿Cómo rellenar un Cuadro Combinado con datos de un Rango Nombrado en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos