Cum se completează automat când tastați în lista verticală Excel?

Pentru o listă derulantă de validare a datelor cu multe elemente, trebuie să derulați în sus și în jos în listă pentru a-l găsi pe cel de care aveți nevoie sau să introduceți corect întreg cuvântul în caseta cu listă. Există vreo modalitate de a face lista derulantă să se completeze automat atunci când tastați caracterele corespunzătoare? Acest lucru ar ajuta oamenii să lucreze mai eficient în foi de lucru cu liste derulante în celule. Acest tutorial oferă două metode pentru a vă ajuta să realizați acest lucru.

Faceți listele derulante să se completeze automat cu codul VBA
Completați cu ușurință listele derulante în 2 secunde
Mai multe tutoriale pentru lista derulantă ...

Faceți listele derulante să se completeze automat cu codul VBA

Vă rugăm să faceți următoarele pentru a realiza o completare automată a listei drop-down după ce ați scris literele corespunzătoare în celulă.

În primul rând, trebuie să inserați o casetă combinată în foaia de lucru și să modificați proprietățile acesteia.

1. Deschideți foaia de lucru care conține celulele listei derulante pe care doriți să le completați automat.
2. Înainte de a introduce o casetă Combo, trebuie să adăugați fila Dezvoltator la panglica Excel. Dacă fila Dezvoltator este afișată pe panglică, treceți la pasul 3. În caz contrar, procedați după cum urmează pentru a afișa fila Develper în panglică: Faceți clic Fișier > Opţiuni pentru a deschide Opţiuni fereastră. In acest Opțiuni Excel fereastră, faceți clic pe Personalizați panglica în panoul din stânga, verificați Dezvoltator , apoi faceți clic pe OK buton. Vedeți captura de ecran:
   
3. Clic Dezvoltator > Insera > Combo Box (control ActiveX).
   
4. Desenați o casetă combinată în foaia de lucru curentă. Faceți clic dreapta pe el și apoi selectați Proprietăţi din meniul cu clic dreapta.
   
5. În Proprietăţi caseta de dialog, vă rugăm să înlocuiți textul original în (Nume) câmp cu TempCombo.
   
6. Închide Mod de proiectare dând clicuri Dezvoltator > Mod de proiectare.

Apoi, aplicați codul VBA de mai jos

1. Faceți clic dreapta pe fila foaia curentă și faceți clic Afișați codul din meniul contextual. Vedeți captura de ecran:
   
2. În deschidere Microsoft Visual Basic pentru aplicații fereastră, vă rugăm să copiați și să lipiți codul VBA de mai jos în fereastra Cod a foii de lucru.
   Cod VBA: completare automată la introducerea listei derulante

   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. Anunturi Alt + Q tastele simultan pentru a închide Aplicații Microsoft Visual Basic fereastră.

De acum înainte, când faceți clic pe o celulă din lista verticală, lista verticală va solicita automat. Puteți începe să tastați litera pentru a completa automat articolul corespunzător în celula selectată. Vedeți captura de ecran:

Completați cu ușurință lista derulantă în 2 secunde

Pentru majoritatea utilizatorilor Excel, metoda VBA de mai sus este greu de stăpânit. Dar cu Listă derulantă căutabilă caracteristică a Kutools pentru Excel, puteți activa cu ușurință completarea automată pentru listele drop-down de validare a datelor în un interval specificat în doar 2 secunde. În plus, această caracteristică este disponibilă pentru toate versiunile Excel.

varful: Înainte de a aplica acest instrument, vă rugăm să instalați Kutools pentru Excel in primul rand. Accesați descărcarea gratuită acum.

1. Pentru a activa completarea automată în listele dvs. derulante, mai întâi selectați intervalul cu meniurile derulante. Apoi, navigați la Kutools fila, alegeți Lista verticală > Faceți ca lista derulantă să fie căutată, pop-up automat.
2. În Faceți ca lista derulantă să fie căutată caseta de dialog, faceți clic pe OK pentru a salva setarea.

Rezultat

Odată ce configurarea este completă, făcând clic pe o celulă din listă derulantă din intervalul specificat va apărea o casetă de listă. Când introduceți caractere, atâta timp cât un element se potrivește exact, întregul cuvânt este imediat evidențiat în caseta de listă și poate fi populat în celula listei derulante prin simpla apăsare a tastei Enter.

Legate de articole: