Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

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

Hvis du har en datavaliderings-rulleliste med store emner, skal du rulle op og ned på listen bare for at finde den rigtige eller skrive hele ordet direkte i listeboksen. Hvis der er en metode til at tillade automatisk udfyldning, når du skriver det første bogstav i rullelisten, bliver alt lettere. Denne vejledning giver en VBA-metode, der hjælper dig med at nå det.

Autofuldfør, når du skriver i rullelisten med VBA-kode
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.

Opret let rullelisten med afkrydsningsfelter i Excel:

Rulleliste med afkrydsningsfelter nytte af Kutools til Excel kan hjælpe dig med nemt at oprette rulleliste med afkrydsningsfelter i et bestemt område, aktuelt regneark, nuværende projektmappe eller alle åbnede projektmapper baseret på dine behov.
Download og prøv det nu! (30 dages gratis sti)


Relaterede artikler:

Hvordan oprettes rullelisten med flere afkrydsningsfelter i Excel?
Mange Excel-brugere har tendens til at oprette rulleliste med flere afkrydsningsfelter for at vælge flere emner fra listen pr. Gang. Faktisk kan du ikke oprette en liste med flere afkrydsningsfelter med datavalidering. I denne vejledning skal vi vise dig to metoder til at oprette rulleliste med flere afkrydsningsfelter i Excel. Denne vejledning giver metoden til at løse problemet.

Opret rullelisten fra en anden projektmappe i Excel
Det er ret nemt at oprette en rulleliste med datavalidering blandt regneark i en projektmappe. Men hvis de listedata, du har brug for til datavalidering, findes i en anden projektmappe, hvad ville du gøre? I denne vejledning lærer du, hvordan du opretter en drop fown-liste fra en anden projektmappe i Excel i detaljer.

Opret en søgbar rulleliste i Excel
For en rulleliste med mange værdier er det ikke let at finde en ordentlig. Tidligere har vi introduceret en metode til automatisk udfyldelse af rullelisten, når du indtaster det første bogstav i rullemenuen. Udover funktionen autofuldførelse kan du også gøre rullelisten søgbar for at forbedre arbejdseffektiviteten ved at finde korrekte værdier i rullelisten. For at gøre rullelisten søgbar, prøv metoden i denne vejledning.

Udfyld automatisk andre celler, når du vælger værdier i rullelisten i Excel
Lad os sige, at du har oprettet en rulleliste baseret på værdierne i celleområde B8: B14. Når du vælger en hvilken som helst værdi i rullelisten, ønsker du, at de tilsvarende værdier i celleområde C8: C14 automatisk udfyldes i en valgt celle. Til løsning af problemet vil metoderne i denne vejledning gøre dig en tjeneste.

Flere vejledninger til rullelisten ...


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 Formula 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-2019 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.
kte-fane 201905

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!
officetab bund
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dante · 4 years ago
    I have completed the autocomplete drop down list, however, i do not know how to show the values after typing the text in the drop down list. For example, in my DATA BASE SHEET, Column 1 consist of the items and column 2 & 3 consist the cost of the item. By typing the item in my drop down list IN THE MAIN SHEET in column 1, the cost of the items appears in column 2 & 3. Is it possible that it can be done? Help me please
  • To post as a guest, your comment is unpublished.
    Makos · 4 years ago
    Thanks for useful solution :-)
  • To post as a guest, your comment is unpublished.
    Jonathan Horovitz · 4 years ago
    No where does it say how to add elements into the drop down box.
    • To post as a guest, your comment is unpublished.
      Zal · 4 years ago
      Jonathan, have you found out how to do it?
  • To post as a guest, your comment is unpublished.
    Don · 4 years ago
    I was able to get the code to work, but I am having issues saving the file, I get different error messages. once I have it saved and re-open the autocomplete function does not work. I am using Excel 2007. Can somebody provide assistance of how to save the file? a lot of help on the internet but I don't understand all of the commands.
    Thanks
  • To post as a guest, your comment is unpublished.
    Jared · 4 years ago
    Does my data set/named range being used for my drop down list need to be on the same sheet for this to work? I am getting the combo box to be activated when I double click on the drop down but when I start typing nothing comes up? Any idea what the issue could be here? I followed all steps above.


    Thank you very much,
    Jared
  • To post as a guest, your comment is unpublished.
    Jignesh · 4 years ago
    Thanks for immense help.. Lot of time of mine will be saved.

    This code works for only one data validation in a column in worksheet.. What changes we have to made in code to work with 2 data validation in 2 separate columns with separate data source
  • To post as a guest, your comment is unpublished.
    Jignesh · 4 years ago
    Works well.. Thanks.. Saved lot of my time.. One more dimension.
    With this code it works well in one column.. What changes we have to made in vba code to ensure this code works in other column also in the same sheet but with different data validation source
  • To post as a guest, your comment is unpublished.
    Sam · 5 years ago
    How can I lock cells?
  • To post as a guest, your comment is unpublished.
    Holly · 5 years ago
    I am protecting the sheet so that the formulas can't be modified and when I protect the sheet the auto fill functionality no longer works. Do you have a solution for this?
    • To post as a guest, your comment is unpublished.
      Sam · 5 years ago
      have you found a solution for this?
  • To post as a guest, your comment is unpublished.
    Thomas · 5 years ago
    Same problem as another user - after adding this combo box, I am unable to copy and paste from one cell to another. The copy function seems to work, but the paste, paste special, and CTRL+V do not. Thank you.
    • To post as a guest, your comment is unpublished.
      NAMASTAH · 5 years ago
      Hi Thomas... did you ever get a solution to this? I have yet to find one.
      • To post as a guest, your comment is unpublished.
        Thomas · 5 years ago
        No real answer - I just go back to DEVELOPER and deselect DESIGN MODE when I must copy and past - remember to click DESIGN MODE again when you are finished; otherwise, your combo box will not function properly when you double click a cell.
  • To post as a guest, your comment is unpublished.
    Namastah · 5 years ago
    Hello... After adding this combo box, I am unable to copy and paste other elements on the worksheet. It allows me to copy by paste is greyed out. Also, is there a way to make the combo box work in merged cells? Thank you
  • To post as a guest, your comment is unpublished.
    Yane · 5 years ago
    Excelent solution, thank you!
  • To post as a guest, your comment is unpublished.
    Jay · 5 years ago
    I tried and it worked for just 2 days now in the properties, it is giving me an error message upon typing TempCombo that it is an ambiguous name.

    Please help