Hoe automatisch aanvullen in een Excel-keuzelijst tijdens het typen?

Voor een gegevensvalidatie-keuzelijst met veel items moet u omhoog en omlaag scrollen in de lijst om het item dat u nodig hebt te vinden of het hele woord correct in het invoervak typen. Is er een manier om de keuzelijst automatisch aan te vullen wanneer u de bijbehorende tekens typt? Dit zou gebruikers helpen efficiënter te werken in werkbladen met keuzelijsten in cellen. Deze handleiding biedt twee methoden om dit te bereiken.

Maak keuzelijsten die automatisch aanvullen met VBA-code
Maak eenvoudig keuzelijsten die automatisch aanvullen in 2 seconden
Meer handleidingen voor keuzelijsten...

Maak keuzelijsten die automatisch aanvullen met VBA-code

Volg de volgende stappen om een keuzelijst automatisch aan te vullen nadat u de bijbehorende letters in de cel hebt getypt.

Voeg eerst een combobox in het werkblad in en wijzig de eigenschappen ervan.

1. Open het werkblad dat de keuzelijstcellen bevat waarvoor u automatisch aanvullen wilt inschakelen.
2. Voordat u een Combobox invoegt, moet u de tab Ontwikkelaar toevoegen aan de Excel-werkbalk. Als de tab Ontwikkelaar al zichtbaar is op uw lint, ga dan naar stap 3. Zo niet, volg dan de volgende stappen om de tab Ontwikkelaar zichtbaar te maken: Klik op "Bestand" > "Opties" om het venster "Opties" te openen. In dit venster "Excel-opties", klik op "Lint aanpassen" in het linkerpaneel, vink het vakje "Ontwikkelaar" aan en klik vervolgens op de knop "OK". Zie screenshot:
   
3. Klik op "Ontwikkelaar" > "Invoegen" > "Combobox (ActiveX-besturingselement)".
   
4. Teken een combobox in het huidige werkblad. Klik met de rechtermuisknop erop en selecteer "Eigenschappen" uit het rechtsklikmenu.
   
5. In het dialoogvenster "Eigenschappen" vervangt u de oorspronkelijke tekst in het veld "(Naam)" door "TempCombo."
   
6. Schakel de "Ontwerpmodus" uit door te klikken op "Ontwikkelaar" > "Ontwerpmodus."

Pas vervolgens de onderstaande VBA-code toe.

1. Klik met de rechtermuisknop op het tabblad van het huidige werkblad en klik op "Code weergeven" in het contextmenu. Zie screenshot:
   
2. Plak de onderstaande VBA-code in het Code-venster van het werkblad in het venster "Microsoft Visual Basic for Applications".
   VBA-code: Automatisch aanvullen tijdens het typen in een keuzelijst

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   'Update by Extendoffice: 2020/01/16
       Dim xCombox As OLEObject
       Dim xStr As String
       Dim xWs As Worksheet
       Dim xArr
       
       Set xWs = Application.ActiveSheet
       On Error Resume Next
       Set xCombox = xWs.OLEObjects("TempCombo")
       With xCombox
           .ListFillRange = ""
           .LinkedCell = ""
           .Visible = False
       End With
       If Target.Validation.Type = 3 Then
           Target.Validation.InCellDropdown = False
           Cancel = True
           xStr = Target.Validation.Formula1
           xStr = Right(xStr, Len(xStr) - 1)
           If xStr = "" Then Exit Sub
           With xCombox
               .Visible = True
               .Left = Target.Left
               .Top = Target.Top
               .Width = Target.Width + 5
               .Height = Target.Height + 5
               .ListFillRange = xStr
               If .ListFillRange = "" Then
                   xArr = Split(xStr, ",")
                   Me.TempCombo.List = xArr
               End If
               .LinkedCell = Target.Address
           End With
           xCombox.Activate
           Me.TempCombo.DropDown
       End If
   End Sub
   Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       Select Case KeyCode
           Case 9
               Application.ActiveCell.Offset(0, 1).Activate
           Case 13
               Application.ActiveCell.Offset(1, 0).Activate
       End Select
   End Sub

   
3. Druk gelijktijdig op de toetsen "Alt + Q" om het venster Microsoft Visual Basic Applications te sluiten.

Vanaf nu zal, wanneer u op een keuzelijstcel klikt, de keuzelijst automatisch verschijnen. U kunt beginnen met typen in de letter om het bijbehorende item automatisch in de geselecteerde cel te voltooien. Zie screenshot:

Maak eenvoudig een keuzelijst die automatisch aanvult in 2 seconden

Voor de meeste Excel-gebruikers is de bovenstaande VBA-methode moeilijk te beheersen. Maar met de functie "Doorzoekbare Keuzelijst" van Kutools voor Excel kunt u eenvoudig automatisch aanvullen inschakelen voor gegevensvalidatie-keuzelijsten in een gespecificeerd bereik in slechts 2 seconden. Bovendien is deze functie beschikbaar voor alle Excel-versies.

1. Om automatisch aanvullen in uw keuzelijsten in te schakelen, selecteert u eerst het bereik met de keuzelijsten. Ga vervolgens naar de tab "Kutools", kies "Keuzelijst" > "Maak specifieke vervolgkeuzelijsten doorzoekbaar".
2. Klik in het dialoogvenster "Maak de keuzelijst doorzoekbaar" op de knop "OK" om de instelling op te slaan.

Resultaat

Zodra de configuratie is voltooid, verschijnt er een lijstvak wanneer u op een keuzelijstcel binnen het gespecificeerde bereik klikt. Wanneer u tekens invoert, wordt zodra één item exact overeenkomt, het hele woord onmiddellijk gemarkeerd in het lijstvak en kan het in de keuzelijstcel worden ingevuld door op de Enter-toets te drukken.

Gerelateerde artikelen: