Meniul
AcasăPrograme

O formulă este utilizată pentru a crea o listă derulantă. Creați liste derulante legate în Excel - cel mai simplu mod

Pentru ca utilizatorii să lucreze mai ușor cu o foaie de lucru, adăugați liste derulante în celule, astfel încât să poată selecta elementul pe care îl doresc.

    Pe o nouă foaie de lucru, introduceți datele care doriți să apară în lista derulantă. Este de dorit ca elementele din listă să fie conținute într-un tabel Excel. Dacă nu este cazul, puteți converti rapid lista într-un tabel selectând orice celulă din interval și apăsând CTRL+T.

    Note:

  1. Selectați celula din foaia de lucru în care doriți să plasați lista verticală.

    Pe panglică, deschideți fila Dateși apăsați butonul Verificarea datelor.

    Notă: Dacă butonul Verificarea datelor indisponibilă, foaia poate fi protejată sau partajată. Deblocați anumite zone ale registrului de lucru protejat sau anulați accesul la foaia de lucru, apoi repetați pasul 3.

    Pe fila Opțiuniîn câmp Tip de date selectați elementul Listă.

    Faceți clic pe câmp Sursăși evidențiați intervalul listei. În exemplu, datele se află pe foaia Orașe în intervalul A2:A9. Rețineți că rândul antetului nu se află în interval, deoarece nu este una dintre opțiunile disponibile pentru selecție.

    Dacă puteți lăsa celula goală, bifați caseta de selectare Ignorați celulele goale.

    Bifeaza casuta Lista de valori valide

    Deschide fila Mesaj de introdus.


  2. Deschide fila Mesaj de eroare.


  3. Nu știu ce opțiune să selectez în câmp Vedere?

Lucrul cu o listă derulantă

După ce ați creat meniul drop-down, asigurați-vă că funcționează așa cum doriți. De exemplu, poate doriți să verificați dacă lățimile coloanelor și înălțimile rândurilor trebuie modificate, astfel încât să fie afișate toate înregistrările.

Descărcarea exemplelor

Vă sugerăm să descărcați un exemplu de carte cu mai multe exemple de verificare a datelor, similar cu exemplul din acest articol. Puteți să le utilizați sau să vă creați propriile scripturi de verificare a datelor. Descărcați exemple de validare a datelor Excel

Puteți introduce datele mai rapid și mai precis, limitând valorile dintr-o celulă la opțiuni dintr-o listă derulantă.

Mai întâi, creați o listă de elemente valide pe foaia de lucru, apoi sortați sau aranjați-le în ordinea dorită. Aceste elemente pot servi ulterior ca sursă pentru o listă derulantă de date. Dacă lista este mică, o puteți face referire cu ușurință și puteți introduce articole direct în verificatorul de date.

Listele drop-down fac introducerea datelor în foile de calcul ușor și convenabil. Doar faceți clic pe săgeată și selectați o opțiune. Puteți adăuga liste derulante la celulele Excel care conțin opțiuni precum Da și Nu, Bărbați și Femei sau orice altă listă personalizată de opțiuni.

Adăugați o listă drop-down la o celulă în Excel destul de simplu, dar procesul nu este intuitiv. Listele derulante sunt create folosind funcția de validare a datelor. Vom crea o listă derulantă cu un set de intervale de vârstă pentru a vă arăta cum se face.

Pentru a începe, introduceți o listă de intervale de vârstă în celule secvențiale după coloană sau rând. Am introdus intervalele noastre de vârstă în celulele A9 la A13 pe aceeași foaie de lucru, așa cum se arată mai jos. De asemenea, puteți adăuga lista de opțiuni într-o altă foaie de lucru din același registru de lucru.

Acum vom denumi gama noastră de celule pentru a le ușura adăugarea în lista drop-down. Pentru a face acest lucru, selectați toate celulele care conțin elemente din lista derulantă, apoi introduceți un nume pentru intervalul de celule în caseta Nume de deasupra grilei. Ne-am numit gama Vârstă.

Acum selectați celula în care doriți să adăugați lista verticală și accesați fila Date.

Sub fila Instrumente de date Date Faceți clic pe butonul Validare date.

Se deschide caseta de dialog Validare date. În fila Opțiuni, selectați Listă din lista drop-down Tip de date.

Vom folosi acum Numele pe care l-am atribuit intervalului de celule care conține opțiunile din lista derulantă. introduce =Vârstaîn câmpul „Sursă” (dacă ați denumit gama de celule altceva, înlocuiți „Vârsta” cu acel nume). Asigurați-vă că caseta de selectare Ignorați celulele goale marcat.

Puteți adăuga un mesaj pop-up care se afișează atunci când este selectată o celulă dintr-o listă derulantă. Pentru a face acest lucru, faceți clic pe fila Mesaj de introdusîn caseta de dialog Validare date. Asigurați-vă că caseta de selectare Afișați sfatul explicativ dacă celula este curentă instalat. Introduceți un mesaj în câmpurile Titlu și Mesaj, apoi faceți clic pe OK.

Când este selectată celula care conține lista derulantă, veți vedea un buton săgeată în jos în partea dreaptă a celulei. Dacă ați adăugat un mesaj de intrare, acesta va apărea sub celulă. Butonul săgeată în jos apare numai atunci când este selectată o celulă.

Faceți clic pe butonul săgeată în jos pentru a afișa o listă de opțiuni și selectați una.

Dacă decideți că doriți să eliminați lista derulantă dintr-o celulă, deschideți caseta de dialog Validare date așa cum este descris mai sus și faceți clic pe butonul Șterge tot, care este disponibil indiferent de fila selectată în caseta de dialog.

Opțiunile din caseta de dialog Validare date sunt resetate la valorile implicite. Faceți clic pe OK pentru a elimina meniul derulant și a restabili celula la valoarea implicită.

Dacă a fost selectată o opțiune, atunci când lista derulantă este ștearsă, celula va fi completată cu valoarea acelei opțiuni.

Urmați acest proces pentru a adăuga liste derulante la alte celule după cum este necesar. Puteți utiliza aceeași listă pentru mai multe liste derulante.

Dacă aveți multe liste derulante pe care trebuie să le adăugați la o foaie de lucru, vă recomandăm să plasați listele de opțiuni într-o foaie de lucru Excel separată și să ascundeți foaia de lucru pentru a preveni modificările opțiunilor.

Dacă completați un tabel în Excel, iar datele dintr-o coloană pot fi uneori repetate, de exemplu, numele unui produs sau numele unui angajat, atunci pentru a nu introduce de fiecare dată parametrul dorit, acesta este mai simplu și mai ușor să creezi o listă derulantă și să selectezi o valoare din ea.

În acest articol ne vom uita la cum să facem liste derulante de diferite tipuri într-un tabel Excel.

Creați o listă derulantă simplă

Pentru a face acest lucru, în celulele A1:A7 introducem datele care vor fi afișate în listă. Acum să selectăm celula în care vom crea o listă derulantă - B2.

Accesați fila „Date” și faceți clic pe butonul „Verificarea datelor”.

În fila „Parametri”, în câmpul „Tip de date”, selectați „Lista”. Puteți introduce valori în câmpul Sursă în diferite moduri:

1 – introduceți manual valorile pentru listă, separate prin punct și virgulă;

2 – indicați intervalul de celule în care sunt introduse datele pentru lista derulantă;

3 – selectați celulele cu nume, faceți clic dreapta pe ele și selectați „Atribuiți un nume” din meniu.

Selectați celula B2 și puneți „=” în câmpul „Sursă”, apoi scrieți numele creat.

Așa că am creat o listă derulantă simplă în Excel.

Dacă aveți un antet pentru o coloană și trebuie să completați fiecare rând cu valori, atunci selectați nu o celulă, ci un interval de celule - B2:B9. Apoi puteți selecta valoarea dorită în fiecare celulă din lista derulantă.

