Excel VBA ComboBox
ComboBox je značajka korisničkog obrasca u VBA-u , oni se razlikuju od tekstnih okvira jer se okviri za tekst koriste samo za tekst i dopuštamo korisniku unos bilo koje vrste podataka, ali pomoću kombiniranih okvira ograničavamo korisnika za vrstu odgovora koju želimo stoga su podaci uredni, slično je provjeri podataka s popisa u Excelu.
ComboBox se može usporediti s padajućim popisom u Excelu, na radnim listovima. Za provjeru podataka koristili smo provjeru podataka, no u VBA postoji značajka korisničkog obrasca u kojoj se koristi padajući meni u bilo kojem korisničkom obliku, ali ako želimo koristiti kombinirani okvir u Excelu, možemo također mu pristupite iz odjeljka za programere, odakle možemo stvoriti kombinirane okvire za pojedinačne ili više stanica.
Combo Box vrlo je sličan padajućem popisu koji imamo u excel radnom listu; kombiniranim okvirom možemo pohraniti unaprijed određene vrijednosti kako bi korisnici odabir s popisa učinili dostupnim iz kombiniranog okvira. Combo Box se obično koristi zajedno s korisničkim obrascima kao dio dobivanja podataka od korisnika.
Korisnički obrasci su korisni, ali posjedovanje drugih alata na korisničkom obrascu ono je što čini korisnički obrazac tako posebnim. Jedan od alata koji često koristimo kao alat za korisnički obrazac je "ComboBox".
Top 2 načina stvaranja VBA ComboBox-a
# 1 - Korištenje izravnog kodiranja
Prvo ćemo vidjeti kako koristiti Combo Box s radnim listom. Otvorite bilo koji radni list u Excelovoj radnoj knjizi, idite na karticu Developer i ispod te kartice imamo alat nazvan "Umetni". Kliknite na ovo, a ispod toga imamo dvije mogućnosti Active X kontrole i obrasci u Excelu.
Iz odjeljka "Active X Controls" odaberite "Combo Box".
Sada ovaj objekt možete nacrtati na bilo kojem radnom listu.
Desnom tipkom miša kliknite kombinirani okvir i odaberite opciju "Svojstva".
Kada odaberete svojstva, otvorit će se ogroman popis svojstava kombiniranog okvira.
Za ovaj kombinirani okvir dat ćemo popis naziva odjela, pa promijenite svojstvo imena kombiniranog okvira u „DeptComboBox“.
Sada će se ovaj kombinirani okvir nazivati imenom "DeptComboBox". Moramo dati unaprijed određena imena odjela, pa ovdje imam popis naziva odjela.
Sada ove vrijednosti moramo dodati na popis kombiniranih okvira. To možemo učiniti na dva načina, kodiranjem ili upraviteljem imena.
Dvaput kliknite Combobox i odvest će vas do postupka VBA makronaredbe.
Ali imena ovih odjela moramo vidjeti kad se otvori radna knjiga, pa dvostruko kliknite na "ThisWorkbook".
S padajućeg popisa odaberite "Radna knjiga".
Među opcijama odaberite "Otvori".
Sada će stvoriti prazno mjesto poput donjeg.
Unutar ove makronaredbe unesite donji kod.
Kodirati:
Private Sub Workbook_Open () s radnim listovima ("Sheet1"). DeptComboBox .AddItem "Finance" .AddItem "Marketing" .AddItem "Merchandising" .AddItem "Operations" .AddItem "Audit" .AddItem "Client Servicing" End with End Sub
Ok, sada spremite i zatvorite radnu knjigu. Kad ponovo otvorite radnu knjižicu, mogli bismo vidjeti imena odjela u njoj.
# 2 - Korištenje UserForm
Drugi način dodavanja vrijednosti u ComboBox je pomoću korisničkog obrasca. Prvo dajte ćelijama naziv "Odjel".
Idite na Visual Basic Editor i umetnite korisnički obrazac iz opcije INSERT.
Sada je stvoren novi korisnički obrazac.
Pored korisničkog obrasca, iz ovog okvira s alatima možemo vidjeti "Kutija s alatima", možemo umetnuti "Kombinirani okvir".
Now the combo box is embedded in the user form. In this method, to open the properties option, select the combo box and press the F4 key to open the properties window.
Scroll down the properties tab and choose “Row Source.”
For this “Row Source,” enter the name that we had given to department name cells.
Now this combo box holds the reference of the name “Department.”
Now run the user form by using the run button.
Now we can see a list of department names in the combo box on the user form.
Practically user form is associated with a combo box, text box, and many other tools. We will create a simple data entry user form with a text box & combo box.
Create a user form like the below.
Create two Command Buttons.
Double click on the “SUBMIT” button it will open up below macro.
Inside this macro, add the below code.
Code:
Private Sub CommandButton1_Click () Dim LR Long LR = Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1) .Value = TextBox1.Value Cells (LR, 2) .Value = ComboBox1 .Vrijednost Kraj Sub
Sada dvaput kliknite gumb "OTKAŽI" i dodajte donji kod.
Sada na radnom listu stvorite predložak kao u nastavku.
Sada pokrenite korisnički obrazac i on će se otvoriti ovako.
Unesite ime zaposlenika i odaberite naziv odjela s kombiniranog popisa.
Kliknite gumb PRIJAVI i pogledajte čaroliju.
Dobili smo vrijednosti unesene u format tablice koji smo stvorili.
Stvari koje treba zapamtiti
- COMBO BOX ima i svoja svojstva.
- Dodavanje vrijednosti na popis dolazi na dva načina. Jedan je način kodiranja, a drugi referenca naziva raspona.
- COMBO BOX je obično dio korisničkog obrasca.
