Продолжение. Начало в статье №149.1
Создаём код для отображения диалогового окна в Excel
Чтобы отобразить диалоговое окно в Excel, вам нужно добавить на лист элемент управления ActiveX CommandButton. Эта кнопка будет запускать процедуру для отображения окна UserForm. Давайте подробно рассмотрим все шаги.
Шаг 1: Перейдите в окно Excel из редактора
Используйте комбинацию клавиш Alt + F11, чтобы из редактора Visual Basic перейти в окно Excel или нажмите на символ, указанный на скриншоте.
Шаг 2: Добавление кнопки
- Перейдите на вкладку "Разработчик" в ленте Excel.
- Выберите "Элементы управления" и нажмите на значок "Вставить". Затем щелкните на значке кнопки, который находится в разделе "Элементы ActiveX".
- Перетащите кнопку на рабочий лист, чтобы разместить ее в нужном месте.
Шаг 3: Изменение подписи и свойств кнопки
- Щелкните правой кнопкой мыши на кнопке и выберите в контекстном меню команду Объект CommandButton => Правка.
- Измените текст, отображаемый на кнопке, например, на "Вызвать форму".
- Для изменения других свойств кнопки щелкните на ней правой кнопкой мыши и выберите команду Properties (Свойства). В появившемся окне измените нужные параметры (более подробнее об этом написано в статье №143).
Шаг 4: Создание процедуры для кнопки
- Дважды щелкните на кнопке CommandButton. Это откроет редактор VBA и отобразит модуль кода для листа.
- В появившейся процедуре CommandButton1_Click введите следующий код:
Тестирование диалогового окна
Шаг 5: Проверка работы процедуры
Теперь нужно проверить, как работает ваша кнопка и диалоговое окно.
- Щелкните на кнопке, которую вы добавили на лист. Если ничего не происходит, это значит, что Excel находится в режиме конструктора.
- Для выхода из режима конструктора выполните команду Разработчик => Элементы управления => Режим конструктора.
После выхода из режима конструктора щелчок на кнопке должен привести к отображению диалогового окна.
Шаг 6: Работа с диалоговым окном
Когда диалоговое окно откроется, введите произвольный текст в текстовом поле и нажмите кнопку "ОК". И, удивительно, но ничего не произойдет, так как для объекта UserForm не создано никаких процедур обработки событий. Чтобы закрыть диалоговое окно, щелкните на крестике в его заголовке.
Теперь мы узнали, как создать и протестировать диалоговое окно в Excel. Это базовый пример, но вы можете добавлять в него дополнительные элементы управления и обрабатывать различные события, чтобы сделать своё приложение более функциональным.