¿Cómo llenar el cuadro combinado con datos de rango con nombre en Excel?
Puede especificar un cuadro combinado (control ActiveX) con datos de un cierto rango agregando el rango en las propiedades ListFillRange del cuadro combinado. Pero, ¿sabe cómo completar un cuadro combinado con datos de un rango con nombre en Excel? Por ejemplo, ha nombrado un rango de celdas en su hoja de trabajo y ahora necesita especificar este nombre de rango en un cuadro combinado. Al seleccionar el nombre del rango en un cuadro combinado, todos los valores de celda en este rango con nombre se completarán en otro cuadro combinado automáticamente. Este artículo presentará un método VBA para resolver este problema.
Complete el cuadro combinado con datos de un rango con nombre con código VBA
Complete el cuadro combinado con datos de un rango con nombre con código VBA
Haga lo siguiente para completar el cuadro combinado con datos de un rango con nombre en Excel.
1. Seleccione los encabezados completos (en este caso, selecciono A1: E1) en su hoja de trabajo y luego escriba un nombre en el Nombre de buzón como se muestra a continuación.
2. Seleccione los datos de cada columna excepto su encabezado, y luego nombre la columna por separado en el Nombre de buzón. Ver captura de pantalla:
En este caso, nombré el rango A2: A8, B2: B8, C2: C8, D2: D8 y E2: E8 como Fecha, Tienda, Artículos, Ventas y Día de la semana por separado.
3. Luego inserte un cuadro combinado haciendo clic en Developer > recuadro > Cuadro combinado (control ActiveX). Ver captura de pantalla:
4. Repita el paso 3 para insertar otro cuadro combinado en la hoja de trabajo.
5. Haga clic con el botón derecho en la pestaña de la hoja y luego haga clic en Ver código desde el menú contextual. Ver captura de pantalla:
6. En la apertura Microsoft Visual Basic para aplicaciones ventana, copie y pegue debajo del código VBA en la ventana Código.
Código de VBA: complete el cuadro combinado con datos de un rango con nombre
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End SubNote: En el código, ComboBox1 es el nombre del cuadro combinado en el que enumerarás todos los nombres de rango dentro, y ComboBox2 es el nombre del cuadro combinado en el que se completarán los datos del rango con nombre especificado. Los "Encabezados" es el nombre del rango que ha creado en el paso 1.
7. Desactive el modo de diseño haciendo clic en Developer > Modo de diseño.
8. Haga clic en cualquier celda de la hoja de trabajo para activar el código. Haga clic en el botón de flecha en el primer cuadro combinado, puede ver que todos los rangos con nombre se enumeran dentro. Ver captura de pantalla:
Al seleccionar un rango con nombre en el primer cuadro combinado, los datos de la celda correspondiente se completarán en el segundo cuadro combinado como se muestra a continuación:
Cree fácilmente una lista desplegable con casillas de verificación en Excel:
La Lista desplegable con casillas de verificación utilidad de Kutools for Excel puede ayudarlo a crear fácilmente una lista desplegable con casillas de verificación en un rango específico, hoja de trabajo actual, libro de trabajo actual o todos los libros de trabajo abiertos según sus necesidades.
¡Descárgalo y pruébalo ahora! (Pista gratuita de 30 días)
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 un cuadro combinado con datos especificados en el libro de trabajo abierto?
- ¿Cómo rellenar automáticamente otras celdas al seleccionar valores en la lista desplegable de 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!
