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:

Cele mai bune instrumente de productivitate de birou

🤖	Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
	Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
	Super căutare: VLookup cu mai multe criterii  |   VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
	Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
	Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
	Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar   |  Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule   |  Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
	Top 15 seturi de instrumente:  12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Citeşte mai mult ... Descărcare gratuită...

---

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită...