O casetă combinată este o listă derulantă de unde un utilizator poate selecta un articol sau își poate completa propria alegere. Pentru a crea un casetă combinată în Excel VBA, executați pașii următori.
1. În fila Dezvoltator, faceți clic pe Inserare.
2. În grupul ActiveX Controls, faceți clic pe Casetă combinată.
3. Trageți o casetă combinată pe foaia de lucru.
Notă: puteți schimba numele unui control făcând clic dreapta pe control (asigurați-vă că este selectat Modul de proiectare) și apoi faceți clic pe Proprietăți. Deocamdată, vom lăsa ComboBox1 ca nume al casetei combinate.
Creați un eveniment deschis de registru de lucru. Codul adăugat la Evenimentul deschis al registrului de lucru 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 în Project Explorer.
6. Alegeți Cartea de lucru din lista verticală din stânga și alegeți Deschidere din lista verticală din dreapta.
7. Pentru a adăuga elemente în caseta combinată, adăugați următoarele linii de cod la Evenimentul deschis al registrului de lucru:
Cu Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "Londra"
Se termina cu
Notă: utilizați Sheet2 dacă caseta dvs. combinată este situată pe a doua foaie de lucru, Sheet3 dacă caseta dvs. combo este situată pe a treia foaie de lucru etc. Dacă utilizați aceste linii de cod în afara evenimentului Open Workbook, vă recomandăm să adăugați liniile de cod de mai jos înainte de aceste linii de cod. Prima linie de cod șterge caseta combinată. În acest fel, articolele dvs. nu vor fi adăugate de mai multe ori dacă executați codul dvs. de mai multe ori. A doua linie de cod vă șterge propria alegere.
ComboBox 1. Ștergeți
ComboBox1.Value = ""
8. Pentru a lega această casetă combinată de o celulă, faceți clic dreapta pe caseta combo (asigurați-vă că este selectat modul de proiectare) și faceți clic pe Proprietăți. Completați D2 pentru LinkedCell.
Notă: consultați și proprietatea ListFillRange pentru a umple o casetă combinată cu o gamă de celule.
9. Salvați, închideți și redeschideți fișierul Excel.
Rezultat:
Deși în unele situații poate fi util să plasați direct o casetă combinată pe foaia dvs. de lucru, o casetă combinată este deosebit de utilă atunci când este plasată pe un formular de utilizator.
