Перейти к содержимому

Макрос активации кнопки при помощи галочки(флажка) в чекбоксе(CheckBox).

     

     

    Макрос включения и отключения кнопки при помощи галочки (флажка) в CheckBox.

    Иногда возникают ситуации, когда нужно включать или отключать активную кнопку  при помощи галочки в поле чек бокса.

    Выглядит это примерно, как отметка о согласии с лицензионным соглашением при установке программ — если стоит галочка возле надписи «Согласен» , кнопка «Далее>>»  активна, в противном случае кнопка не активна.

    Кнопки активации
    Кнопки активации

    Рассмотрим, как создать макрос, который будет активировать или  деактивировать кнопку.

    Для начала следует создать кнопку «CommandButton1» и чек-бокс активации «CheckBox1» на поле «UserFom1».

    UserForm1
    UserForm1

    Кнопку назовем «Далее>>», а чек бокс подпишем, как «Активация кнопки».

    Запись макроса на чек-бокс
    Запись макроса на чек-бокс

    В свойствах кнопки  выставляем:  Enabled — False

    Enabled False
    Enabled False

    Как записать макрос на действия с Чек-боксом (CheckBox1) .

    Шаг 1. Кликаем по CheckBox1 правой кнопкой мыши.

    Шаг 2. Выбираем из выпадающего меню пункт «View Code» (показать код).

     

    Шаг 3. В появившемся поле записываем код.

    Код активации кнопки:

    Private Sub CheckBox1_Click() ‘ клик по кнопке

    If UserForm1.CheckBox1.Value = True Then UserForm1.CommandButton1.Enabled = True Else UserForm1.CommandButton1.Enabled = False ‘проверяет значение Чек-бокса и включает кнопку

    End Sub

    Макрос готов — кнопка активируется по флажку в чекбоксе.

     

     

     

    Добавить комментарий

    Ваш адрес email не будет опубликован. Обязательные поля помечены *

    Этот сайт использует Akismet для борьбы со спамом. Узнайте, как обрабатываются ваши данные комментариев.

    Политика конфиденциальности

    Наш сайт использует файлы cookies, чтобы улучшить работу и повысить эффективность сайта. Продолжая работу с сайтом, вы соглашаетесь с использованием нами cookies и политикой конфиденциальности.

    Принять