¿Cómo rellenar un cuadro combinado con valores únicos en Excel?
Cuando crea un cuadro combinado con una lista de datos que incluye valores duplicados, estos no se excluyen automáticamente del cuadro. En ese caso, ¿cómo puede mostrar únicamente elementos únicos en su cuadro combinado? Este tutorial podría ayudarle.
Rellenar el cuadro combinado con Valores Únicos mediante código VBA
Rellenar el cuadro combinado con Valores Únicos mediante código VBA
El siguiente código VBA puede ayudarle a añadir valores únicos al crear un cuadro combinado; hágalo tal como se indica a continuación:
1. Inserte primero un cuadro combinado: haga clic en Desarrollador > Insertar > Cuadro combinado (control ActiveX) y, a continuación, arrastre el ratón para dibujar el cuadro. Consulte la captura de pantalla:
2. A continuación, haz clic con el botón derecho en el cuadro combinado y selecciona Ver código en el menú contextual; consulta la captura de pantalla:
3. Se abrirá la ventana de Microsoft Visual Basic para Aplicaciones; copie y pegue el siguiente código para reemplazar el original.
Código 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
Nota: En el código anterior, ComboBox1 es el nombre del cuadro combinado que ha creado; puede cambiarlo según sus necesidades.
4. A continuación, pulse la tecla F5 para ejecutar este código. En el cuadro de diálogo que aparece, seleccione el rango de origen que desea añadir al cuadro combinado; consulte la captura de pantalla:
5. A continuación, haga clic en el botón Aceptar; solo se mostrarán los valores únicos en el cuadro combinado. Consulte la captura de pantalla:
Consejo: Si no aparece la pestaña Desarrollador en la Cinta de opciones, este artículo Cómo mostrar/visualizar la pestaña Desarrollador en Excel 2007/2010/2013 en la Cinta de opciones puede ayudarle a mostrarla.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos