Ve VBA můžete vytvořit soubor CheckBox kde uživatel může zaškrtnout nebo zrušit zaškrtnutí možnosti. Zaškrtávací políčko se často používá v uživatelských formulářích, ale může být také použito v pracovním listu. V tomto kurzu se naučíte, jak vytvořit zaškrtávací políčko, získat uživatelskou volbu ve VBA a použít ji v kódu.
Pokud se chcete dozvědět, jak vytvořit Listbox, klikněte sem: VBA Listbox
Pokud se chcete dozvědět, jak vytvořit Combobox, klikněte zde: VBA Combobox
Vytvořte zaškrtávací políčko
Chcete -li vložit zaškrtávací políčko do listu, musíte přejít na Karta vývojáře, klikněte Vložit a v části Ovládací prvky ActiveX vyberte Zaškrtávací políčko:
Obrázek 1. Vložte zaškrtávací políčko do listu
Když zaškrtnete políčko, které jste vložili, můžete na něj kliknout Vlastnosti pod Karta vývojáře:
Obrázek 2. Změnit vlastnosti zaškrtávacího políčka
Zde můžete nastavit různé vlastnosti zaškrtávacího políčka. Na začátku jsme změnili atribut název na cmbCheckbox. Nyní můžeme zaškrtávací políčko s tímto názvem použít v kódu VBA.
Také jsme změnili text, který se zobrazí vedle zaškrtávacího políčka, na Souhlas s podmínkami. Chcete -li to provést, musíte nastavit atribut Titulek.
Získejte vybranou položku zaškrtávacího políčka ve VBA
Účelem zaškrtávacího políčka je přimět uživatele k výběru (zaškrtávací políčko zaškrtnuto nebo ne). Abyste mohli načíst hodnotu vybranou uživatelem, musíte použít tento kód:
| 123456789 | Pokud Sheet1.chbCheckBox.Value = True ThenList1.Range ("C3") = "Souhlasím"JinýList1.Range ("C3") = "Nesouhlasím"Konec If |
Buňku C3 chceme naplnit Souhlasit pokud je zaškrtávací políčko zaškrtnuto a Nesouhlasit v opačném případě. Hodnota zaškrtávacího políčka je vHodnota atribut objektu Zaškrtávací políčko List1.chb. Hodnota zaškrtávacího políčka může být true nebo false.
Obrázek 3. Získejte vybranou hodnotu ze zaškrtávacího políčka ve VBA
Když jsme zaškrtli políčko, hodnota Sheet1.chbCheckbox.Value je pravda, takže výsledek v C3 je Souhlasit.
Použijte zaškrtávací políčko v uživatelské formě
Jak jsme zmínili, Checkbox se nejčastěji používá v Userforms. Abychom vysvětlili, jak to můžete udělat, nejprve vložíme formulář Userform. V editoru VBA klikněte pravým tlačítkem na Název modulu, klikněte na Vložit a vyberte si UserForm:
Obrázek 8. Vložte uživatelský formulář
Chcete -li zobrazit ovládací prvky pro vkládání, musíte povolit Sada nástrojů. Chcete -li to provést, klikněte naSada nástrojů ikonu na panelu nástrojů. Poté získáte okna se všemi dostupnými ovládacími prvky. Můžete kliknout na Zaškrtávací políčko jej vytvořit v Userform:
Obrázek 9. Vložte do uživatelského formuláře zaškrtávací políčko
V okně vlastností změníme název zaškrtávacího políčka na chbCheckBox a titulek k Souhlas s podmínkami. Když spustíme Userform, dostaneme do něj Checkbox.
Obrázek 10. Zaškrtávací políčko ve formuláři User
Pokud chcete získat vybranou hodnotu ze zaškrtávacího políčka, musíte použít stejnou logiku pro zaškrtávací políčko v listu, což je vysvětleno dříve v článku.
