Макросы для флажков в excel

Элемент управления пользовательской формы CheckBox для выбора или невыбора его пользователем и передачи результата в VBA Excel. Свойства «Флажка», примеры кода.

UserForm.CheckBox – это элемент управления пользовательской формы, предназначенный для передачи в код VBA информации о выборе или невыборе его пользователем и возвращающий одно из двух значений: False (галочки нет) или True (галочка установлена).

Элемент управления CheckBox состоит из флажка и надписи. В VBA Excel флажок имеет квадратную форму, надпись расположена справа от него. Надпись реагирует на нажатие мышью так же, как и флажок.

По тексту статьи значение слова «Флажок» в кавычках равно значению слова CheckBox, флажок без кавычек обозначает квадрат с галочкой или без нее.

Кроме состояний «выбран» или «не выбран», существует и третье состояние флажка: серая галочка на сером фоне. Получить такое состояние на пользовательской форме можно путем присвоения свойству CheckBox.Value значения Null.

Надписи флажков выведены с помощью следующего кода VBA Excel:

Интересно было посмотреть, какое значение отобразится в надписи элемента управления CheckBox2. Обратите внимание на то, что если строку CheckBox2.Caption = "CheckBox2.Value = " & CheckBox2.Value заменить на CheckBox2.Caption = CheckBox2.Value, будет сгенерирована ошибка, так как в VBA не существует текстового отображения значения Null.

Эксперименты показали, что отобразить «Флажок» в третьем состоянии можно также с помощью присвоения свойству CheckBox.Value значения «пустая строка».

Элемент управления CheckBox может использоваться на пользовательской форме для

Если требуется выбор только одной опции из группы предложенных, для этой цели в VBA Excel используется набор элементов управления OptionButton.

Свойства элемента «Флажок»

* При загруженной в поле надписи картинке свойство TextAlign не работает, следует использовать свойство PicturePosition.

Свойство по умолчанию для элемента CheckBox – Value, основное событие – Click.

В таблице перечислены только основные, часто используемые свойства «Флажка». Все доступные свойства отображены в окне Properties элемента управления CheckBox.

Примеры использования CheckBox

Пример 1
Отображение элемента управления CheckBox на пользовательской форме с параметрами, заданными в коде VBA Excel:

Размещается данная процедура в модуле пользовательской формы.

Если несколько элементов управления CheckBox привязать к одной ячейке, то при клике на одном из них, менять свое состояние будут и все остальные.

Пример 2
Смена надписи «Флажка» в зависимости от его состояния:

Пример 3
Скрытие и отображение, изменение доступности других элементов управления с помощью «Флажка».

Для реализации этого примера необходимо создать пользовательскую форму с четырьмя элементами управления: CheckBox1, TextBox1, TextBox2 и CommandButton1. А в модуле формы разместить следующий код:

Форма открывается с недоступными для пользователя текстовыми полями и скрытой кнопкой «Сложить»:

После установки галочки на флажке текстовые поля становятся доступными для редактирования, и отображается кнопка «Сложить»:

Флажки очень полезны для наших пользователей Excel, со списком флажков мы можем выбрать некоторые параметры на листе. Если необходимо установить сразу несколько флажков, установка их по одному будет утомительной и трудоемкой. Здесь я могу представить вам, как установить все флажки с помощью одного флажка, то есть, когда вы установите этот основной флажок, все флажки текущего рабочего листа будут выбраны немедленно.

Установите все флажки, используя один флажок с кодом VBA

Установите все флажки, используя один флажок с кодом VBA

Чтобы установить все флажки на листе с помощью единого основного флажка, выполните следующие действия:

1. Во-первых, вы можете добавить флажок и назвать его Выбрать все, это будет ваш главный флажок, см. снимок экрана:

2. Затем удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: установите все флажки с помощью одного флажка

Sub SelectAll_Click()
'Update by Extendoffice
Dim xCheckBox As CheckBox
For Each xCheckBox In Application.ActiveSheet.CheckBoxes
    If xCheckBox.Name <> Application.ActiveSheet.CheckBoxes("Check Box 1").Name Then
        xCheckBox.Value = Application.ActiveSheet.CheckBoxes("Check Box 1").Value
    End If
Next
End Sub

4. Затем сохраните и закройте этот код, вернитесь на рабочий лист, щелкните правой кнопкой мыши Выбрать все флажок и выберите Назначить макрос из контекстного меню см. снимок экрана:

5. В Назначить макрос диалоговое окно, нажмите SelectAll_Click вариант в Имя макроса список, а затем щелкните OK кнопку, чтобы закрыть это диалоговое окно, см. снимок экрана:

6. И теперь, когда вы устанавливаете основной флажок «Выбрать все», все остальные флажки текущего рабочего листа проверяются сразу.

Внимание: В приведенном выше коде флажок 1 — это имя вашего основного флажка, его можно просмотреть в Имя Box щелкнув его правой кнопкой мыши, и измените его по своему усмотрению.

Статьи по теме:

Как связать флажок с несколькими ячейками в Excel?

Как быстро вставить несколько флажков в Excel?

Как быстро удалить несколько флажков в Excel?

Комментарии (2)