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 ...
Gør som følger for at lave en rulleliste, der automatisk udfyldes, når du har skrevet de tilsvarende bogstaver i cellen.
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.
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)
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.
