Note: The other languages of the website are Google-translated. Back to English

¿Cómo crear cuadros de lista dinámicos en cascada en Excel?

Es posible que sepa cómo crear una lista desplegable de validación en cascada en Excel. Sin embargo, ¿cómo crear cuadros de lista dinámicos en cascada en Excel? Este artículo presenta un método VBA para bajarlo.

Cree cuadros de lista dinámicos en cascada con código VBA

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.

Cree cuadros de lista dinámicos en cascada con código VBA

Como se muestra en la captura de pantalla siguiente, debe crear un cuadro de lista principal que contenga los valores únicos de la columna Bebida y mostrar todos los valores correspondientes en el segundo cuadro de lista según la selección en el cuadro de lista principal. El siguiente código VBA te ayuda a lograrlo. Haz lo siguiente.

1. En primer lugar, debe extraer todos los valores únicos de la columna Bebida. Seleccione una celda en blanco, ingrese la fórmula de matriz =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") en el Barra de formulas, y luego presione el Ctrl + cambio + Enviar llave. Luego arrastre el Llene la manija para obtener todos los valores únicos. Ver captura de pantalla:

Nota:: En la fórmula, $A$2:$A$11 es el rango del que extraerá valores únicos. J1 es la celda de arriba donde se encuentra su fórmula.

Consejo: Si la fórmula es demasiado difícil de recordar y manejar, la Seleccione celdas duplicadas y únicas utilidad de Kutools for Excel será una buena opción para extraer rápidamente todos los valores únicos de una columna.

Seleccione la columna que contiene valores únicos de los que extraerá. Luego habilite la utilidad haciendo clic en Kutools > Seleccione > Seleccione celdas duplicadas y únicas. En la Seleccione celdas duplicadas y únicas cuadro de diálogo, seleccione el Todos únicos (incluidos los primeros duplicados) opción y haga clic en OK botón. Luego, todos los valores únicos se seleccionan en la columna. Cópielos y péguelos en un nuevo lugar. Ver captura de pantalla:

Kutools for Excel: con más de 200 prácticos complementos de Excel, prueba gratuita y sin límite en 60 días. ¡Descarga y prueba gratis ahora!

2. Inserte dos cuadros de lista por separado haciendo clic en Developer > recuadro > Cuadro de lista (control ActiveX). Ver captura de pantalla:

3. Haga clic con el botón derecho en el cuadro de lista principal y seleccione Propiedades desde el menú contextual. En el Propiedades cuadro de diálogo, cambie el (Nombre) campo para Bebidas u otro nombre que necesite, ingrese el rango de celdas que contiene los valores únicos extraídos en el ListFillRango campo y cierre el cuadro de diálogo.

4. Repita el paso 3 para cambiar el segundo cuadro de lista (Nombre) campo a Elemento en el Propiedades caja de diálogo.

5. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código desde el menú contextual. Luego, copie el código VBA a continuación en la ventana Código. Ver captura de pantalla:

Código de VBA: cree cuadros de lista dinámicos en cascada en Excel

Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
    Dim I, xRows As Long
    Dim xRg As Range
    Dim xRegStr As String
    Application.ScreenUpdating = False
    xRegStr = Me.Drink.Text
    Set xRg = Range("A2:A11")
    xRows = xRg.Rows.Count
    If xRegStr <> xPreStr Then
    Me.Item.Clear
   'Me.OtherListBoxName.Clear
    Set xRg = xRg(1)
    For I = 1 To xRows
        If xRg.Offset(I - 1).Value = xRegStr Then
            Me.Item.AddItem xRg.Offset(I - 1, 1).Value
            'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
        End If
    Next
    xPreStr = xRegStr
    End If
    Application.ScreenUpdating = True
End Sub

Notas: En el código Drink y Item son los nombres de dos cuadros de lista, cámbielos por sus propios nombres.

6. presione el otro + Q llaves para cerrar el Microsoft Visual Basic para aplicaciones ventana.

7. Desactive el modo de diseño haciendo clic en Developer > Modo de diseño.

A partir de ahora, al seleccionar cualquier tipo de bebida como Café en el cuadro de lista principal, todos los elementos de café se mostrarán en el segundo. Seleccionar té o vino solo mostrará los elementos de té o vino en el segundo cuadro de lista. Ver captura de pantalla:


Artículos relacionados:


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (1)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Hi

¿A qué se refiere "Yo" en el código y cómo cambiará el código si tengo un cuadro de lista MultiSelect?

saludos
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL