Диалоговые окна
Задача. Необходимо создать диалоговое окно, которое позволяло бы одним нажатием кнопки сортировать таблицу, например, по наименованию или цене. С этой целью:
Перейдите на лист "Смета". Если у вас несколько сметных таблиц (получены в процессе тренинга), оставьте лишь одну.
Создайте два макроса сортировки (Данные/Сортировка) таблицы по наименованию и затратам. Посмотрите и попытайтесь осознать тексты макросов.
В вашу рабочую книгу добавьте лист типа «Окно диалога». Если на экране отсутствует инструментарий элементов управления - вызовите его. Изучите с помощью "Справки" назначение каждого элемента управления. Как-либо назовите диалоговую панель, например «Сортировка».
Создайте в диалоговом поле две кнопки. Назовите их "Наименование" и "Цена".
Через вызов контекстного меню на кнопке (ПК) присвойте каждой кнопке соответствующий макрос (команда «Назначить макрос»).
Найдите на инструментальной панели кнопку
"Отобразить
окно "
и нажмите ее. Появилась новая, рабочая,
диалоговая панель. Нажмите какую-либо
созданную вами кнопку, например
"Наименование". Практически каждый
из вас должен потерпеть "фиаско".
На экране появилось сообщение об ошибке
(рис.
2.23).
Рис.
2.48.
Ошибка
макроса
ело
в том, что при работе с диалоговой панелью
вы находитесь на особом листе рабочей
книги - "Диалог",
и когда вы начинаете выполнять макрос
сортировки, программа не знает, где
взять необходимую таблицу. В начале
макроса необходимо идентифицировать
лист таблицы. В программных модулях не
хватает оператора Sheets("Смета").Select,
выделяющего
лист
«Смета». Эту
строку можно было бы вставить вручную,
однако с целью расширения багажа приемов
создания макросов перепишем макрос
"Наименование".
Вы находитесь на листе «Диалог»? Правильно. Повторите запись макросов сортировки с новыми именами "Наименование1" и "Затраты1". В отличие от предыдущего случая после начала записи вам нужно перейти на лист «Смета» с упомянутой таблицей, а далее операции идентичны. Перейдите на лист «Диалог», присвойте кнопкам новые макросы и вновь попытайтесь исполнить сортировку по наименованию и затратам. Сейчас сортировка должна пройти успешно. Выйдите из диалога, нажав на кнопку "Отмена".
Найдите и сравните запись на Visual Basic процедур сортировки - прежней "Наименование" и новой "Наименование1". В чем отличие?
Если требуется сделать диалог автозагружаемым (при открытии книги загружается диалог), необходимо, чтобы существовал программный модуль с именем Auto_Open.
Под именем Auto_Open создайте макрос перехода на диалоговую панель и запуска диалога (переход на лист-диалог, запуск диалога, отмена, прекращение записи макроса). Закройте и вновь откройте вашу рабочую книгу.
Расширьте возможности диалога, например, за счет отображения диаграммы производства рогов и копыт.
UserForm
Создание диалогов через специальный лист со слегка архаичным названием «Окно диалога Excel 5.0» (была такая версия электронных таблиц), мягко говоря, устарело. Современные версии Excel располагают более мощным средством создания диалоговых окон - UserForm. Для создания такого окна:
Перейдите в среду Visual Basic (Alt+F11 или команда Сервис/Макрос/ Редактор Visual Basic). Найдите и откройте окно «Insert UserForm» (кнопка
на ИМ). Какие работы можно выполнять с
помощью данного окна? Выберите вставку
«UserForm».
Вы видите среду, которая мало чем отличается от листа «Диалог». Однако рядом с панелью «UserForm» располагается окно ее свойств. Попытайтесь разобраться, какие свойства панели представлены. Измените имя диалоговой панели (свойство Name) на «Мой_диалог». Измените ее титул (свойство Caption) на «Мой диалог».
Введите две кнопки «Наименование» и «Затраты» и подключите к ним соответствующие макросы. Для этого необходимо в режиме конструктора UserForm сделать двойной клик на кнопке. Появляется заготовка программного модуля, который подключается при нажатии кнопки, например
Private Sub CommandButton1_Click()
End Sub
В
тело модуля (между операторами начала
и конца) вставляется оператор вызова
процедуры (имя процедуры), например
Наименование1.
С
целью не допустить ошибок при написании
имени процедуры рекомендуется вызвать
«Проводник по объектам», кнопка
Object
Browser
ИМ. В классе Globals
в конце списка вы найдете названия
созданных вами макросов. Скопируйте, а
затем вставьте на нужное место название
той процедуры, что требуется.
Запуск
диалоговой панели из среды Visual
Basic
осуществляется либо через меню Run/Run
Sub/UserForm,
либо кнопкой
ИМ. Для автоматического вызова при
открытии книги, как и в случае диалоговой
страницы, необходимо создать процедуру
с именемAuto_Open,
а в ее тело вставить оператор вызова
диалоговой панели Мой_диалог.Show
(имя
панели и ключевое слово для ее открытия):
Public Sub Auto_Open()
Мой_диалог.Show
End Sub