Saltar al contenido principal

¿Cómo completar el cuadro combinado con valores únicos solo en Excel?

Cuando crea un cuadro combinado con una lista de datos que incluyen algunos valores duplicados, los valores duplicados no se excluirán automáticamente en el cuadro combinado. En este caso, ¿cómo podría mostrar solo elementos únicos en su cuadro combinado? Puede que este tutorial pueda hacerte un favor.

Complete el cuadro combinado con valores únicos solo mediante el código VBA


flecha azul burbuja derecha Complete el cuadro combinado con valores únicos solo mediante el código VBA

El siguiente código VBA puede ayudarlo a agregar valores únicos al crear un cuadro combinado, haga lo siguiente:

1. Primero inserte un cuadro combinado, haga clic en Developer > recuadro > Cuadro combinado (control ActiveX)y luego arrastre el mouse para dibujar un cuadro combinado, vea la captura de pantalla:

doc combobox valores únicos 1

2. Luego haga clic derecho en el cuadro combinado y elija Ver código en el menú contextual, vea la captura de pantalla:

doc combobox valores únicos 2

3. Y el Microsoft Visual Basic para aplicaciones aparece la ventana emergente, copie y pegue el siguiente código para reemplazar el código original.

Código de VBA: cuadro combinado con valores únicos:

Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
    Dim vStr, eStr
    Dim dObj As Object
    Dim xRg As Range
    On Error Resume Next
    Set dObj = CreateObject("Scripting.Dictionary")
    Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    vStr = xRg.Value
    Application.ScreenUpdating = False
    With dObj
        .comparemode = 1
        For Each eStr In vStr
            If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
        Next
        If .Count Then
            ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Note: En el código anterior, el ComboBox1 es el nombre de su cuadro combinado creado, puede cambiarlo cuando lo necesite.

4. Entonces presione F5 para ejecutar este código, y en el cuadro de aviso, seleccione la lista de fuentes de datos que desea agregar al cuadro combinado, vea la captura de pantalla:

doc combobox valores únicos 3

5. Y luego haz clic OK botón, solo los valores únicos se muestran en el cuadro combinado, vea la captura de pantalla:

doc combobox valores únicos 4

Consejo: Si no hay Developer pestaña en la cinta, este artículo ¿Cómo mostrar / mostrar la pestaña de desarrollador en Excel 2007/2010/2013 Ribbon? puede hacer un favor para que muestre la pestaña Desarrollador.

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would be great if we could sort before adding too
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations