У VBA можна створити файл Кнопка опцій щоб дозволити користувачеві вибирати з декількох варіантів. Кнопка Option часто використовується у формах користувача, але також може використовуватися у робочому аркуші. У цьому підручнику ви дізнаєтесь, як створити кнопку Option, отримати вибір користувача у VBA та використовувати його у коді.
Якщо ви хочете дізнатися, як створити прапорець, натисніть тут: Прапорець VBA
Створіть кнопку опцій
Для того, щоб вставити кнопку Опції у аркуш, вам потрібно перейти до Вкладка розробник, клацніть Вставити і в розділі Елементи керування ActiveX виберіть Кнопка опції:
Зображення 1. Вставте кнопку Опції у робочий аркуш
Вибравши кнопку "Параметр", яку ви вставили, можна натиснути Властивості під Вкладка розробник:
Зображення 2. Змініть властивості кнопки опцій
Тут ви можете встановити різні властивості кнопки Option. Для початку ми змінили атрибут Назва до optOptionButton1. Тепер ми можемо використовувати кнопку Option з такою назвою у коді VBA.
Крім того, ми змінили текст, який з'являється біля кнопки Option, на Чоловічий. Для цього вам потрібно встановити атрибут Підпис.
Оскільки ми хочемо дозволити користувачеві вибирати стать, ми повторимо весь процес для іншої кнопки опції. Другий має назву optOptionButton2, а підпис - Жіночий. Ви також можете створити нову кнопку Option, скопіювавши наявну та змінивши властивості. Тепер наш аркуш має дві кнопки вибору:
Зображення 3. Вставте другу кнопку опцій
Отримайте кнопку вибраного варіанту у VBA
Мета кнопки "Опція" - отримати рішення користувача. На прикладі ми покажемо, як писати Чоловічий у клітинці C3, якщо вибрано кнопку опції 1 або Жіночий якщо вибрано другий. Кожна кнопка Option має свою подію, яка запускається, коли її вибрано - Натисніть.
Отже, для першої кнопки Option нам потрібно вставити наступний код у подію Натисніть об'єкта optOptionButon1:
| 123456789 | Приватний суб optOptionButton1_Click ()Якщо Sheet1.optOptionButton1.Value = ІстинноSheet1.Range ("C3") = "Чоловічий"Закінчити ЯкщоEnd Sub |
Аналогічно, ми розмістимо цей код у події Натисніть об'єкта optOptionButton2:
| 123456789 | Приватний суб optOptionButton2_Click ()Якщо Sheet1.optOptionButton2.Value = ІстинноSheet1.Range ("C3") = "Жінка"Закінчити ЯкщоEnd Sub |
Значення кнопки Option знаходиться у форматіЦінність атрибут об’єкта optOptionButton1 або optOptionButton2. Значення кнопки Option може бути істинним, якщо воно вибрано, або хибним, якщо воно не вибране.
Зображення 3. Поверніть чоловічий, якщо вибрано першу кнопку опції
Як ви можете бачити на зображенні 3, ми натиснули першу кнопку Option. Тому значення Sheet1.optOptionButton1.Value є істинним, тому результат у C3 дорівнює Чоловічий.
Зображення 4. Повернути жінку, якщо обрана друга кнопка опції
Як і в попередньому прикладі, значення C3 змінюється на Жіночий, оскільки ми вибрали другу кнопку Option. У цьому випадку процедура optOptionButton2_Click () спрацьовує.
Використовуйте кнопку Option у формі користувача
Як ми вже згадували, кнопка Option найчастіше використовується у формах користувача. Щоб пояснити, як це можна зробити, спочатку ми вставимо Userform. У редакторі VBA клацніть правою кнопкою миші назву модуля, клацніть Вставити і виберіть UserForm:
Зображення 5. Вставте форму користувача
Щоб відобразити елементи керування для вставлення, потрібно ввімкнути Набір інструментів. Для цього натисніть наНабір інструментів на панелі інструментів. Після цього ви отримаєте вікна з усіма доступними елементами управління. Ви можете натиснути наКнопка опцій щоб створити його у формі користувача:
Зображення 6. Вставте кнопку Option у Userform
У вікні властивостей ми змінюємо назву кнопки Option на optOptionButton1 і підпис на Чоловічий. Так само ми створили ще одну кнопку Option для жінок. Коли ми запускаємо Userform, ми отримуємо дві кнопки Option:
Зображення 7. Дві кнопки опцій у Userform
Якщо ви хочете отримати вибрану кнопку Option, вам потрібно використовувати ту ж логіку, що і для робочого аркуша, що пояснюється раніше у статті.