Adăugarea de valori la o listă derulantă - listă dinamică

În acest caz, vom adăuga valori la intervalul necesar, iar acestea vor fi adăugate automat în lista derulantă.

Selectați intervalul de celule – D1:D8, apoi faceți clic pe fila „Acasă”. „Format ca tabel” si alege orice stil.

Confirmați locația datelor și bifați caseta „Tabel cu anteturi”.

În partea de sus scriem titlul tabelului - „Angajați” și îl completăm cu date.

Selectați celula în care va fi lista verticală și faceți clic pe butonul „Verificarea datelor”. În fereastra următoare, în câmpul „Sursă”, scrieți următoarele: =INDIRECT(„Tabel 1[Angajați]”). Am un tabel pe o foaie, așa că scriu „Tabel1”, dacă există un al doilea, scriu „Tabel2” și așa mai departe.

Acum să adăugăm un nou nume de angajat la lista noastră: Ira. A apărut în lista derulantă. Dacă ștergem orice nume din tabel, acesta va fi șters și din listă.

Listă derulantă cu valori dintr-o altă foaie

Dacă tabelul cu liste derulante este pe o foaie, iar datele pentru aceste liste sunt pe alta, atunci această funcție ne va ajuta foarte mult.

Pe foaia 2, selectați o celulă sau un interval de celule, apoi faceți clic pe butonul „Verificarea datelor”.

Mergeți la Foaia 1, plasați cursorul în câmpul „Sursă” și selectați intervalul dorit de celule.

Acum puteți adăuga nume pe foaia 1, acestea vor fi adăugate la listele derulante de pe foaia 2.

Crearea de liste derulante dependente

Să presupunem că avem trei intervale: prenume, nume de familie și patronimice ale angajaților. Pentru fiecare, trebuie să atribuiți un nume. Selectăm celulele acestui interval, le puteți goli și pe cele - în timp, puteți adăuga date la ele, care vor apărea în lista derulantă. Faceți clic dreapta pe ele și selectați „Atribuiți un nume” din listă.

Pe primul îl numim „Nume”, pe al doilea – „Nume”, pe al treilea – „Tată”.

Să facem un alt interval în care vor fi scrise numele atribuite. Să-i spunem „Angajați”.

Facem prima listă derulantă, care va consta din numele intervalelor. Selectați celula E1 și pe fila „Date” selectați „Verificarea datelor”.

În câmpul „Tip de date”, selectați „List”, în câmpul sursă, fie introduceți „=Angajați”, fie selectați o serie de celule cărora i-a fost atribuit un nume.

Prima listă derulantă a fost creată. Acum, în celula F2, vom crea o a doua listă, care ar trebui să depindă de prima. Dacă în primul selectam „Nume”, în al doilea va fi afișată o listă de nume, dacă selectăm „Nume” - o listă de nume de familie.

Selectați celula și faceți clic pe butonul „Verificarea datelor”. În câmpul „Tip de date”, selectați „List”, în câmpul sursă introducem următoarele: =INDIRECT($E$1) . Aici E1 este celula cu prima listă derulantă.

Folosind acest principiu, puteți crea liste derulante dependente.

Dacă în viitor, va trebui să introduceți valorile într-un interval căruia i se dă un nume, de exemplu, „Nume”. Accesați fila „Formule” și faceți clic „Manager de nume”. Acum selectați „Nume” în numele intervalului, iar mai jos, în loc de ultima celulă C3, scrieți C10. Faceți clic pe bifa. După aceasta, intervalul va crește și puteți adăuga date la acesta, care vor apărea automat în lista derulantă.

Acum știi cum să faci o listă derulantă în Excel.

Evaluează acest articol:

(1 evaluări, medie: 5,00 din 5)

Webmaster. Studii superioare cu o diplomă în Securitate Informațională.Autor al majorității articolelor și lecțiilor de alfabetizare informatică

Listele derulante sunt un obiect foarte convenabil care este folosit în aproape toate aplicațiile. În plus, sunt foarte populare pe paginile web deoarece este mult mai ușor să selectezi datele decât să le introduci manual. Astfel de formulare sunt solicitate în special în timpul înregistrării. Dar sunt adesea folosite și în Excel. În acest articol ne vom uita la cum să facem o listă derulantă în editorul Excel.

Există mai multe moduri în acest scop. Să le aruncăm o privire mai atentă. Primul pas este să creați un tabel cu o listă mică.

Pentru ca datele să fie înlocuite dintr-un tabel, este suficient să faceți următoarele.

  1. Treceți la primul pătrat gol după lista dvs.

  1. Faceți un clic dreapta. Apoi selectați elementul indicat.

  1. Acest lucru va duce la apariția următoarei liste.

  1. Pentru a naviga prin el, trebuie doar să apăsați tastele rapide Alt +↓.

Această combinație poate fi întotdeauna folosită. În viitor, nu este necesar să apelați meniul contextual.

  1. Apoi puteți folosi doar săgețile (↓ și ). Pentru a introduce produsul dorit (în cazul nostru), trebuie doar să apăsați tasta Enter.

Această metodă funcționează excelent și atunci când tabelul conține valori duplicate. În acest caz, numai intrările unice vor fi în lista derulantă.

Vă rugăm să rețineți că această metodă nu funcționează dacă selectați o celulă deasupra căreia nu există informații.

Standard

În acest caz este necesar:

  1. Selectați celulele necesare. Accesați fila „Formule”. Faceți clic pe butonul „Nume definite”. Selectați „Manager de nume”.

  1. Apoi faceți clic pe „Creați”.

  1. În continuare, va trebui să specificați numele dorit (nu puteți utiliza simbolul liniuță sau spațiu). În coloana intervalului, va avea loc completarea automată, deoarece celulele necesare au fost selectate chiar de la început. Pentru a salva, faceți clic pe „OK”.

  1. Apoi închideți această fereastră.

  1. Selectați celula în care se va extinde lista viitoare. Deschideți fila Date. Faceți clic pe pictograma indicată (triunghi). Faceți clic pe elementul „Verificarea datelor”.

  1. Faceți clic pe „Tipul de date”. Valoarea trebuie să fie „List”.

  1. Ca rezultat, va apărea câmpul „Sursă”. Click acolo.

  1. Apoi selectați celulele dorite. Numele creat anterior va fi înlocuit automat. Pentru a continua, faceți clic pe „OK”.

  1. Datorită acestor acțiuni, veți vedea un element ca acesta.

Dacă activați o altă celulă, pictograma listei derulante va dispărea. Este afișat numai atunci când acea celulă devine activă. Prin urmare, nu trebuie să te sperii și să crezi că totul a dispărut din tine.

Cum să activați modul dezvoltator

Pentru a utiliza obiecte mai avansate, trebuie să utilizați fila Dezvoltator. Implicit este dezactivat. Pentru a-l activa, trebuie să urmați următoarele instrucțiuni.

  1. Faceți clic pe meniul „Fișier”.

  1. Accesați secțiunea „Opțiuni”.

  1. Deschideți categoria „Personalizați panglica”. Apoi bifați caseta de lângă „Dezvoltator”. Pentru a salva informațiile, faceți clic pe „OK”.

Controale

Pentru a crea liste folosind acest instrument, trebuie să faceți următoarele:

  1. Evidențiați tabelul de date. Accesați fila Dezvoltator. Faceți clic pe pictograma „Inserare”. Faceți clic pe elementul specificat.

  1. Pictograma indicatorului se va schimba, de asemenea.

  1. Selectați un dreptunghi. Aceasta este exact dimensiunea pe care o va avea butonul viitor. Nu trebuie să fie prea mare. În cazul nostru, acesta este doar un exemplu.

  1. După aceasta, faceți clic dreapta pe acest element. Apoi selectați Object Format.

  1. În fereastra „Format obiect” trebuie să:
    • Specificați intervalul de valori pentru a forma lista.
    • Selectați celula în care va fi afișat rezultatul.
    • Specificați numărul de linii ale listei viitoare.
    • Faceți clic pe „OK” pentru a salva.

  1. Faceți clic pe acest element. Apoi veți vedea opțiuni din care să alegeți.

  1. Ca rezultat, veți vedea un număr. 1 – corespunde primului cuvânt, iar 2 – celui de-al doilea. Adică, în această celulă este afișat doar numărul de serie al cuvântului selectat.

ActiveX

Pentru a utiliza acest element, trebuie să efectuați următoarele operații.

  1. Accesați fila Dezvoltator. Faceți clic pe pictograma „Inserare”. De data aceasta, selectați un alt instrument. Arată exact la fel, dar face parte dintr-un grup diferit.

  1. Vă rugăm să rețineți că veți avea activat modul design. În plus, aspectul indicatorului se va schimba.

  1. Click undeva. O listă derulantă va apărea în această locație. Dacă vrei să-l mărești, tot ce trebuie să faci este să-i tragi marginile.

  1. Faceți clic pe pictograma indicată.

  1. Acest lucru va face ca o fereastră Proprietăți să apară în partea dreaptă a ecranului, unde puteți modifica diferite setări pentru elementul selectat.

În acest caz, valorile și proprietățile se vor schimba în funcție de elementul activ în acest moment. Aici puteți schimba totul, chiar și fontul.

  1. În câmpul „ListFilRange”, specificați intervalul de celule în care se află datele dvs. pentru lista viitoare. Completarea datelor trebuie să fie foarte atentă. Tot ce trebuie să faceți este să introduceți o literă greșită și veți vedea o eroare.

  1. Apoi, trebuie să faceți clic dreapta pe elementul creat. Selectați obiectul Combobox. Apoi – „Editați”.

  1. Datorită acestor acțiuni, veți vedea că aspectul obiectului s-a schimbat. Capacitatea de a redimensiona va dispărea.

  1. Acum puteți alege în siguranță orice din această listă.

  1. Pentru a finaliza, trebuie să dezactivați Modul Design. După aceasta, cartea va căpăta un aspect standard.

  1. De asemenea, trebuie să închideți fereastra de proprietăți.

Eliminarea obiectelor ActiveX este destul de simplă.

  1. Accesați fila Dezvoltator.
  2. Activați „Modul de proiectare”.

  1. Faceți clic pe acest obiect.

  1. Faceți clic pe tasta rapidă Ștergere.
  2. Și totul va dispărea imediat.

Liste aferente

Pentru a crea liste pe două niveluri, trebuie să efectuați câteva operații simple:

  1. Creați un tabel similar. Condiția principală este că trebuie să adăugați mai multe opțiuni suplimentare pentru fiecare articol.

  1. Apoi evidențiați prima linie. Nu în totalitate, ci doar opțiuni posibile. Apelați meniul contextual cu un clic dreapta. Selectați „Atribuiți un nume...”.

  1. Specificați numele dorit și salvați setarea. Inserarea unui interval de celule se va întâmpla automat, deoarece ați selectat anterior celulele dorite.

  1. Repetăm ​​aceiași pași pentru rândurile rămase. Selectați orice celulă în care va fi localizată viitoarea listă de produse. Deschideți fila Date și faceți clic pe instrumentul de validare a datelor.

  1. În această fereastră trebuie să selectați elementul „Lista”.

  1. Apoi faceți clic pe câmpul „Sursă” și selectați intervalul dorit de celule.

  1. Pentru a salva, utilizați butonul „OK”.

  1. Selectați a doua celulă în care va fi creată lista dinamică. Accesați fila „Date” și repetați aceiași pași.

În coloana „Tip de date”, indicați din nou „Lista”. În câmpul Sursă, introduceți următoarea formulă.

=INDIRECT(B11)

Ca argument, indicăm un link către celula în care este încărcat sortimentul de produse. Puteți citi mai multe despre el pe site-ul Microsoft.

  1. Asigurați-vă că salvați toate modificările pe care le faceți.

După ce faceți clic pe „OK”, veți vedea o eroare de sursă de date. Nu e nimic în neregulă cu asta. Faceți clic pe „Da”.

Cert este că momentan nu avem nimic selectat în celula „Produs”. De îndată ce există un cuvânt acolo, lista dorită se va încărca automat.

  1. Alege ceva din produsele oferite.

  1. Abia după aceasta veți vedea că opțiunile de selecție pentru elementul corespunzător apar în a doua celulă.

  1. Încercați să enumerați altceva din gama dvs. Și veți vedea că lista se va schimba imediat. Acest lucru este foarte convenabil, deoarece situațiile în care al doilea „meniu” depinde de primul se întâmplă foarte des.

Căutați în liste aferente

În metoda de mai sus, a fost necesar să se creeze „nume” suplimentare pentru fiecare articol. Dar o poți face altfel. Imaginați-vă că aveți o cantitate imensă de date pe o foaie. În plus, aceste informații pot fi modificate, completate sau șterse. Cum să fii în acest caz? Configurați manual totul din nou de fiecare dată este o idee foarte proastă.

În astfel de situații, trebuie să utilizați construcția dinamică a listelor derulante. Acest lucru se face după cum urmează.

  1. Creați un tabel care să arate așa. În partea dreaptă, am enumerat intrări unice în prima coloană. În cazul nostru, acestea sunt orașe.

  1. Selectați orice celulă. Accesați fila Date și faceți clic pe instrumentul de validare a datelor.

  1. Selectați tipul de date dorit. În sursă indicăm intervalul necesar. Salvați folosind butonul „OK”.

  1. Faceți clic pe altă celulă și repetați pașii descriși mai devreme pentru a deschide aceeași fereastră.

  1. Indicăm exact același tip de date, dar de data aceasta indicăm următoarea formulă în sursă.
=OFFIS($B$1,POITIRE($F$6,$B:$B,0)-1,1,COUNTIF($B:$B,$F$6),1)

După salvare, va apărea o eroare care indică faptul că sursa este goală. Faceți clic pe butonul „Da”.

  1. Alegeți ceva dintre opțiunile oferite.

  1. Apoi verificați dacă exact acele înregistrări apar în a doua celulă care corespund orașului selectat.

  1. Încercați să selectați alt oraș - lista se va schimba automat.

Această metodă este convenabilă atunci când tabelul conține o cantitate foarte mare de informații. Mai mult, poate fi plasat haotic, și nu secvenţial, ca în exemplul nostru.

Cel mai important lucru este că valorile din prima coloană sunt scrise la fel. Este suficient să faceți o greșeală de tipar și această linie nu va ajunge în a doua celulă, deoarece valorile sunt căutate literal.

Pentru a face o alegere dublă, trebuie să faceți următoarele.

  1. Faceți clic dreapta pe numele foii pe care se află tabelul și viitoarea listă derulantă.

  1. Selectați „Vizualizare cod” din meniul contextual.

  1. Introduceți următorul cod în fereastra care apare.

Private Sub Worksheet_Change(ByVal Target As Range)

La eroare Reluați Următorul

If Not Intersect(Target, Range("B11")) este Nimic și Target.Cells.Count = 1 Atunci

Application.EnableEvents = False

NewSelectWord = Țintă

Aplicație.Anulați

BeforeWord = Țintă

Dacă Len (înainte de cuvânt)<>0AndBeforeWord<>NewSelectWord Apoi

Target = Target & "," & NewSelectWord

Țintă = NewSelectWord

Dacă Len(NewSelectWord) = 0, atunci Target.ClearContents

Application.EnableEvents = Adevărat

  1. Apoi reveniți la carte și alegeți ceva.

  1. Repetați această acțiune din nou.

  1. Datorită acestui cod, acum puteți selecta mai multe valori. Toate metodele descrise mai sus nu au permis acest lucru, deoarece cuvântul selectat anterior a fost întotdeauna șters.

  1. Pentru a șterge această celulă, trebuie să utilizați tasta Ștergere.

În toate celelalte cazuri, valorile se vor acumula doar.

Concluzie

În acest articol, am analizat diferite moduri de a crea liste derulante în editorul Excel. Dacă lucrurile nu funcționează pentru tine, este posibil să folosești tabelul greșit. Încă o dată, uitați-vă cu atenție la formulele folosite, deoarece pot exista greșeli de scriere. De asemenea, este foarte important să verificați dacă referințele celulelor sunt corecte. Dacă nu aveți fila „Dezvoltator”, înseamnă că ați activat-o incorect sau ați trecut cu vederea acest punct.

Instrucțiuni video

Unii utilizatori consideră că este mult mai ușor să perceapă informații folosind video. Pentru ei le-am pregătit un videoclip special care descrie toate metodele menționate anterior.

Opțiune Opțiune explicită Compare Text Dim bu As Boolean Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Target.Row = 1 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub If Target.Column = 3 Apoi „numărul coloanei în care introducem valorile bu = True With Me.TextBox1 .Top = Target.Top: .Text = Target.Value: .Activate End With With Me. ListBox1 .Top = Target .Top + 5 If (.Top + .Height + ActiveWindow.PointsToScreenPixelsY(0) * Application.InchesToPoints(1) * 15 / 1440) > _ (ActiveWindow.Application.Height + ActiveWindow.Top.) Apoi _ .Sus = .Sus - .Înălțime + Înălțime țintă "* ActiveWindow.Zoom / 100 .Clear End With bu = False Me.TextBox1.Visible = True: Me.ListBox1.Visible = True Else Me.TextBox1.Visible = False: Me.ListBox1 .Visible = False End If End Sub Private Sub TextBox1_Change() If Len(TextBox1.Text) = 0 Sau bu Then Exit Sub "dacă nu există caractere de căutat - exit Dim x, i As Long, txt As String, lt As Long, s As String txt = TextBox1.Text: lt = Len(TextBox1.Text) „Unde căutăm valorile x = Sheets(„nomenclatură”;).Columns(1).SpecialCells( 2).Offset(1).Valoare „(! LANG: Pentru i = 1 To UBound(x, 1)" поиск по первым буквам "If txt = Mid(x(i, 1), 1, lt) Then s = s & x(i, 1) & "~" For i = 1 To UBound(x, 1) "поиск по любому вхождению If InStr(x(i, 1), txt) Then s = s & "~" & x(i, 1) Next i ListBox1.List = Split(s, "~";) End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then With Me.TextBox1 ActiveCell.Value = .Value .Visible = False: ListBox1.Visible = False End With ActiveCell(2, 1).Select End If End Sub Private Sub ListBox1_Click() If ListBox1.ListIndex = -1 Then Exit Sub Application.EnableEvents = False bu = True With Me.ListBox1 ActiveCell.Value = .Value Me.TextBox1.Text = .Value Me.TextBox1.Visible = False: .Visible = False End With Application.EnableEvents = True bu = False End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim lReply As Long If Target.Column = 2 Then Exit Sub If Not Intersect(Target, Range("C2:C100000";)) Is Nothing Then If IsEmpty(Target) Then Exit Sub If WorksheetFunction.CountIf(Sheets("номенклатура";).Columns(1), Target) = 0 Then lReply = MsgBox("Добавить введенное имя " & Target & " в выпадающий список", vbYesNo + vbQuestion) If lReply = vbYes Then Worksheets("номенклатура";).Range("номенклатура";).Cells(Worksheets("номенклатура";).Range("номенклатура";).Rows.Count + 1, 1) = Target End If End If End If Sheets("номенклатура";).Range("номенклатура";).Sort Key1:=Sheets("номенклатура";).Range("A1";), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal "этот код и поможет отсортировать в алфавитном порядке" End Sub !}