VBA galite sukurti a Žymimasis langelis kur vartotojas gali pažymėti parinktį arba panaikinti jos žymėjimą. Žymimasis langelis dažnai naudojamas „Userforms“, bet taip pat gali būti naudojamas darbalapyje. Šioje pamokoje sužinosite, kaip sukurti žymimąjį laukelį, gauti vartotojo pasirinkimą VBA ir naudoti jį kodu.
Jei norite sužinoti, kaip sukurti sąrašų dėžutę, spustelėkite čia: VBA sąrašo dėžutė
Jei norite sužinoti, kaip sukurti „Combobox“, spustelėkite čia: „VBA Combobox“
Sukurkite žymės langelį
Norėdami įterpti žymės langelį į darbalapį, turite eiti į Skirtukas kūrėjas, spustelėkite Įdėti ir skiltyje „ActiveX“ valdikliai pasirinkite Žymimasis langelis:
Vaizdas 1. Į darbalapį įterpkite žymimąjį langelį
Pasirinkę žymimąjį laukelį, kurį įterpėte, galite spustelėti Savybės po Skirtukas kūrėjas:
2 pav. Keisti žymės langelio ypatybes
Čia galite nustatyti skirtingas žymės langelio savybes. Pradžiai mes pakeitėme atributą vardas į cmbCheckbox. Dabar mes galime naudoti žymės langelį šiuo pavadinimu VBA kode.
Be to, pakeitėme šalia žymės langelio esantį tekstą į Sutinku su Sąlygomis. Norėdami tai padaryti, turite nustatyti atributą Antraštė.
Gaukite pasirinktą žymės langelio elementą VBA
Žymės langelio tikslas yra pasirinkti naudotojus (pažymėtas žymimasis laukelis arba ne). Norėdami gauti naudotojo pasirinktą vertę, turite naudoti šį kodą:
123456789 | Jei Sheet1.chbCheckBox.Value = Tiesa tadaSheet1.Range ("C3") = "Sutinku"KitasSheet1.Range ("C3") = "Nesutinku"Pabaiga Jei |
Mes norime užpildyti ląstelę C3 Sutinku jei pažymėtas langelis ir Nesutikti kitaip. Šio žymimojo laukelio reikšmė yraVertė objekto atributas Sheet1.chbCheckbox. Pažymėto langelio reikšmė gali būti teisinga arba klaidinga.
3 pav. Gaukite pasirinktą vertę iš VBA žymės langelio
Kai tikrinome žymimąjį laukelį, reikšmė Sheet1.chbCheckbox.Value yra tiesa, todėl rezultatas C3 yra Sutinku.
Naudokite žymės langelį naudotojo formoje
Kaip jau minėjome, žymimasis laukelis dažniausiai naudojamas „Userforms“. Norėdami paaiškinti, kaip tai padaryti, pirmiausia įterpsime „Userform“. VBA redaktoriuje dešiniuoju pelės mygtuku spustelėkite modulio pavadinimą, spustelėkite Įdėti ir pasirinkti UserForm:
8 paveikslėlis. Įterpkite vartotojo formą
Norėdami rodyti įterpimo valdiklius, turite įjungti Įrankių dėžė. Norėdami tai padaryti, spustelėkiteĮrankių dėžė piktogramą įrankių juostoje. Po to gausite langus su visais prieinamais valdikliais. Galite spustelėti Žymimasis langelis Norėdami jį sukurti naudotojo formoje:
Vaizdas 9. Į vartotojo formą įterpkite žymimąjį langelį
Ypatybių lange pakeisime žymės langelio pavadinimą į chbCheckBox ir antraštė į Sutinku su Sąlygomis. Kai paleidžiame „Userform“, mes gauname žymimąjį laukelį.
Vaizdas 10. Vartotojo formos žymimasis langelis
Jei norite gauti pasirinktą reikšmę iš žymės langelio, turite naudoti tą pačią logotipą žymės langeliui darbalapyje, kuris paaiškintas anksčiau straipsnyje.