Hoe vul je een combobox met alleen unieke waarden in Excel?

Wanneer je een combobox maakt met een lijst van gegevens die enkele dubbele waarden bevat, worden de dubbele waarden niet automatisch uitgesloten in de combobox. In dit geval, hoe kun je dan alleen unieke items weergeven in je combobox? Misschien kan deze handleiding je helpen.

Vul een combobox met alleen unieke waarden door middel van VBA-code

Vul een combobox met alleen unieke waarden door middel van VBA-code

De volgende VBA-code kan je helpen om de unieke waarden toe te voegen bij het maken van een combobox, doe het volgende:

1. Voeg eerst een combobox in, klik op Ontwikkelaar > Invoegen > Combobox (ActiveX-besturingselement), en sleep vervolgens de muis om een combobox te tekenen, zie screenshot:

2. Klik vervolgens met de rechtermuisknop op de combobox en kies Weergave Code uit het contextmenu, zie screenshot:

3. Het venster Microsoft Visual Basic for Applications wordt geopend, kopieer en plak de volgende code om de originele code te vervangen.

VBA-code: combobox met unieke waarden:

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

Opmerking: In de bovenstaande code is ComboBox1 de naam van je gemaakte combobox, je kunt deze naar wens wijzigen.

4. Druk vervolgens op de F5-toets om deze code uit te voeren, en in het pop-upvenster selecteer je de gegevensbronlijst die je wilt toevoegen aan de combobox, zie screenshot:

5. Klik vervolgens op de knop OK, alleen de unieke waarden worden weergegeven in de combobox, zie screenshot:

Tip: Als er geen tabblad Ontwikkelaar in de werkbalk staat, kan dit artikel Hoe toon je het tabblad Ontwikkelaar in de Excel 2007/2010/2013-werkbalk? je helpen om het tabblad Ontwikkelaar weer te geven.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!