Hoe vult u een keuzelijst in Excel met unieke waarden?
Wanneer u een keuzelijst maakt op basis van een gegevenslijst die dubbele waarden bevat, worden die duplicaten niet automatisch uitgesloten. Hoe zorgt u er dan voor dat uw keuzelijst alleen unieke items toont? Deze handleiding helpt u daarbij.
Keuzelijst vullen met Unieke waarden met behulp van VBA-code
Keuzelijst vullen met Unieke waarden met behulp van VBA-code
De volgende VBA-code helpt u unieke waarden toe te voegen bij het maken van een keuzelijst. Volg deze stappen:
1. Voeg eerst een keuzelijst in. Klik hiervoor op Ontwikkelaar > Invoegen > Keuzelijst (ActiveX-besturingselement) en sleep vervolgens de muisaanwijzer om een keuzelijst te tekenen. Zie de schermafbeelding:
2. Klik daarna met de rechtermuisknop op de keuzelijst en kies Code weergeven in het contextmenu. Zie de schermafbeelding:
3. Het venster Microsoft Visual Basic for Applications wordt geopend. Kopieer en plak de volgende code om de oorspronkelijke code te vervangen.
VBA-code: keuzelijst 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 de keuzelijst die u hebt gemaakt. U kunt deze naar wens wijzigen.
4. Druk vervolgens op F5 om deze code uit te voeren. In het dialoogvenster geeft u de lijst Selecteer alstublieft het bronbereik op die u aan de keuzelijst wilt toevoegen. Zie de schermafbeelding:
5. Klik daarna op de knop OK. Alleen de unieke waarden worden weergegeven in de keuzelijst. Zie de schermafbeelding:
Tip: Als het tabblad Ontwikkelaar niet beschikbaar is op het lint, helpt dit artikel Hoe toont of geeft u het ontwikkelaartabblad weer in Excel 2007/2010/2013 Lint? u om het tabblad Ontwikkelaar weer zichtbaar te maken.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins