/ / Caseta de listă Excel VBA

Caseta de listă Excel VBA

O casetă listă este o listă de unde un utilizator poate selecta un element. Pentru a crea un listă în Excel VBA, executați următorii pași.

1. În fila Developer, faceți clic pe Insert.

2. În grupul ActiveX Controls, faceți clic pe List Box.

Creați o casetă listă în Excel VBA

3. Glisați o casetă de listă în foaia de lucru.

Trageți o casetă de listă

Notă: puteți schimba numele unui control făcând clic dreapta pe butonul de control (asigurați-vă că este selectat modul de design) și apoi faceți clic pe Proprietăți. Pentru moment, vom lăsa ListBox1 ca numele casetei de listă.

Creați un eveniment deschis în registrul de lucru. Codul adăugat la evenimentul Open Workbook va fi executat de Excel VBA când deschideți registrul de lucru.

4. Deschideți Editorul Visual Basic.

5. Faceți dublu clic pe acest registru de lucru din Project Explorer.

6. Selectați Workbook din lista derulantă din stânga și alegeți Open din lista derulantă din dreapta.

Deschideți evenimentul de lucru în Excel VBA

7. Pentru a adăuga elemente în caseta listă, adăugați următoarele linii de cod la evenimentul Open Book:

With Sheet1.ListBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

Notă: utilizați Sheet2 dacă caseta dvs. de listă este localizată pe a doua foaie de lucru, Sheet3 dacă caseta listă este localizată în cea de-a treia foaie de lucru etc. Dacă utilizați aceste linii de cod în afara evenimentului Workbook Open, vă recomandăm să adăugați următoarea linie de cod înainte de aceste linii de cod. Această linie de coduri elimină caseta din listă. În acest fel, articolele dvs. nu vor fi adăugate de mai multe ori dacă executați codul dvs. de mai multe ori.

ListBox1.Clear

8. Pentru a conecta această casetă listă la o celulă, faceți clic dreapta pe caseta listă (asigurați-vă că modul de design este selectat) și faceți clic pe Proprietăți. Completați D3 pentru LinkedCell.

LinkedCell

Notă: vedeți, de asemenea, proprietatea ListFillRange pentru a umple o casetă listă cu o gamă de celule.

9. Salvați, închideți și redeschideți fișierul Excel.

Rezultat:

Listă cutie

Deși în unele situații poate fi utilă plasarea directă a casetei de listă în foaia dvs. de lucru, o casetă de listă este utilă în special atunci când este plasată pe Userform.

De asemenea, citiți: