Флажок представляет собой поле, которое может быть проверено для хранения информации. Чтобы создать флажок в Excel VBA, выполните следующие действия.

  1. На вкладке Разработчик нажмите кнопку Вставить.

  2. В контрольной группе ActiveX, нажмите кнопку Check Box.

Create a check box in Excel VBA

  1. Перетащите флажок на листе.

  2. Щелкните правой кнопкой мыши флажок (убедитесь, что выбран режим Design).

  3. Нажмите кнопку View Code.

View Code

Примечание: Вы можете изменить заголовок и имя элемента управления, щелкнув правой кнопкой мыши на контроле (убедитесь, что выбран режим Design), а затем нажав кнопку Свойства. Измените заголовок флажка на MyCheckBox. На данный момент мы оставим CheckBox1 как имя флажка.

  1. Добавьте следующие строки кода:

If CheckBox1.Value = True Then Range("D2").Value = 1

If CheckBox1.Value = False Then Range("D2").Value = 0

  1. Установите флажок на листе (убедитесь, что режим Design выключенный).

Результат:

Check Box True

Check Box False

Хотя в некоторых ситуациях это может быть полезно сразу поставить флажок на листе, флажок особенно полезен при размещении на UserForm.