Использование макросов для автоматизации наиболее часто выполняемых задач

Цель: Освоение работы с макросами и знакомство с элементами языка Visual Basic.

Если какое- то действие часто повторяется, его выполнение можно автоматизировать с помощью макроса. Макрос – это серия команд и функций, хранящихся в модуле Visual Basic. Их можно выполнять всякий раз, когда необходимо выполнить данную задачу. Перед тем как записать или написать макрос, необходимо спланировать шаги и команды, которые он будет выполнять. Если при записи макроса была допущена ошибка, ее исправление будет также записано. Каждый раз при записи макроса, он сохраняется в новом модуле, присоединенном к книге.

1. Создать макрос с именем Пример 1, который позволяет выполнить следующую последовательность действий: представить окно рабочей книги в полноэкранном режиме, убрать сетку, изменить вид шрифта для ячеек и присвоить ячейкам денежный стиль. Для начала записи макроса в меню Сервис\Макрос нужно выбрать Начать запись. В диалоговом окне Запись макроса необходимо ввести имя для макроса в соответствующее поле, а в поле Сохранить в книге указать Эта книга. (Если требуется, чтобы макрос был доступен независимо от того, используется ли в данный момент программой Excel, его следует сохранить в личной книге макросов.)

2. После выхода из диалога Запись макроса выполнить действия, которые должен записать макрорекордер:

· установить полноэкранное представление окна рабочей книги;

· удалить сетку путем выключения соответствующей опции в закладке Вид диалогового окна Параметры, которое открывается с помощью меню Сервис;

· выделить весь рабочий лист и присвоить всем ячейкам денежный стиль;

· задать для всех ячеек какой-нибудь вид и размер шрифта (например, TimesNewRoman, 16 пунктов).

3. Выполнив указанные действия, остановить запись макроса с помощью кнопки Остановить запись.

4. Просмотреть текст созданного макроса. Для этого в меню Сервис\Макрос\Макросы в открывшемся окне выбрать команду Войти. После выполнения этой команды автоматически загружается приложение Visual Basic, а в окне Модуль показывается запись выполненных при создании макроса действий в программных кодах. Переписать программу со своими комментариями.

5. Закрыть окно программы Visual Basic и вернуться в свою рабочую книгу (команда File\ Close and return Microsoft Excel).

6. Перейти на Лист 2. Запустить макрос с помощью команды Макрос меню Сервис, затем восстановить исходные данные листа.

7. Назначение клавиши для запуска макроса. В меню Сервис\Макрос\Макросы выбрать имя того макроса, которому нужно присвоить сочетание клавиш, с помощью которых он будет выполняться. После этого в диалоговом окне нужно выбрать команду Параметры и ввести соответствующую букву в поле Сочетание клавиш. Запустить макрос через сочетание клавиш. Восстановить исходные данные листа.

8. Назначение кнопки для запуска макроса. В меню Вид активизировать панель инструментов Формы. Затем выполнить следующие действия:

· На панели инструментов Формы выбрать кнопку с соответствующим элементом.

· На листе с помощью мыши придать элементу управления нужный размер.

· Выделить кнопку так, чтобы появились маркеры выделения.

· Щелкнуть правой кнопкой мыши и выбрать команду Назначить макрос в контекстном меню.

· Запустить макрос, используя созданную кнопку. Восстановить исходные данные листа.

9. Назначение команды меню. В меню Вид\Панель инструментов выбрать команду Настройка. Далее:

· На вкладке Команды выбрать среди категорий опцию Макросы.

· Перетащить мышкой кнопку Настраиваемая команда меню в меню Сервис и установить под строкой Макрос.

· Нажать правую кнопку мыши и, используя контекстное меню, переименовать пункт меню в Мой макрос и назначить макрос.

· Запустить макрос, используя созданную команду меню. Восстановить исходные данные листа.

10. Создать собственную панель инструментов. Для этого:

· Выполнить команду Вид\Панель инструментов\Создать\Присвоить имя.

· Не выходя из режима настройки панелей, перенести на панель кнопки с панели Visual Basic, а затем добавить элемент Кнопка с панели Элементы управления. Используя правую кнопку мыши, дать кнопке имя и назначить макрос.

· Запустить макрос с помощью его кнопки на панели инструментов. Восстановить исходные параметры листа.

P.S.!!!

На экране рабочего окна Приложения отражены выполненные действия с помощью макросов. Содержание окна в Приложение отражает выполненную программу с помощью макросов.

Приложение 9

Приложение 10

Лабораторное занятие 13