Note: The other languages of the website are Google-translated. Back to English

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

Pentru o listă derulantă de validare a datelor cu o mulțime de articole, trebuie să derulați în sus și în jos în listă pentru a-l găsi pe cel de care aveți nevoie sau introduceți corect întreg cuvântul în caseta cu listă. Există metode de a crea o listă derulantă completată automat când tastează prima literă sau caractere relative? Acest lucru va 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.

Completați automat când introduceți lista verticală cu cod VBA
Completare automată când introduceți lista derulantă cu un instrument uimitor

Mai multe tutoriale pentru lista derulantă ...


Completați automat când introduceți lista verticală cu cod 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 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.

Apoi, aplicați codul VBA de mai jos

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.


Completare automată când introduceți lista derulantă cu un instrument uimitor

Deoarece VBA este greu de gestionat pentru mulți utilizatori Excel, aici recomandăm Listă derulantă căutabilă caracteristică a Kutools pentru Excel pentru a vă ajuta să completați cu ușurință o listă derulantă automat când introduceți primul caracter.

notițe: Înainte de a aplica caracteristica, asigurați-vă că ați creat liste derulante în foaia de lucru. În acest caz, listele derulante sunt plasate în D3:D9.

1. clic Kutools > Lista verticală > Listă derulantă căutabilă > setări cont.

2. În fereastra pop-up Listă derulantă căutabilă caseta de dialog, trebuie să efectuați următoarele setări.

2.1) În Aplica pentru secțiunea, specificați un interval sau o foaie de lucru în care doriți să aplicați caracteristica listei derulante care poate fi căutată;
sfaturi: După selectarea Domeniul de aplicare specificat butonul radio, puteți alege Foaia de lucru curentă, Cartea de lucru actuală or Toate registrele de lucru din lista derulantă în funcție de nevoile dvs.
2.2) În Opţiuni secțiunea, alegeți Se potrivește doar cu începutul cuvântului sau opțiunea Caz sensibil opțiune sau ambele;
Se potrivește doar cu începutul cuvântului: Bifați această opțiune, sunt afișate doar elementele care încep cu caracterul introdus, iar primul articol potrivit va fi completat automat în caseta de listă. Debifați această opțiune pentru a afișa elementele care conțin caracterul introdus.
Caz sensibil: bifați această opțiune pentru a efectua potrivire diferențiată între majuscule și minuscule cu caracterele de tastare.
2.3) Faceți clic pe OK.

3. După terminarea setărilor, trebuie să activați funcția făcând clic Kutools > Lista verticală > Listă derulantă căutabilă > Activați lista drop-down căutabilă.

Acum, când faceți clic pe celula listei derulante, este afișată o casetă de listă cu toate elementele. Trebuie doar să tastați un caracter în caseta de text pentru a afișa toate elementele corespunzătoare și să utilizați Up or Jos săgeată pentru a selecta elementul de care aveți nevoie sau lăsați primul element potrivit să completeze automat caseta cu listă, apoi apăsați butonul Intrați tasta pentru a completa automat celula listei derulante cu elementul potrivit. Vezi demonstrația de mai jos.

Faceți clic pentru a afla mai multe despre această caracteristică.

  Dacă doriți să aveți o încercare gratuită (30-zi) a acestei utilitati, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Legate de articole:

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.

