Ако имате повече от един бутон за опция, може да бъде избран само един от бутоните за опции. Да създам бутони за опции в Excel VBA, изпълнете следните стъпки.
1. В раздела Разработчик щракнете върху Вмъкване.
2. В групата ActiveX Controls щракнете върху Option Button.
3. Плъзнете два бутона с опции на вашия работен лист.
4. Щракнете с десния бутон върху бутона за първата опция (уверете се, че е избран режим на проектиране).
5. Щракнете върху Преглед на кода.
Забележка: можете да промените надписа и името на контролата, като щракнете с десния бутон върху контролата (уверете се, че е избран режим на проектиране) и след това щракнете върху Свойства. Променете надписите на бутоните с опции на женски и мъжки. Засега ще оставим OptionButton1 и OptionButton2 като имена на бутоните с опции.
6. Добавете следния код:
Ако OptionButton1.Value = True Тогава Range ("D3"). Стойност = 10
7. Щракнете с десния бутон върху втория бутон с опция (уверете се, че е избран режим на проектиране).
8. Щракнете върху Преглед на кода.
9. Добавете следния код:
Ако OptionButton2.Value = True Тогава Range ("D3"). Стойност = 20
10. Щракнете върху бутоните с опции на листа (уверете се, че режимът на проектиране е отменен).
Резултат:
Въпреки че в някои ситуации може да бъде полезно директно да поставите бутони с опции на вашия работен лист, бутоните с опции са особено полезни, когато са поставени в Userform.