Hvordan autofuldføres, når du skriver i rullelisten i Excel?
For en rulleliste for datavalidering med mange 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 måde at få rullelisten til at udfylde automatisk, når du skriver de tilsvarende tegn? Dette ville 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.
Gør rullelisten til autofuldførelse med VBA-kode
Gør nemt rullelisten til autofuldførelse på 2 sekunder
Flere vejledninger til rullelisten ...
Gør rullelisten til autofuldførelse 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.
- Åbn regnearket, der indeholder rullelistens celler, du vil gøre dem til autofuldførelse.
- Før du indsætter en kombinationsboks, 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 for at få udviklerfanen vist på båndet: Klik 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:
- Klik Udvikler > indsatte > Kombinationsboks (ActiveX-kontrol).
- Tegn en kombinationsboks i det aktuelle regneark. Højreklik på det og vælg derefter Ejendomme fra højreklikmenuen.
- I boksen Ejendomme dialogboksen, skal du udskifte den originale tekst i (Navn) felt med TempCombo.
- Sluk for Design Mode ved at klikke Udvikler > Designtilstand.
Anvend derefter nedenstående VBA-kode
- Højreklik på den aktuelle arkfane og klik Vis kode fra genvejsmenuen. Se skærmbillede:
- 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
- Presse 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:
Gør nemt rullelisten til autofuldførelse på 2 sekunder
For de fleste Excel-brugere er ovenstående VBA-metode svær at mestre. Men med Søgbar rulleliste træk ved Kutools til Excel, kan du nemt aktivere autofuldførelse for datavalideringsrullelister i et specificeret interval på kun 2 sekunder. Hvad mere er, er denne funktion tilgængelig for alle Excel-versioner.
Tip: Inden du anvender dette værktøj, bedes du installere Kutools til Excel for det første. Gå til gratis download nu.
- For at aktivere autofuldførelse i dine rullelister skal du først vælge området med rullemenuerne. Naviger derefter til Kutools fanebladet, vælg Rulleliste > Gør rullelisten søgbar, automatisk popup.
- I boksen Gør rullelisten søgbar dialogboksen skal du klikke på OK knappen for at gemme indstillingen.
Resultat
Når konfigurationen er fuldført, vil et klik på en rullelistecelle inden for det angivne område få vist en listeboks. Når du indtaster tegn, så længe ét element matcher nøjagtigt, fremhæves hele ordet straks i listeboksen og kan udfyldes i rullelistens celle ved blot at trykke på Enter-tasten.
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.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!