/ / VBA Combo Box Excel

Excel VBA Combo Box

O casetă combo este o listă derulantă de unde un utilizator poate selecta un element sau poate să-și completeze propria alegere. Pentru a crea un cutie combo î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 Combo Box.

Creați o casetă combo în Excel VBA

3. Glisați o cutie combo pe foaia de lucru.

Trageți o cutie combo

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 ComboBox1 ca numele casetei combo.

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 combo, adăugați următoarele linii de cod la evenimentul Open Book:

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

Notă: utilizați fișierul Sheet2 dacă caseta combo este localizată pe cea de-a doua foaie de lucru, Sheet3 dacă caseta combo 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 linii de cod de mai jos linii de cod. Prima linie de coduri elimină caseta combo. În acest fel, elementele dvs. nu vor fi adăugate de mai multe ori dacă executați codul de mai multe ori. A doua linie de cod vă șterge propria alegere.

ComboBox1.Clear
ComboBox1.Value = ""

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

LinkedCell

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

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

Rezultat:

Cutia combo

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

De asemenea, citiți: