„VBA ComboBox“ Kaip sukurti ir naudoti „ComboBox“ VBA?

„Excel VBA ComboBox“

„ComboBox“ yra vartotojo formos funkcija VBA , jie skiriasi nuo teksto laukelių, nes teksto laukeliuose yra tik tekstas ir mes leidžiame vartotojui įvesti bet kokio tipo duomenis, tačiau naudodami kombinuotuosius langelius mes apribojame vartotojo norimą atsakymų tipą taigi duomenys tvarkingi, jie yra panašūs į sąrašo duomenų patvirtinimą programoje „Excel“.

„ComboBox“ galima palyginti su išskleidžiamuoju „Excel“ sąrašu, darbalapiuose mes naudojome duomenų patvirtinimą, kad pateiktų išskleidžiamąjį meniu, tačiau VBA yra vartotojo formos funkcija, kur ji naudojama norint pateikti bet kurios vartotojo formos išskleidžiamąjį meniu, tačiau jei norime naudoti „Excel“ kombinuotą laukelį, prie jo taip pat galime prisijungti iš kūrėjo skyriaus ir galime sukurti kombinuotas dėžutes atskiroms ar kelioms ląstelėms.

„Combo Box“ yra labai panašus į išskleidžiamąjį sąrašą, kurį turime „Excel“ darbalapyje, o „Combo“ laukelyje galime išsaugoti iš anksto nustatytas vertes, kad vartotojai pasirinkimą iš sąrašo pasiektų kombinuotame laukelyje. „Combo Box“ paprastai naudojamas kartu su vartotojo formomis, norint gauti naudotojų įvestį.

Vartotojo formos yra naudingos, tačiau vartotojo formoje yra kitų įrankių, dėl kurių vartotojo forma yra tokia ypatinga. Vienas iš įrankių, kurį dažnai naudojame kaip vartotojo formos įrankį, yra „ComboBox“.

2 populiariausi VBA „ComboBox“ kūrimo būdai

Šį „VBA Combo Box Excel“ šabloną galite atsisiųsti čia - „VBA Combo Box Excel“ šablonas

# 1 - tiesioginio kodavimo naudojimas

Pirmiausia pamatysime, kaip naudoti „Combo Box“ su darbalapiu. Atidarykite bet kurį „Excel“ darbaknygės darbalapį, eikite į skirtuką „Kūrėjas“ ir šiame skirtuke turime įrankį pavadinimu „Įterpti“. Spustelėkite tai ir mes turime dvi parinktis „Active X“ valdikliai ir formos valdikliai „Excel“.

Iš „Active X Controls“ pasirinkite „Combo Box“.

Dabar galite piešti šį objektą bet kuriame darbalapyje.

Dešiniuoju pelės mygtuku spustelėkite kombinuotą laukelį ir pasirinkite parinktį „Ypatybės“.

Kai pasirinksite ypatybes, tai atvers didžiulį kombinuoto langelio savybių sąrašą.

Šiam kombinuotam laukeliui pateiksime skyrių pavadinimų sąrašą, todėl pakeiskite kombinuoto laukelio pavadinimo ypatybę į  „DeptComboBox“ .

Dabar šis kombinuotas langelis bus pavadintas „DeptComboBox“ . Turime pateikti iš anksto nustatytus skyrių pavadinimus, todėl čia turiu skyrių pavadinimų sąrašą.

Dabar turime pridėti šias vertes į kombinuotų laukelių sąrašą, tai galime padaryti dviem būdais: per kodavimą arba per vardų tvarkytuvę.

Dukart spustelėkite „Combobox“ ir pateksite į VBA makrokomandą.

Bet mes turime pamatyti šiuos skyrių pavadinimus, kai atsidarys darbaknygė, todėl dukart spustelėkite „ThisWorkbook“.

Išskleidžiamajame sąraše pasirinkite „Darbaknygė“.

Iš parinkčių pasirinkite „Atidaryti“.

Dabar jis sukurs tuščią, kaip nurodyta žemiau.

Šios makrokomandos viduje įveskite žemiau esantį kodą.

Kodas:

 Privatus antrinis darbaknygė_Atidaryti () su darbalapiais ("Sheet1"). DeptComboBox .AddItem "Finance" .AddItem "Marketing" .AddItem "Merchandising" .AddItem "Operations" .AddItem "Audit" .AddItem "Klientų aptarnavimas" Pabaiga su pabaiga 

Gerai, dabar išsaugokite ir uždarykite darbaknygę, kai vėl atidarysite darbaknygę, joje galėtume pamatyti skyrių pavadinimus.

2 - „UserForm“ naudojimas

Kitas būdas pridėti vertes į „ComboBox“ yra vartotojo formos naudojimas. Pirmiausia duokite langeliams pavadinimą „Departamentas“.

Eikite į „Visual Basic“ redaktorių ir įterpkite vartotojo formą iš parinkties Įterpti.

Dabar sukurta nauja vartotojo forma.

Šalia vartotojo formos iš šios įrankių dėžutės galime pamatyti „Įrankių dėžę“, kurioje galime įterpti „Kombinuotą langelį“.

Dabar kombinuotasis laukelis yra įterptas į vartotojo formą. Šiuo metodu, norėdami atidaryti parinktį ypatybės, pasirinkite kombinuotą langelį ir paspauskite klavišą F4, kad atidarytumėte ypatybių langą.

Slinkite žemyn savybių skirtuką ir pasirinkite „Eilučių šaltinis“.

Šiam „Eilių šaltiniui“ įveskite pavadinimą, kurį suteikėme skyriaus pavadinimo langeliams.

Dabar šiame kombinuotame laukelyje yra nuoroda į pavadinimą „Departamentas“ .

Dabar paleiskite vartotojo formą naudodami paleidimo mygtuką.

Dabar departamento pavadinimų sąrašą galime pamatyti vartotojo formos kombinuotame laukelyje.

Praktiškai vartotojo forma, susieta su kombinuotu laukeliu, teksto laukeliu ir daugeliu kitų įrankių. Mes sukursime paprastą duomenų įvedimo vartotojo formą su teksto laukeliu ir kombinuotu langeliu.

Sukurkite vartotojo formą, kaip nurodyta toliau.

Sukurkite du komandinius mygtukus.

Dukart spustelėkite mygtuką „PATEIKTI“, kuris atsidarys po makrokomanda.

Šios makrokomandos viduje pridėkite žemiau esantį kodą.

Kodas:

 Privatus antrinis „CommandButton1_Click“ (Dim Dim LR As Long LR = Cells (Rows.Count, 1). End (xlUp). Row + 1 Cells (LR, 1). Value = TextBox1.Value Cells (LR, 2). Value = ComboBox1 . Vertės pabaigos sub 

Dabar dukart spustelėkite mygtuką „CANCEL“ ir pridėkite žemiau esantį kodą.

Dabar darbalapyje sukurkite tokį šabloną kaip žemiau.

Dabar paleiskite vartotojo formą ir ji atsidarys taip.

Įveskite darbuotojo vardą ir pasirinkite skyriaus pavadinimą iš kombinuoto sąrašo.

Spustelėkite mygtuką PATEIKTI ir pamatykite magiją.

Gavome reikšmes, įrašytas mūsų sukurtu lentelės formatu.

Ką reikia atsiminti

  • „COMBO BOX“ taip pat turi savų savybių.
  • Pridedant vertes į sąrašą yra du būdai: vienas yra kodavimo būdas, o kitas - diapazono pavadinimo nuoroda.
  • COMBO BOX paprastai yra vartotojo formos dalis.

$config[zx-auto] not found$config[zx-overlay] not found