Mai multe tutoriale pentru lista derulantă ...


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab
Comentarii (325)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am încercat și a funcționat de doar 2 zile acum în proprietăți, îmi dă un mesaj de eroare la tastarea TempCombo că este un nume ambiguu. Te rog ajuta-ma
Acest comentariu a fost redus la minimum de moderatorul de pe site
Soluție excelentă, mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua... După ce am adăugat această casetă combinată, nu pot copia și lipi alte elemente în foaia de lucru. Îmi permite să copiez prin lipire este gri. De asemenea, există o modalitate de a face caseta combinată să funcționeze în celulele îmbinate? Mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Aceeași problemă ca un alt utilizator - după ce am adăugat această casetă combinată, nu pot să copiez și să inserez dintr-o celulă în alta. Funcția de copiere pare să funcționeze, dar paste, paste special și CTRL+V nu funcționează. Mulțumesc.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Thomas... ai găsit vreodată o soluție la asta? Inca nu am gasit unul.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Niciun răspuns real - mă întorc doar la DEVELOPER și deselectez MOD DE PROIECT când trebuie să copiez și să trec - nu uitați să faceți clic din nou pe MODUL DE PROIECT când ați terminat; în caz contrar, caseta dvs. combo nu va funcționa corect când faceți dublu clic pe o celulă.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Protejez foaia pentru ca formulele să nu poată fi modificate și când protejez foaia, funcționalitatea de completare automată nu mai funcționează. Aveți o soluție pentru asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
ai gasit o solutie pentru asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum pot bloca celulele?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează bine.. Mulțumesc.. Mi-am economisit mult timp.. Încă o dimensiune. Cu acest cod funcționează bine într-o coloană.. Ce modificări trebuie să facem în codul vba pentru a ne asigura că acest cod funcționează în altă coloană, de asemenea, în aceeași foaie, dar cu sursă de validare a datelor diferită
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru ajutor imens. Mult timp al meu va fi economisit. Acest cod funcționează pentru o singură validare a datelor într-o coloană din foaia de lucru.. Ce modificări trebuie să facem în cod pentru a funcționa cu 2 validare de date în 2 coloane separate cu sursă de date separată
Acest comentariu a fost redus la minimum de moderatorul de pe site
Setul meu de date/intervalul denumit folosit pentru lista mea verticală trebuie să fie pe aceeași foaie pentru ca acest lucru să funcționeze? Obțin caseta combinată să fie activată când dau dublu clic pe meniul drop-down, dar când încep să scriu nu apare nimic? Ai idee care ar putea fi problema aici? Am urmat toți pașii de mai sus. Mulțumesc foarte mult, Jared
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am reușit să fac codul să funcționeze, dar am probleme la salvarea fișierului, primesc diferite mesaje de eroare. odată ce l-am salvat și redeschis, funcția de completare automată nu funcționează. Folosesc Excel 2007. Poate cineva să ofere asistență despre cum să salvez fișierul? mult ajutor pe internet, dar nu înțeleg toate comenzile. Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nicăieri nu scrie cum să adăugați elemente în caseta drop-down.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Jonathan, ai aflat cum să faci asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am fost și eu confuz în privința asta la început. Ceea ce mi-am dat seama este că acest cod ar trebui să fie asociat cu orice celulă de validare a datelor din foaia de lucru. Deci, configurați validarea datelor, inclusiv de unde își extrage informațiile, mai întâi, apoi codul va extrage informațiile listei din validarea datelor și va suprapune ComboBox-ul peste celula cu validarea datelor. Sper ca asta ajuta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc pentru solutia utila :-)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am completat lista derulantă de completare automată, cu toate acestea, nu știu cum să arăt valorile după ce am tastat textul în lista derulantă. De exemplu, în FIȘA DE BAZĂ DE DATE, coloana 1 constă din articole, iar coloana 2 și 3 constau din costul articolului. Introducând elementul în lista mea derulantă ÎN FIȘA PRINCIPALA din coloana 1, costul articolelor apare în coloana 2 și 3. Este posibil să se poată face? Ajuta-ma te rog
Acest comentariu a fost redus la minimum de moderatorul de pe site
unde este intervalul listei surse pentru validare?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu uitați să adăugați gama de articole pentru meniul drop-down în proprietatea ComboBox „ListFillRange”
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează foarte bine pentru meniurile drop-down care folosesc ='interval', dar funcționalitatea se întrerupe de îndată ce intervalul este rezultatul unei formule, de exemplu =IF(A1>0,'range','alternative'). Capabil să tastați un TempCombo nepopulat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut! Asta e super. Dar cum pot conecta lista derulantă la Combobox??? va rog ajutati.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua, am o problemă cu asta, nu văd nicio valoare în meniul drop-down. Îmi poate spune cineva cum pot conecta intervalul meu de date cu meniul drop-down? pentru a arăta sugestii. dacă îmi puteți trimite o foaie de calcul completată, ar fi foarte apreciată. (E-mailul meu este deshandsouza@gmail.com)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am o soluție pentru cele de mai sus! Tocmai am ratat lista derulantă de validare a datelor creată. funcționează bine acum.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Woo hoo! Am urmat pașii din Autocompletare când am tastat în lista drop-down cu codul VBA și am obținut exact ceea ce mi-am dorit să se întâmple! Mulțumesc! Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ei bine... a funcționat pentru o singură celulă, dar când am încercat să o fac să funcționeze pentru întreaga coloană, nu am reușit :( Ceea ce am este Col A=Numele articolului Col B= Data creării Col C= Vreau să intru în Categorie, dar am o listă derulantă din care să aleg Am 723 de „Elemente”, deci 723 de rânduri în care vreau să apară lista derulantă pe măsură ce introduc valorile. Orice sugestii? Vă mulțumesc anticipat
Acest comentariu a fost redus la minimum de moderatorul de pe site
dar cum faci lista derulanta din date...
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL