Простой макрос

В качестве примера создания макроса рассмотрим макрос, в результате выполнения которого ячейки в диапазоне А1:А10заполняются последовательностью нату­ральных чисел от 1 до 10, после чего активной становится ячейка В1. Ниже описывается процесс создания подобного макроса.

Прежде всего, выберите команду Сервис-Макрос-Начать запись… В результате раскроется диалоговое окно, показанное на рис. 1.

 

Рис. 1. Окно записи макроса

 

В этом диалоговом окне следует в поле Имя макроса: ввести имя создаваемого макроса (в данном случае это My_Macro),в поле Описание: можно ввести комментарий (текст Макрос записан 10.02.2007 (Gen Sh) или что-то другое). Помимо этого, в поле Сочетание клавиш: может быть ука­зана комбинация клавиш для запуска данного макроса. Чтобы сделать это, поместите курсор в данное поле и нажмите выбранную клавишу. В данном конкретном случае использована прописная литера А, поэтому макрос будет запускаться нажатием комбинации клавиш <Ctrl+Shift+A>. В списке Сохранить в: можно указать, где будет храниться макрос. В нашем примере создаваемый макрос записывается в текущую рабочую книгу. После щелчка на кнопке ОКначинается запись макроса.

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

Внимание!При записи макроса отображается панель остановки записи макроса Остановка записи.

Запись макроса состоит из таких этапов.

1. В ячейку А1 вводится число 1, а в ячейку А2 — число 2. После этого следует выделить диапазон А1 :А2 (рис. 2).

 

Рис. 2. Внесение чисел в ячейки А1 и А2.

2. С помощью перетаскивания маркера заполнения необходимо расширить вы­деленный диапазон до А1 :А10 (рис. 3).

3.
Далее выделяем ячейку В1. Получившийся в результате вид окна MS Excel пока­зан на рис. 4.

 

Рис. 3. Заполнение диапазона Рис. 4. Вид рабочего листа

А1:А10 с помощью маркера перед завершением записи

заполнения макроса

 

4. Наконец, следует щелкнуть на кнопке окончания записи макроса на панели Остановить запись (рис. 5).

Рис. 5. Остановка записи макроса

 

Совет. Если по каким-то причинам панель Остановить запись не была отображена на экране (например, была случайно закрыта), вывести ее мож­но выбором команды Вид | Панели инструмен­тов | Остановка записи.

В дальнейшем для запуска только что созданного макроса можно выбрать команду Сервис | Макрос | Макросы или нажать комбинацию клавиш <Alt+F8>. (Перед первым запуском макроса сохраните книгу). В любом случае в результате откроется диалоговое окно Макрос, подобное тому, которое показано на рис. 6.

 

Рис. 6. Окно Макрос может использоваться для запуска макросов

 

В этом окне следует выбрать нужный макрос (в данном случае он один My_Macro), и щелкнуть на кнопке Выполнить. Второй способ запустить макроссостоит в том, чтобы воспользоваться комбинацией клавиш <Ctrl+Shift+A>, называемую «горячей». Проверить работу созданного нами макроса можно, в частности, так: перейдите в рабочей книге на новый рабочий лист и выполните любое из указанных выше действий.

Из окна Макрос с помощью кнопок можно:

Войти – открыть код макроса в редакторе VBA и начать его пошаговое выполнение;

Изменить– просто открыть макрос в редакторе VBA;

Создать – необходимо будет ввести имя создаваемого макроса и в редакторе VBA будет автоматически создана процедура с определенным вами именем;

Удалить – удалить макрос из списка;

Параметры … - параметры макроса.

Каждый раз открывать это окно, находить нужный макрос (а их может быть, например, несколько десятков) и нажимать на кнопку Выполнить – не самый быстрый вариант.

Назначать клавиатурную комбинацию <Ctrl+символ> есть смысл только тем макросам, которыми пользуются очень часто. Если макросом пользуются редко, то назначенные клавиши забываются и теряются те бумажки на которых они были записаны. Лучший выход в такой ситуации − назначить макросу кнопку на панели управления.