VBA varat izveidot a Atzīmējiet izvēles rūtiņu kur lietotājs var pārbaudīt vai noņemt izvēles rūtiņu. Lietotāja veidlapās bieži tiek izmantota izvēles rūtiņa, taču to var izmantot arī darblapā. Šajā apmācībā jūs uzzināsit, kā izveidot izvēles rūtiņu, iegūt lietotāja izvēli VBA un izmantot to kodā.
Ja vēlaties uzzināt, kā izveidot saraksta lodziņu, noklikšķiniet šeit: VBA saraksta lodziņš
Ja vēlaties uzzināt, kā izveidot Combobox, noklikšķiniet šeit: VBA Combobox
Izveidojiet izvēles rūtiņu
Lai darblapā ievietotu izvēles rūtiņu, jums jādodas uz Cilne Izstrādātājs, klikšķis Ievietot un sadaļā ActiveX vadīklas izvēlieties Atzīmējiet izvēles rūtiņu:
Attēls 1. Darblapā ievietojiet izvēles rūtiņu
Atlasot ievietoto izvēles rūtiņu, varat noklikšķināt uz Rekvizīti saskaņā Cilne Izstrādātājs:
2. attēls. Mainīt izvēles rūtiņas rekvizītus
Šeit jūs varat iestatīt dažādus izvēles rūtiņas rekvizītus. Sākumā mēs mainījām atribūtu Vārds uz cmbCheckbox. Tagad mēs varam izmantot izvēles rūtiņu ar šo nosaukumu VBA kodā.
Mēs arī mainījām tekstu, kas parādās blakus izvēles rūtiņai, uz Piekrītiet Noteikumiem. Lai to izdarītu, jums ir jāiestata atribūts Paraksts.
Iegūstiet izvēles rūtiņas vienumu VBA
Kastītes mērķis ir panākt, lai lietotāji izvēlas (izvēles rūtiņa ir atzīmēta vai nav atzīmēta). Lai izgūtu lietotāja atlasīto vērtību, jums jāizmanto šis kods:
| 123456789 | Ja Sheet1.chbCheckBox.Value = True TadSheet1.Range ("C3") = "Piekrītu"CitādiSheet1.Range ("C3") = "Nepiekrītu"Beigas Ja |
Mēs vēlamies aizpildīt šūnu C3 ar Piekrītu ja izvēles rūtiņa ir atzīmēta un Nepiekrītu citādi. Šīs izvēles rūtiņas vērtība irVērtība objekta atribūts Sheet1.chbCheckbox. Kastītes vērtība var būt patiesa vai nepatiesa.
3. attēls. Iegūstiet atlasīto vērtību no izvēles rūtiņas VBA
Pārbaudot izvēles rūtiņu, vērtība Sheet1.chbCheckbox.Value ir taisnība, tāpēc rezultāts C3 ir Piekrītu.
Lietotāja formā izmantojiet izvēles rūtiņu
Kā jau minējām, Userforms visbiežāk izmanto izvēles rūtiņu. Lai izskaidrotu, kā to izdarīt, mēs vispirms ievietojam Userform. VBA redaktorā ar peles labo pogu noklikšķiniet uz moduļa nosaukuma, noklikšķiniet uz Ievietot un izvēlēties UserForm:
8. attēls. Ievietojiet Userform
Lai parādītu ievietošanas vadīklas, jums ir jāiespējo Instrumentu kaste. Lai to izdarītu, noklikšķiniet uzInstrumentu kaste ikonu rīkjoslā. Pēc tam jūs iegūsit logus ar visām pieejamajām vadības ierīcēm. Jūs varat noklikšķināt uz Atzīmējiet izvēles rūtiņu lai to izveidotu Userform:
9. attēls. Lietotāja formā ievietojiet izvēles rūtiņu
Rekvizītu logā mēs mainīsim izvēles rūtiņas nosaukumu uz chbCheckBox un paraksts uz Piekrītiet Noteikumiem. Palaižot Userform, tajā tiek parādīta izvēles rūtiņa.
10. attēls. Lietotāja veidlapas izvēles rūtiņa
Ja vēlaties atlasīto vērtību iegūt no izvēles rūtiņas, darblapas izvēles rūtiņai jāizmanto tā pati loģika, kas ir izskaidrota iepriekš rakstā.
