Hoe kan ik een keuzelijst met invoervak vullen met unieke waarden alleen in Excel?
Wanneer u een keuzelijst met invoervak maakt met een lijst met gegevens die enkele dubbele waarden bevatten, worden de dubbele waarden niet automatisch uitgesloten in de keuzelijst met invoervak. Hoe kunt u in dit geval alleen unieke items in uw keuzelijst met invoervak weergeven? Misschien kan deze tutorial je een plezier doen.
Vul de keuzelijst met invoervak alleen in met unieke waarden door VBA-code te gebruiken
Vul de keuzelijst met invoervak alleen in met unieke waarden door VBA-code te gebruiken
De volgende VBA-code kan u helpen om de unieke waarden toe te voegen bij het maken van een keuzelijst met invoervak, doe dit als volgt:
1. Plaats eerst een keuzelijst met invoervak, klik op Ontwikkelaar > Invoegen > Combo Box (ActiveX-besturingselement), en sleep vervolgens de muis om een keuzelijst met invoervak te tekenen, zie screenshot:
2. Klik vervolgens met de rechtermuisknop op de keuzelijst met invoervak en kies Bekijk code zie screenshot vanuit het contextmenu:
3. En de Microsoft Visual Basic voor toepassingen venster verschijnt, kopieer en plak de volgende code om de originele code te vervangen.
VBA-code: keuzelijst met invoervak 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
Note: In de bovenstaande code, de ComboBox 1 is de naam van uw gemaakte keuzelijst met invoervak, u kunt deze naar behoefte wijzigen.
4. Druk vervolgens op F5 sleutel om deze code uit te voeren, en selecteer in het promptvenster de lijst met gegevensbronnen die u aan de keuzelijst met invoervak wilt toevoegen, zie screenshot:
5. En klik vervolgens op OK knop, worden alleen de unieke waarden weergegeven in de keuzelijst, zie screenshot:
Tip: Als er geen Ontwikkelaar tab in het lint, dit artikel Hoe het ontwikkelaarstabblad in Excel 2007/2010/2013 Ribbon weergeven / weergeven? kan u een plezier doen om het tabblad Ontwikkelaar weer te geven.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!