Найти в Дзене
VBA Excel с нуля

VBA Excel № 149.2 Отображаем и тестируем наше диалоговое окно

Оглавление
Скриншот с моего ноутбука
Скриншот с моего ноутбука

Продолжение. Начало в статье №149.1

Создаём код для отображения диалогового окна в Excel

Чтобы отобразить диалоговое окно в Excel, вам нужно добавить на лист элемент управления ActiveX CommandButton. Эта кнопка будет запускать процедуру для отображения окна UserForm. Давайте подробно рассмотрим все шаги.

Шаг 1: Перейдите в окно Excel из редактора

Используйте комбинацию клавиш Alt + F11, чтобы из редактора Visual Basic перейти в окно Excel или нажмите на символ, указанный на скриншоте.

Скриншот с моего ноутбука
Скриншот с моего ноутбука

Шаг 2: Добавление кнопки

  1. Перейдите на вкладку "Разработчик" в ленте Excel.
  2. Выберите "Элементы управления" и нажмите на значок "Вставить". Затем щелкните на значке кнопки, который находится в разделе "Элементы ActiveX".
  3. Перетащите кнопку на рабочий лист, чтобы разместить ее в нужном месте.
Скриншот с моего ноутбука
Скриншот с моего ноутбука

Шаг 3: Изменение подписи и свойств кнопки

  1. Щелкните правой кнопкой мыши на кнопке и выберите в контекстном меню команду Объект CommandButton => Правка.
  2. Измените текст, отображаемый на кнопке, например, на "Вызвать форму".
  3. Для изменения других свойств кнопки щелкните на ней правой кнопкой мыши и выберите команду Properties (Свойства). В появившемся окне измените нужные параметры (более подробнее об этом написано в статье №143).
Скриншот с моего ноутбука
Скриншот с моего ноутбука

Шаг 4: Создание процедуры для кнопки

  1. Дважды щелкните на кнопке CommandButton. Это откроет редактор VBA и отобразит модуль кода для листа.
  2. В появившейся процедуре CommandButton1_Click введите следующий код:
Скриншот с моего ноутбука
Скриншот с моего ноутбука

Тестирование диалогового окна

Шаг 5: Проверка работы процедуры

Теперь нужно проверить, как работает ваша кнопка и диалоговое окно.

  1. Щелкните на кнопке, которую вы добавили на лист. Если ничего не происходит, это значит, что Excel находится в режиме конструктора.
  2. Для выхода из режима конструктора выполните команду Разработчик => Элементы управления => Режим конструктора.

После выхода из режима конструктора щелчок на кнопке должен привести к отображению диалогового окна.

Скриншот с моего ноутбука
Скриншот с моего ноутбука

Шаг 6: Работа с диалоговым окном

Когда диалоговое окно откроется, введите произвольный текст в текстовом поле и нажмите кнопку "ОК". И, удивительно, но ничего не произойдет, так как для объекта UserForm не создано никаких процедур обработки событий. Чтобы закрыть диалоговое окно, щелкните на крестике в его заголовке.

Теперь мы узнали, как создать и протестировать диалоговое окно в Excel. Это базовый пример, но вы можете добавлять в него дополнительные элементы управления и обрабатывать различные события, чтобы сделать своё приложение более функциональным.

Продолжение следует…

Наука
7 млн интересуются