Hvordan autofuldføres, når du skriver i rullelisten i Excel?

For en rulleliste for datavalidering med masser af elementer skal du rulle op og ned i listen for at finde den, du har brug for, eller skrive hele ordet korrekt i listeboksen. Er der nogen metoder til at lave en automatisk udfyldt rulleliste, når du skriver det første bogstav eller nogen relative tegn? Det vil hjælpe folk med at arbejde mere effektivt i regneark med rullelister i celler. Denne vejledning giver dig to metoder til at hjælpe dig med at opnå det.

Autofuldfør, når du skriver i rullelisten med VBA-kode
Autofuldfør, når du skriver i rullelisten med et fantastisk værktøj
Flere vejledninger til rullelisten ...

Autofuldfør, når du skriver i rullelisten med VBA-kode

Gør som følger for at lave en rulleliste, der automatisk udfyldes, når du har skrevet de tilsvarende bogstaver i cellen.

For det første skal du indsætte en kombinationsboks i regnearket og ændre dens egenskaber.

1. Åbn regnearket, der indeholder rullelistecellen, du vil gøre det autofuldførelse.

2. Før du indsætter et kombinationsfelt, skal du tilføje fanen Udvikler til Excel-båndet. Hvis fanen Udvikler vises på dit bånd, skift til trin 3. Ellers gør du som følger: Klik på filet > Indstillinger at åbne Indstillinger vindue. Heri Excel-indstillinger vindue, skal du klikke på Tilpas bånd i venstre rude skal du kontrollere Udvikler og klik derefter på OK knap. Se skærmbillede:

3. klik Udvikler > indsatte > Kombinationsboks (ActiveX-kontrol).

4. Tegn en kombinationsboks i det aktuelle regneark. Højreklik på den, og vælg derefter Ejendomme fra højreklikmenuen.

5. i Ejendomme dialogboksen, skal du udskifte den originale tekst i (Navn) felt med TempCombo.

6. Sluk for Design Mode ved at klikke Udvikler > Designtilstand.

Anvend derefter nedenstående VBA-kode

7. Højreklik på fanen for det aktuelle ark, og klik Vis kode fra genvejsmenuen. Se skærmbillede:

8. I åbningen Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte nedenstående VBA-kode i regnearkets kodevindue.

VBA-kode: Autofuldfør, når du skriver i rullelisten

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. Trykke andre + Q taster samtidigt for at lukke Microsoft Visual Basic-applikationer vindue.

Fra nu af, når du klikker på en rullelistecelle, vil rullelisten automatisk bede. Du kan begynde at indtaste brevet for at gøre det tilsvarende element automatisk komplet i den valgte celle. Se skærmbillede:

Bemærk: Denne kode fungerer ikke for flettede celler.

Autofuldfør, når du skriver i rullelisten med et fantastisk værktøj

Da VBA er svært at håndtere for mange Excel-brugere, anbefaler vi her Søgbar rulleliste træk ved Kutools til Excel for at hjælpe dig med nemt at udfylde en rulleliste automatisk, når du skriver det første tegn.

Bemærk: Før du anvender funktionen, skal du sikre dig, at du har oprettet rullelister i regnearket. I dette tilfælde placeres rullelisterne i D3:D9.

1. klik Kutools > Rulleliste > Søgbar rulleliste > Indstillinger.

2. I popping up Søgbar rulleliste dialogboksen, skal du foretage følgende indstillinger.

3. Når du er færdig med indstillingerne, skal du aktivere funktionen ved at klikke Kutools > Rulleliste > Søgbar rulleliste > Aktiver søgbar rulleliste.

Når du nu klikker på rullelisten, vises en liste med alle elementer. Du behøver kun at skrive et tegn i tekstboksen for at få vist alle tilsvarende elementer, og bruge Up or ned pilen for at vælge det element, du har brug for, eller bare lad det første matchende element automatisk udfylde listeboksen, og tryk derefter på Indtast tasten for at autofuldføre rullelistens celle med det matchende element. Se nedenstående demo.

Klik for at vide mere om denne funktion.

Relaterede artikler:

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...