Dacă aveți o listă derulantă de validare a datelor cu elemente mari, trebuie să derulați în sus și în jos în listă doar pentru a o găsi pe cea corectă sau să tastați întregul cuvânt direct în caseta de listă. Dacă există o metodă pentru a permite completarea automată la introducerea primei litere din lista derulantă, totul va deveni mai ușor. Acest tutorial va oferi o metodă VBA pentru a vă ajuta să o realizați.
Completați automat când introduceți lista verticală cu cod VBA
Mai multe tutoriale pentru lista derulantă ...
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ă.
1. Deschideți foaia de lucru care conține celula listă derulantă pe care doriți să o completați automat.
2. Înainte de a insera o casetă Combo, trebuie să adăugați fila Dezvoltator la panglica Excel. Dacă pe panglică apare fila Dezvoltator, treceți la pasul 3. În caz contrar, procedați după cum urmează: Faceți clic pe 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. Opriți Mod de proiectare dând clicuri Dezvoltator > Mod de proiectare.
7. Faceți clic dreapta pe fila de foi curentă și faceți clic pe Afișați codul din meniul contextual. Vedeți captura de ecran:
8. Î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
9. presa 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:
Notă: Acest cod nu funcționează pentru celulele îmbinate.
Creați cu ușurință o listă derulantă cu casete de selectare în Excel:
Platforma Listă derulantă cu casete de selectare utilitatea Kutools pentru Excel vă poate ajuta să creați cu ușurință o listă derulantă cu casete de selectare într-un interval specificat, foaia de lucru curentă, registrul de lucru curent sau toate registrele de lucru deschise în funcție de nevoile dvs.
Descărcați și încercați acum! (Traseu gratuit de 30 de zile)
Cum se creează o listă derulantă cu mai multe casete de selectare în Excel?
Mulți utilizatori Excel tind să creeze o listă derulantă cu mai multe casete de selectare pentru a selecta mai multe articole din listă de fiecare dată. De fapt, nu puteți crea o listă cu mai multe casete de selectare cu validare date. În acest tutorial, vă vom arăta două metode pentru a crea o listă derulantă cu mai multe casete de selectare în Excel. Acest tutorial oferă metoda de rezolvare a problemei.
Creați o listă verticală dintr-un alt registru de lucru în Excel
Este destul de ușor să creați o listă verticală de validare a datelor printre foile de lucru dintr-un registru de lucru. Dar dacă datele listei de care aveți nevoie pentru validarea datelor se află într-un alt registru de lucru, ce ați face? În acest tutorial, veți afla cum să creați o listă de eliminare dintr-un alt registru de lucru în Excel în detalii.
Creați o listă drop-down căutabilă în Excel
Pentru o listă verticală cu numeroase valori, găsirea unuia corect nu este o lucrare ușoară. Anterior, am introdus o metodă de completare automată a listei derulante atunci când introduceți prima literă în caseta derulantă. Pe lângă funcția de completare automată, puteți face ca lista derulantă să poată fi căutată pentru îmbunătățirea eficienței de lucru în găsirea valorilor corespunzătoare în lista derulantă. Pentru ca lista derulantă să poată fi căutată, încercați metoda din acest tutorial.
Completați automat alte celule atunci când selectați valorile din lista verticală Excel
Să presupunem că ați creat o listă derulantă pe baza valorilor din intervalul de celule B8: B14. Când selectați orice valoare din lista derulantă, doriți ca valorile corespunzătoare din intervalul de celule C8: C14 să fie populate automat într-o celulă selectată. Pentru rezolvarea problemei, metodele din acest tutorial vă vor face o favoare.
