¿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
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:
2. Luego haga clic derecho en el cuadro combinado y elija Ver código en el menú contextual, vea la captura de pantalla:
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:
5. Y luego haz clic OK botón, solo los valores únicos se muestran en el cuadro combinado, vea la captura de pantalla:
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
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!