Задание 15. Макросы с условиями

- выдает информационное сообщение об окончании работы.

1.1. Дать этому макросу имя МакАдр_1 и сохранить его.

1.2. Выполнить макрос МакАдр_1 несколько раз и попытаться проследить последовательность действий. Обратить внимание на то, что форма Адреса и отчет Девушки остаются открытыми после работы макроса.

2. Создать макрос МакАдр_2, выполняющий следующие действия:

- выдачу сообщения о начале работы;

- открытие формы Адреса;

- подачу звукового сигнала;

- выдачу информационного сообщения о предстоящем закрытии формы Адреса;

- закрытие формы Адреса;

- открытие отчета Девушки;

- выдачу предупреждающего сообщения о предстоящем закрытии отчета;

- закрытие отчета Девушки.

2.1. Дать этому макросу имя МакАдр_2 и сохранить его.

2.2. Выполнить макрос МакАдр_2 в пошаговом и в автоматическом режимах.

3. Создать макрос МакУсл_1 с командой безусловного перехода.

3.1. Для макроса МакАдр_1, пользуясь кнопками Панели инструментов Макрос, открыть столбец Имя Макроса (рис.15.1) и для каждой строки (команды) задать имена aaa, bbb, ccc, ddd, eee и т.д.

Рис.15.1

3.2. Вставить после первой команды Сообщение команду Запуск макроса с параметром eee, которая обеспечивает безусловный переход к команде еее после выполнения первой команды. Выполнить макрос и убедиться в правильности его работы.

3.3. Дать этому макросу имя МакУсл_1 и сохранить его.

4. Добавить в окне работы с макросами столбец Условие с помощью кнопок Панели инструментов Макросы.

5. Создать макрос МакУсл_2 (рис.15.1) с командой условного перехода, выполняющий следующие действия:

- выдачу стартового сообщения;

- открытие формы Адреса;

- переход к элементу управления - полю ПочтКод, представленному в форме Адреса;

- закрытие формы Адреса;

- подачу звукового сигнала;

- выдачу сообщения о завершении работы.

6.1. В качестве условия для выполнения закрытия формы Адреса определить значение функции MsgBox(“Продолжить?”;1)=1. (Значение 1 функция MsgBox() принимает при нажатии кнопки, представленной в диалоговом окне, отображаемом этой функцией).

6.2. Каждой группе команд дать имена aaa, bbb, ccc ( рис.15.1). Сохранить созданный макрос, не выполняя его.

6.3.Вызвать форму Адреса и добавить в область примечания формы кнопку с надписью «Продолжение макроса», как показано на рис.15.2.

6.3.1. Для созданной кнопкив контекстном меню выбрать пункт Свойства и вкладку События. В разделе Нажатие кнопки указать необходимость выполнения команды bbb макроса МакУсл_2.