Ve VBA můžete vytvořit soubor Tlačítko volby aby si uživatel mohl vybrat z několika možností. Tlačítko Volba 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 tlačítko Možnosti, získat uživatelskou volbu ve VBA a použít ji v kódu.
Pokud se chcete dozvědět, jak vytvořit zaškrtávací políčko, klikněte sem: Zaškrtávací políčko VBA
Vytvořte tlačítko volby
Chcete -li do listu vložit tlačítko Možnosti, musíte přejít na Karta vývojáře, klikněte Vložit a v části Ovládací prvky ActiveX vyberte Tlačítko volby:
Obrázek 1. Do pracovního listu vložte tlačítko Možnosti
Když vyberete tlačítko Možnosti, které jste vložili, můžete na něj kliknout Vlastnosti pod Karta vývojáře:
Obrázek 2. Změňte Vlastnosti tlačítka Možnosti
Zde můžete nastavit různé vlastnosti tlačítka Možnosti. Na začátku jsme změnili atribut název na optOptionButton1. Nyní můžeme v kódu VBA použít tlačítko Option s tímto názvem.
Také jsme změnili text, který se zobrazí vedle tlačítka Volby, na mužský. Chcete -li to provést, musíte nastavit atribut Titulek.
Protože chceme uživateli umožnit výběr pohlaví, celý postup zopakujeme pro další tlačítko Možnosti. Druhý má jméno optOptionButton2, zatímco titulek je ženský. Můžete také vytvořit nové tlačítko Možnosti zkopírováním stávajícího a změnou vlastností. Náš list má nyní dvě tlačítka možností:
Obrázek 3. Vložte druhé tlačítko Možnosti
Získejte tlačítko vybrané možnosti ve VBA
Účelem tlačítka Volba je získat rozhodnutí uživatelů. V příkladu si ukážeme, jak psát mužský v buňce C3, pokud je vybráno tlačítko Možnosti 1 nebo ženský pokud je vybrán druhý. Každé tlačítko Možnosti má svou událost, která se spustí, když je vybrána - Klikněte.
Proto pro první tlačítko Možnosti musíme do události vložit následující kód Klikněte objektu optOptionButon1:
| 123456789 | Private Sub optOptionButton1_Click ()If Sheet1.optOptionButton1.Value = True ThenList1.Range ("C3") = "Muž"Konec IfEnd Sub |
Podobně tento kód vložíme do události Klikněte objektu optOptionButton2:
| 123456789 | Soukromá sub optOptionButton2_Click ()If Sheet1.optOptionButton2.Value = True ThenList1.Range ("C3") = "Žena"Konec IfEnd Sub |
Hodnota tlačítka Option je vHodnota atribut objektu optOptionButton1 nebo optOptionButton2. Hodnota tlačítka Option může být true, pokud je vybrána, nebo false, pokud není vybrána.
Obrázek 3. Vrátit muže, pokud je vybráno první tlačítko Možnosti
Jak vidíte na obrázku 3, klikli jsme na první tlačítko Možnosti. Proto hodnota List1.optOptionButton1.Hodnota je pravda, takže výsledek v C3 je mužský.
Obrázek 4. Vrátit ženu, pokud je vybráno druhé tlačítko Možnosti
Podobně jako v předchozím příkladu se hodnota C3 změní na ženský, protože jsme vybrali druhé tlačítko Možnosti. V tomto případě postup optOptionButton2_Click () je spuštěn.
Ve formuláři Userform použijte tlačítko Option
Jak jsme zmínili, v uživatelských formách se nejčastěji používá tlačítko Možnosti. 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 5. 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 naTlačítko volby jej vytvořit v Userform:
Obrázek 6. Vložte do uživatelského formuláře tlačítko Volba
V okně vlastností změníme název tlačítka Option na optOptionButton1 a titulek na mužský. Podobně jsme pro Žena vytvořili další tlačítko Možnosti. Když spustíme Userform, dostaneme dvě tlačítka Option:
Obrázek 7. Dvě tlačítka Možnosti v Userform
Pokud chcete získat vybrané tlačítko Možnosti, musíte použít stejnou logiku jako pro list, který je vysvětlen dříve v článku.
