Hoe automatisch aanvullen tijdens het typen in de vervolgkeuzelijst Excel?

Voor een vervolgkeuzelijst voor gegevensvalidatie met veel items, moet u omhoog en omlaag scrollen in de lijst om degene te vinden die u nodig hebt of het hele woord correct in de keuzelijst typen. Zijn er methoden om een ​​automatisch ingevulde vervolgkeuzelijst te maken bij het typen van de eerste letter of relatieve tekens? Dat zal mensen helpen efficiënter te werken in werkbladen met vervolgkeuzelijsten in cellen. Deze zelfstudie biedt twee methoden om u te helpen dit te bereiken.

Automatisch aanvullen bij het typen in vervolgkeuzelijst met VBA-code
Automatisch aanvullen bij het typen in de vervolgkeuzelijst met een geweldige tool
Meer tutorials voor vervolgkeuzelijst ...

Automatisch aanvullen bij het typen in vervolgkeuzelijst met VBA-code

Ga als volgt te werk om een ​​vervolgkeuzelijst automatisch aan te vullen nadat u de overeenkomstige letters in de cel hebt getypt.

Ten eerste moet u een keuzelijst met invoervak ​​in het werkblad invoegen en de eigenschappen ervan wijzigen.

1. Open het werkblad met de cel van de vervolgkeuzelijst die u automatisch wilt laten aanvullen.

2. Voordat u een keuzelijst met invoervak ​​invoegt, moet u het tabblad Ontwikkelaar aan het Excel-lint toevoegen. Als het tabblad Ontwikkelaar op uw lint wordt weergegeven, ga naar stap 3. Ga anders als volgt te werk: Klik op Dien in > Opties om de te openen Opties venster. In deze Excel-opties venster klikt Lint aanpassen Controleer in het linkerdeelvenster het Ontwikkelaar vak en klik vervolgens op het OK knop. Zie screenshot:

3. klikken Ontwikkelaar > Invoegen > Combo Box (ActiveX-besturingselement).

4. Teken een keuzelijst met invoervak ​​in het huidige werkblad. Klik er met de rechtermuisknop op en selecteer Vastgoed vanuit het rechtsklikmenu.

5. In de Vastgoed dialoogvenster, vervangt u de originele tekst in het (Naam) veld met TempCombo.

6. Zet de ... uit Ontwerpmodus door te klikken Ontwikkelaar > Ontwerpmodus.

Pas vervolgens de onderstaande VBA-code toe

7. Klik met de rechtermuisknop op de huidige bladtab en klik Bekijk code vanuit het contextmenu. Zie screenshot:

8. In de opening Microsoft Visual Basic voor toepassingen venster, kopieer en plak de onderstaande VBA-code in het codevenster van het werkblad.

VBA-code: automatisch aanvullen tijdens het typen in de vervolgkeuzelijst

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

9. druk op anders + Q toetsen tegelijk om het Microsoft Visual Basic-toepassingen venster.

Vanaf nu, wanneer u op een vervolgkeuzelijstcel klikt, wordt de vervolgkeuzelijst automatisch gevraagd. U kunt beginnen met het typen van de letter om het corresponderende item automatisch in de geselecteerde cel te laten voltooien. Zie screenshot:

Opmerking: Deze code werkt niet voor samengevoegde cellen.

Automatisch aanvullen bij het typen in de vervolgkeuzelijst met een geweldige tool

Omdat VBA voor veel Excel-gebruikers moeilijk te hanteren is, raden we hier de: Doorzoekbare vervolgkeuzelijst kenmerk van Kutools for Excel om u te helpen eenvoudig een vervolgkeuzelijst automatisch in te vullen wanneer u het eerste teken typt.

Opmerking:: Voordat u de functie toepast, moet u ervoor zorgen dat u vervolgkeuzelijsten in het werkblad hebt gemaakt. In dit geval worden de vervolgkeuzelijsten in D3:D9 geplaatst.

1. klikken Kutools > Keuzelijst > Doorzoekbare vervolgkeuzelijst > Instellingen.

2. In het opduiken Doorzoekbare vervolgkeuzelijst dialoogvenster, moet u de volgende instellingen maken.

3. Nadat u de instellingen hebt voltooid, moet u de functie inschakelen door op te klikken Kutools > Keuzelijst > Doorzoekbare vervolgkeuzelijst > Doorzoekbare vervolgkeuzelijst inschakelen.

Wanneer u nu op de cel van de vervolgkeuzelijst klikt, wordt een keuzelijst met alle items weergegeven. U hoeft alleen een teken in het tekstvak te typen om alle bijbehorende items weer te geven, en gebruik de Up or Beneden pijl om het item te selecteren dat u nodig hebt of laat het eerste overeenkomende item automatisch de keuzelijst invullen en druk vervolgens op de Enter toets om de cel in de vervolgkeuzelijst automatisch aan te vullen met het overeenkomende item. Zie onderstaande demo.

Klik om meer over deze functie te weten.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.

Gerelateerde artikelen:

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

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 elke dag honderden muisklikken!

Lees verder... Gratis download... Aankoop...