Лабораторная работа № 11. Создание и использование макросов
Цель: Ознакомиться со способами создания и использования макросов.
1. Создание и выполнение макросов.
1.1. Пользуясь пунктом меню "Сервис"-"Макрос"-"Начать запись", ввести имя макроса "СтарыйАдрес" и сведения об авторе макроса (рис.11.1).
1.2. Начать запись макроса, позволяющего выполнить ввод в ячейки А5, А6, А7 следующий текст:
А5: Ленинградская междугородная телефонная станция,
А6: Ул. Герцена, д.3,
А7: г. Ленинград.
(В процессе записи макроса старайтесь избегать ошибок и исправлений!)
1.3. Завершить запись макроса, воспользовавшись пунктом меню "Сервис"-"Макрос"-"Остановить запись" или нажав соответствующую кнопку на панели инструментов "Остановка записи" (рис.11.2).
Рис.11.1 Рис.11.2
1.4. Очистить рабочий лист и перейти в ячейку A5. Выполнить созданный макрос, воспользовавшись меню "Сервис"-"Макрос"-"Макросы" и указав в диалоговом окне "Макрос" команду "Выполнить".
1.5. Снова очистить рабочий лист и повторить выполнение макроса, предварительно перейдя в любую другую ячейку.
1.6. Воспользовавшись меню "Сервис"-"Макрос"-"Макросы" и кнопкой "Изменить", открыть окно текста макроса "СтарыйАдрес" (лист "Модуль1") и просмотреть его содержимое.
|
|
|
1.7. Изменить текст в листе "Модуль1", заменив номер дома в адресе ("3" заменить на "3/5", вручную записав новый текст).
1.8. Вернуться в окно Excel с помощью команды "Файл"-"Закрыть", выполнить макрос "СтарыйАдрес" и убедиться в его работоспособности.
2. Создание и выполнение макросов с относительными ссылками.
2.1. Создать новый макрос под именем "НовыйАдрес" в режиме создания макроса с относительными ссылками. Предварительно очистить рабочий лист.
2.1.1. Пользуясь пунктом меню "Сервис"-"Макрос"-"Начать запись", задать для создаваемого макроса имя "НовыйАдрес" и ввести сведения об авторе макроса.
2.1.2. Включить режим использования относительных ссылок, воспользовавшись кнопкой на панели "Остановка записи" (если эта панель скрыта, то следует восстановить ее, пользуясь пунктом меню "Сервис"-"Настройка" и вкладкой "Панели инструментов" окна "Настройка").
2.1.3. Выполнить запись макроса, который будет вводить в три вертикально расположенные ячейки следующий текст:
ОАО "Санкт-Петербургский международный междугородный телефон",
г. Санкт-Петербург,
ул. Большая Морская, д.3/5.
|
|
|
2.1.4. Закончить запись макроса нажатием соответствующей кнопки.
2.2. Активизировать лист "Модуль1" и просмотреть его содержимое. Сравнить тексты макросов "СтарыйАдрес" и "НовыйАдрес".
2.3. Вернуться в окно Excel, поочередно выполнить макросы "СтарыйАдрес" и "Новый Адрес", используя команды "Сервис"-"Макрос"-"Макросы" и указав в диалоговом окне "Макрос" команду "Выполнить". Отметить различия в выполнении макросов.
3. Выполнение макросов с помощью сочетаний клавиш.
3.1. Для макроса "СтарыйАдрес" в диалоговом окне "Макрос" активизировать диалоговое окно "Параметры" и задать для вызова этого макроса сочетание клавиш Ctrl+C (где С - буква латинского алфавита).
3.2. Для макроса "НовыйАдрес" в диалоговом окне "Макрос" активизировать диалоговое окно "Параметры", где задать для вызова этого макроса сочетание клавиш Ctrl+Н (Н - буква латинского алфавита).
3.3. Выполнить макросы с помощью заданных сочетаний клавиш.
4. Создание и использование процедур.
4.1. Открыть лист "Модуль1". Внести в программный код VBA изменения, показанные на рис.11.3.
Рис.11.3
В результате будет создана новая процедура, названная "Formatting". Макрос "СтарыйАдрес" вызывает процедуру "Formatting" во второй строке программного кода. В процедуре "Formatting" использована функция MsgBox (вывод окна сообщения), которая позволяет приостановить выполнение процедуры "Formatting" до нажатия кнопки и выдать подходящее случаю сообщение.
|
|
|
4.2. Вернуться на лист Excel и выполнить макрос "СтарыйАдрес".
4.3. Изменить текст процедуры "Formatting" следующим образом:
· установить размер шрифта 16 пт.;
· установить зеленый цвет шрифта (индекс зеленого цвета - 50);
· установить зачеркнутый шрифт.
4.4. Выпонить макрос "СтарыйАдрес", внимательно проследив за правильностью его выполнения с учетом сделанных изменений.
4.5. Внести изменения в текст макроса "СтарыйАдрес" таким образом, чтобы процедура "Formatting" действовала на ячейку A7.
4.6. Внести изменения в текст макроса "СтарыйАдрес" таким образом, чтобы процедура "Formatting" действовала на ячейки A5, A6, A7.
4.7. Внести изменения в текст макроса "Новый Адрес" таким образом, чтобы выполнение макроса "НовыйАдрес" начиналось с процедуры "Formatting".
4.8. Проследить за правильностью выполнения макросов "СтарыйАдрес" и "НовыйАдрес" с учетом сделанных в пп 4.5 - 4.7 изменений.
|
|
|
5. Создание и применение пользовательских функций.
5.1. Создать таблицу, приведенную на рис.11.4, не заполняя ячейки С2:С4.
Рис.11.4
5.2. Пользуясь меню "Сервис"-"Макрос"-"Редактор Visual Basic", открыть редактор Visual Basic.
5.3. Открыть новый лист модуля ("Вставка"-"Модуль").
5.4. Ввести в лист модуля текст функции, позволяющей вычислить размер надбавки в зависимости от количества продаваемого товара. Текст такой функции приведен на рис.11.5.
Рис.11.5
5.5. Перейти на лист Excel, содержащий таблицу (рис.11.4). Ввести вручную в ячейку С2 функцию "Надбавка(количество, цена)", используя в качестве аргументов функции ссылки на ячейки А2 и В2.
5.6. В ячейку С3 ввести формулу для вычисления надбавки, пользуясь "Мастером функций" (категория "Определенные пользователем").
5.7. В ячейку С4 ввести формулу для вычисления надбавки, пользуясь копированием формул.
5.8. Изменяя данные в ячейках А2:А4, убедиться в правильности вычислений, производимых созданной функцией.
6. Предъявить результаты преподавателю.
7. Назначение макросов объектам в листе.
7.1. Назначение макросов кнопкам в листе.
7.1.1. Щелкнув на поверхности панели инструментов правой кнопкой мыши, активизировать контекстное меню и выбрать пункт "Формы".
7.1.2. Выбрав на панели "Формы" элемент типа "Кнопка", разместить на поверхности рабочего листа две кнопки. С помощью автоматически открывающегося окна "Назначить макрос объекту" связать каждую кнопку с одним из двух созданных Вами макросов.
7.1.3. Отформатировать объекты (кнопки) таким образом, чтобы их размеры не превышали 2 ячеек в ширину и 2 ячеек в высоту. На каждой кнопке должна быть надпись, поясняющая назначение кнопки и оформленная жирным шрифтом размером 10 пунктов (рис.11.6).
7.1.4. Проверить правильность выполнения макросов с помощью созданных кнопок.
Рис.11.6
7.2. Назначение макросов графическим объектам.
7.2.1. С помощью панели инструментов "Рисование" создать на рабочем листе два объекта, подобные приведенным на рис.11.7.
7.2.2. Используя контекстное меню, для каждого объекта назначить макрос, который будет выполняться при активизации объекта.
7.2.3. Проверить правильность выполнения макросов с помощью созданных графических объектов.
Рис.11.7
Предъявить полученные результаты преподавателю.
8. Оформить отчет (приложение 1)
Приложение 1
Дата добавления: 2018-04-05; просмотров: 547; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!