Excel VBA ComboBox
ComboBox je funkcija uporabniškega obrazca v VBA , ki se razlikuje od besedilnih polj, saj se v besedilnih poljih nahaja samo besedilo in uporabniku omogočamo vnos kakršnih koli podatkov, vendar z uporabo kombiniranih polj uporabnika omejimo glede na vrsto odgovora, ki jo želimo tako so podatki urejeni, podobni so preverjanju podatkov seznama v Excelu.
ComboBox lahko primerjate s spustnim seznamom v Excelu na delovnih listih. Za potrditev spustnega seznama smo uporabili preverjanje podatkov, v VBA pa obstaja funkcija uporabniškega obrazca, kjer se uporablja za zagotavljanje spustnega menija v kateri koli uporabniški obliki, če pa želimo uporabiti kombinirano polje v Excelu, lahko do njega lahko dostopate tudi iz razvijalca, od tam lahko ustvarimo kombinirana polja za posamezne ali več celic.
Combo Box je zelo podoben spustnemu seznamu, ki ga imamo na delovnem listu excel; s kombiniranim poljem lahko shranimo vnaprej določene vrednosti, tako da uporabniki omogočijo izbiro s seznama iz kombiniranega polja. Combo Box se običajno uporablja skupaj z uporabniškimi obrazci kot del pridobivanja vnosov od uporabnikov.
Uporabniški obrazci so uporabni, vendar je uporabniški obrazec tako poseben, če imate na njem uporabljena druga orodja. Eno od orodij, ki ga pogosto uporabljamo kot orodje za uporabniško obliko, je »ComboBox«.
Top 2 načina ustvarjanja VBA ComboBox
# 1 - Uporaba neposrednega kodiranja
Najprej bomo videli, kako uporabiti Combo Box z delovnim listom. Odprite kateri koli delovni list v delovnem zvezku excel, pojdite na zavihek Razvijalec in pod tem zavihkom imamo orodje z imenom »Vstavi«. Kliknite na to in pod tem imamo dve možnosti Active X Controls & Control Controls v excelu.
Med možnostmi »Active X Controls« izberite »Combo Box«.
Zdaj lahko ta predmet narišete na katerem koli delovnem listu.
Z desno miškino tipko kliknite kombinirano polje in izberite možnost »Lastnosti«.
Ko izberete lastnosti, se bo odprl ogromen seznam lastnosti kombiniranega polja.
Za to kombinirano polje bomo podali seznam imen oddelkov, zato spremenite lastnost imena kombiniranega polja v »DeptComboBox«.
Zdaj bo to kombinirano polje označeno z imenom »DeptComboBox«. Navesti moramo vnaprej določena imena oddelkov, zato imam tukaj seznam imen oddelkov.
Zdaj moramo te vrednosti dodati na seznam kombiniranih polj. To lahko storimo na dva načina, s kodiranjem ali prek upravitelja imen.
Dvokliknite Combobox in pripeljal vas bo do postopka makra VBA.
Toda imena teh oddelkov moramo videti, ko se delovni zvezek odpre, zato dvokliknite »ThisWorkbook«.
Na spustnem seznamu izberite »Delovni zvezek«.
Med možnostmi izberite »Odpri«.
Zdaj bo ustvaril prazno, kot je spodaj.
Znotraj tega makra vnesite spodnjo kodo.
Koda:
Private Sub Workbook_Open () z delovnimi listi ("Sheet1"). DeptComboBox .AddItem "Finance" .AddItem "Marketing" .AddItem "Merchandising" .AddItem "Operations" .AddItem "Audit" .AddItem "Client Servicing" End with End Sub
Ok, zdaj shranite in zaprite delovni zvezek. Ko znova odprete delovni zvezek, smo v njem lahko videli imena oddelkov.
# 2 - Uporaba UserForm
Drug način dodajanja vrednosti v ComboBox je z uporabo uporabniškega obrazca. Najprej celicam poimenujte »Oddelek«.
Pojdite v urejevalnik Visual Basic in vstavite uporabniški obrazec iz možnosti INSERT.
Zdaj je ustvarjen nov uporabniški obrazec.
Zraven uporabniškega obrazca lahko v tej vrstici orodij vidimo "Orodjarno", lahko vstavimo "Kombinirano polje"
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 As Long LR = Celice (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1) .Value = TextBox1.Value Cells (LR, 2) .Value = ComboBox1 .Vrednost Konec Sub
Zdaj dvokliknite gumb “PREKLIC” in dodajte spodnjo kodo.
Zdaj na delovnem listu ustvarite predlogo, kot je prikazano spodaj.
Zdaj zaženite uporabniški obrazec in on se bo odprl tako.
Vnesite ime zaposlenega in na seznamu izberite ime oddelka.
Kliknite gumb SUBMIT in si oglejte čarobnost.
Vrednosti smo dobili v obliki tabele, ki smo jo ustvarili.
Stvari, ki si jih je treba zapomniti
- COMBO BOX ima tudi svoje lastnosti.
- Dodajanje vrednosti na seznam je na dva načina. Ena je način kodiranja, druga pa referenca imena obsega.
- COMBO BOX je običajno del uporabniškega obrazca.
