7. Макросы

Макрос – это записанная последовательность команд и действий пользователя, сохранённая под уникальным именем, которую может выполнить Excel.

Средство записи макросов во время своей работы конвертирует каждую из используемых команд в соответствующей строке программного кода VBA. Законченный макрос сохраняется как процедура VBA. Таким образом, макрос представляет собой процедуру типа Sub, не имеющую аргументов.

Макросы выполняют функции:

1. Запись последовательно выполняемых команд многократно.

2. Используется непосредственно для вычислений, обработки входных данных. Для программирования в VBA.

Для работы с макросами в приложении Excel имеется специальная панель (рис. 10.). Для вызова этой панели необходимо выполнить последовательно команды Меню: Вид►Панель инструментов►Visual Basic.

Рис. 10. Панель Visual Basic

Общий алгоритм записи макроса:

1. Нажать кнопку «Записать макрос» на панели Visual Basic.

2. Дать имя макросу в диалоговом окне «Запись макроса». Имя макроса должно по возможности ассоциироваться с выполняемыми ими задачами. В поле Описание набрать описание действий (например: объединение и форматирование двух ячеек). В поле Сочетание клавиш определить комбинацию клавиш, при помощи которой, будет выполняться данный макрос (например: Ctrl + d) d – латинская малая буква. В поле Сохранить в: из списка выбрать Эта книга (есть еще личная книга макросов).

3. Нажать кнопку Относительная ссылка, для выполнения макроса в любой ячейке. Если кнопка Относительная ссылка не нажата, то макрос будет составлен для конкретной ячейки, т.е. в режиме абсолютных ссылок.

4. Выполнить действия, которые нужно записать.

5. Нажать кнопку «Остановить запись», панели Visual Basic. Кнопка «Остановить запись» появится на панели Visual Basic после нажатия кнопки ОК диалогового окна «Запись макроса».

1. Правила присваивания имени макросу

1. Имя макроса должно начинаться с буквы, а не с цифры. После первой буквы могут идти цифры.

2. Имя макроса не должно содержать пробелов, например Пример_VBA. Для выделения начала слов в имени макроса следует использовать прописные буквы.

3. Не допускаются знаки пунктуации.

2. Выполнение макросов

1. Сервис►Макрос►Макросы…

2. Из диалогового окна Макрос выбрать имя макроса.

3. Нажать кнопку Выполнить.

Выполнить макрос можно не выходя из редактора VBA:

1. Нажать кнопку Run Sub/UserForm на панели Стандартной.

2. Выбрать команду горизонтального меню Run► RunSub/UserForm.

3. Нажать клавишу F5.

3. Редактирование макросов

I способ

1. Запустить MS VB.

2. Активизировать модуль.

3. В поле Declaration (объявления) выбрать имя макроса.

II способ

1. Сервис►Макрос►Макросы…

2. Из диалогового окна выбрать имя макроса.

3. Нажать кнопку Изменить.

4. Назначение макроса графическим изображениям

Для запуска макроса можно использовать любой элемент, находящийся на рабочем листе.

Можно использовать для запуска любое графическое изображение:

1. Откройте программу Exсel.

2. Используя панель Рисование, нарисуйте на листе любую автофигуру.

3. Щелкните правой кнопкой мыши на изображении и в открывшемся контекстном меню выберете команду Назначить макрос... Откроется диалоговое окно Назначить макрос объекту.

Запустить макрос на выполнение можно, используя командную кнопку. Вставить командую кнопку непосредственно на рабочий лист Ехсеl можно с помощью панелей инструментов Формы и Элементы управления. Затем необходимо назначить ей любой макрос (рис. 11.).

Рис. 11. Использование командной кнопки для запуска макроса

Пример создания макроса:

Задание:

Записать макрос, который выполняет вычисления в таблице и её форматирование.

Выполнение задания:

1. Установить курсор в любую ячейку.

2. Выбрать команду Сервис ► Макрос► Начать запись, появится диалоговое окно Запись макроса (рис. 12.).

3. В поле Имя макроса указать имя создаваемого макроса Макрос_таблица. В поле Описание ввести Создание таблицы. В поле Сочетание клавиш определить комбинацию клавиш Ctrl + z. В поле Сохранить в: из списка выбрать Эта книга. Нажать ОК.

Рис. 12. Диалоговое окно Запись макроса

4. Нажать на кнопку Относительная ссылка панели инструментов Остановить запись.

5. Выполнить последовательность действий:

   • Ввести в ячейку А1 – «X»;

   • Ввести в ячейку В1 – «Y»;

   • Ввести в ячейку C1 – «Z=X+Y»;

   • Ввести в ячейку C2 формулу =A1+B1;

   • Скопировать формулу из ячейки С2 в ячейку С3, используя маркер заполнения;

   • Выделить диапазон ячеек полученной таблицы

   • Выбрать команду Формат►Ячейка…,

   • Выбрать на вкладке Выравнивание по горизонтали – по центру, по вертикали – по центру;

   • Выбрать на вкладке Шрифт начертание – полужирный, размер-12, цвет-любой;

   • Выбрать на вкладке Граница внешние и внутренние границы.

   • Нажать ОК.

6. Нажать на кнопку Остановить запись.

7. Проверить работу программы. Для этого в любую ячейку набрать нужный текст и нажать комбинацию клавиш Ctrl + z или выполнить команду Сервис► Макрос► Макросы.