¿Cómo llenar un cuadro combinado con datos especificados en el libro de trabajo abierto?
Normalmente, puede llenar un cuadro combinado (Control ActiveX) con un cierto rango de datos de celda ingresando las referencias de celda en el campo ListFillRange de las propiedades del cuadro combinado. Si desea completar un cuadro combinado con datos especificados directamente sin especificar manualmente sus propiedades, el método de este artículo puede ayudarlo.
Complete un cuadro combinado con datos especificados con código VBA
Complete un cuadro combinado con datos especificados con código VBA
Este método puede ayudarlo a completar un cuadro combinado con datos específicos directamente en el libro abierto. Haz lo siguiente.
1. presione el otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic ThisWorkbook en el panel izquierdo para abrir el ThisWorkbook editor de código. Y luego copie el código VBA a continuación. Ver captura de pantalla:
Código de VBA: complete un cuadro combinado con datos especificados en el libro de trabajo abierto
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. Guarde el libro de trabajo como Libro de Excel habilitado para macros formatee y ciérrelo.
4. Vuelva a abrir el libro de trabajo, verá que el cuadro combinado se ha completado con datos específicos como se muestra a continuación:
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 llenar el cuadro combinado con datos de rango con nombre en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!