В VBA вы можете создать Кнопка выбора чтобы позволить пользователю выбрать один из нескольких вариантов. Кнопка Option часто используется в пользовательских формах, но также может использоваться в рабочем листе. В этом руководстве вы узнаете, как создать кнопку Option, получить выбор пользователя в VBA и использовать его в коде.
Если вы хотите узнать, как создать флажок, щелкните здесь: флажок VBA
Создать кнопку выбора
Чтобы вставить кнопку Option в Рабочий лист, вам нужно перейти к Вкладка разработчиканажмите Вставлять и в разделе ActiveX Controls выберите Кнопка выбора:
Изображение 1. Вставьте кнопку выбора в рабочий лист.
Когда вы выбираете кнопку Option, которую вы вставили, вы можете нажать на Характеристики под Вкладка разработчика:
Изображение 2. Изменение свойств кнопки выбора
Здесь вы можете установить различные свойства кнопки Option. Для начала изменили атрибут Имя к optOptionButton1. Теперь мы можем использовать кнопку Option с этим именем в коде VBA.
Кроме того, мы изменили текст, который появляется рядом с кнопкой Option, на Мужчина. Для этого нужно установить атрибут Подпись.
Поскольку мы хотим позволить пользователю выбирать пол, мы повторим весь процесс для другой кнопки Option. У второго есть имя optOptionButton2, а подпись женский. Вы также можете создать новую кнопку Option, скопировав существующую и изменив свойства. Теперь у нашего рабочего листа есть две кнопки выбора:
Изображение 3. Вставьте вторую кнопку Option
Получить выбранную кнопку выбора в VBA
Назначение кнопки Option - получить решение пользователя. Мы покажем на примере, как написать Мужчина в ячейке C3, если выбрана кнопка Option 1 или женский если выбран второй. Каждая кнопка Option имеет свое событие, которое срабатывает при ее выборе - Щелкните.
Поэтому для первой кнопки Option нам нужно поместить следующий код в событие Нажмите объекта optOptionButon1:
| 123456789 | Частная подписка optOptionButton1_Click ()Если Sheet1.optOptionButton1.Value = True, тоSheet1.Range ("C3") = "Мужской"Конец, еслиКонец подписки |
Точно так же мы поместим этот код в событие Нажмите объекта optOptionButton2:
| 123456789 | Частная подписка optOptionButton2_Click ()Если Sheet1.optOptionButton2.Value = True, тоSheet1.Range ("C3") = "Женский"Конец, еслиКонец подписки |
Значение кнопки Option находится вЦенить атрибут объекта optOptionButton1 или optOptionButton2. Значение кнопки Option может быть истинным, если оно выбрано, или ложным, если оно не выбрано.
Изображение 3. «Вернуть мужчину», если выбрана первая кнопка «Вариант».
Как вы можете видеть на изображении 3, мы нажали первую кнопку Option. Следовательно, значение Sheet1.optOptionButton1.Value верно, поэтому результат в C3 будет Мужчина.
Изображение 4. Вернуть женщину, если выбрана вторая кнопка выбора.
Как и в предыдущем примере, значение C3 изменяется на женский, так как мы выбрали вторую кнопку Option. В этом случае процедура optOptionButton2_Click () срабатывает.
Используйте кнопку Option в пользовательской форме
Как мы уже упоминали, кнопка Option чаще всего используется в пользовательских формах. Чтобы объяснить, как это сделать, мы сначала вставим пользовательскую форму. В редакторе VBA щелкните правой кнопкой мыши имя модуля, выберите Вставлять и выберите UserForm:
Изображение 5. Вставьте пользовательскую форму
Чтобы отобразить элементы управления для вставки, необходимо включить Ящик для инструментов. Для этого нажмите наЯщик для инструментов значок на панели инструментов. После этого вы получите окна со всеми доступными элементами управления. Вы можете нажать наКнопка выбора чтобы создать его в Userform:
Изображение 6. Вставьте кнопку Option в пользовательскую форму.
В окне свойств мы меняем имя кнопки Option на optOptionButton1 и заголовок на Мужчина. Точно так же мы создали еще одну кнопку Option для Female. Когда мы запускаем Userform, мы получаем две кнопки Option:
Изображение 7. Две кнопки выбора в пользовательской информацииrm
Если вы хотите получить выбранную кнопку Option, вам необходимо использовать ту же логику, что и для рабочего листа, что объясняется ранее в статье.
