Hur fyller jag i automatiskt när du skriver i rullgardinslistan i Excel?

För en rullgardinslista för datavalidering med många objekt måste du bläddra upp och ner i listan för att hitta den du behöver eller skriva in hela ordet i listrutan korrekt. Finns det något sätt att göra rullgardinsmenyn automatiskt komplett när du skriver in motsvarande tecken? Detta skulle hjälpa människor att arbeta mer effektivt i kalkylblad med rullgardinslistor i celler. Denna handledning innehåller två metoder som hjälper dig att uppnå det.

Gör rullgardinslistor autokompletterande med VBA-kod
Gör enkelt rullgardinslistor autokompletterande på 2 sekunder
Fler handledning för rullgardinsmenyn ...

Gör rullgardinslistor autokompletterande med VBA-kod

Gör så här för att göra en rullgardinslista autofullständig efter att ha skrivit motsvarande bokstäver i cellen.

För det första måste du infoga en kombinationsruta i kalkylbladet och ändra dess egenskaper.

1. Öppna kalkylbladet som innehåller rullgardinslistans celler som du vill göra dem autoslutföra.
2. Innan du infogar en kombinationsruta måste du lägga till fliken Utvecklare i Excel-bandet. Om fliken Utvecklare visas på menyfliksområdet, växla till steg 3. Annars gör du så här för att få upp fliken Utvecklare i menyfliksområdet: Klicka på "Arkiv" > "Alternativ" för att öppna fönstret "Alternativ". I det här "Excel-alternativ"-fönstret klickar du på "Anpassa menyfliksområdet" i den vänstra rutan, markerar rutan "Utvecklare" och klickar sedan på knappen "OK". Se skärmdump:
   
3. Klicka på "Utvecklare" > "Infoga" > "Kombobox (ActiveX Control)".
   
4. Rita en kombinationsruta i det aktuella kalkylbladet. Högerklicka på den och välj sedan "Egenskaper" från högerklicksmenyn.
   
5. I dialogrutan "Egenskaper" ersätter du originaltexten i fältet "(Namn)" med "TempCombo."
   
6. Stäng av "Design Mode" genom att klicka på "Utvecklare" > "Design Mode".

Tillämpa sedan nedanstående VBA-kod

1. Högerklicka på den aktuella arkfliken och klicka på "Visa kod" från snabbmenyn. Se skärmdump:
   
2. I öppningsfönstret "Microsoft Visual Basic for Applications", kopiera och klistra in nedanstående VBA-kod i kalkylbladets kodfönster.
   VBA-kod: Autoslutför när du skriver i rullgardinsmenyn

   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

   
3. Tryck på "Alt + Q"-tangenterna samtidigt för att stänga Microsoft Visual Basic-applikationsfönstret.

Från och med nu, när du klickar på en rullgardinsmeny, kommer rullgardinslistan att fråga automatiskt. Du kan börja skriva in bokstaven för att göra motsvarande objekt automatiskt komplett i vald cell. Se skärmdump:

Gör enkelt rullgardinslistan autokompletterande på 2 sekunder

För de flesta Excel-användare är ovanstående VBA-metod svår att bemästra. Men med funktionen "Sökbar rullgardinslista" i Kutools for Excel, kan du enkelt aktivera autofyllning för datavalideringslistor inom ett angivet intervall på bara 2 sekunder. Dessutom är den här funktionen tillgänglig för alla Excel-versioner.

1. För att aktivera autofyllning i dina rullgardinsmenyer, markera först området med rullgardinsmenyerna. Navigera sedan till "KutoolsPå fliken "väljer du "Listruta" > "Gör rullgardinslistan sökbar, popup automatiskt".
2. I dialogrutan "Gör rullgardinslistan sökbar" klickar du på knappen "OK" för att spara inställningen.

Resultat

När konfigurationen är klar kommer en listruta att visas genom att klicka på en rullgardinslista inom det angivna intervallet. När du skriver in tecken, så länge som ett objekt matchar exakt, markeras hela ordet omedelbart i listrutan och kan fyllas i i rullgardinslistan genom att helt enkelt trycka på Enter-tangenten.

Relaterade artiklar: