Вопрос 8. Работа с макросами в табличном процессоре MS Excel

За каждой кнопкой панелей инструментов закреплена небольшая программа – макрос. Макрос представляет собой последовательность макрокоманд и макрофункций. Excel предоставляет пользователю возможность создавать собственные макросы с использованием языка VBA или макрорекордера.

Наиболее простым способом создания макрокоманды является ее запись с помощью макрорекордера. Это средство позволяет автоматизировать выполнение часто повторяющихся последовательностей рабочих шагов и при этом не требует знаний макропрограммирования. Макрорекордер протоколирует все выполняемые пользователем действия и сам преобразует их в VBA-код.

Рассмотрим порядок создания и запуска макроса, который должен для любого выделенного блока ячеек выполнять следующую последовательность действий:

· устанавливать для шрифта размер– 16 пт, цвет– синий;

· задавать внешние границы для блока толстой синей линией;

· присваивать ячейкам денежный формат с отображением двух знаков после запятой.

1. Активизируйте новый пустой рабочий лист.

2. ВыполнитекомандуСервис► Макрос► Начать запись.

3. В открывшемся диалоговом окне Запись макроса(рис. 5.26) введите имя макроса – Пробный.

Примечание. Имя макроса должно не содержать пробелы и не превышать 255 символов. По желанию можно внести описание макроса, задать комбинацию «горячих» клавиш для быстрого вызова макроса в поле Сочетание клавиш и в поле Сохранить в указать, где будет сохранен созданный макрос.

4. Для запуска процедуры записи щелкните на кнопке [ОК]. На экран будет выведена панель инструментов Остановить запись, представленная на рис. 5.27. Панель содержит две кнопки: [Остановить запись] и [Относительная ссылка].

Примечание. Если панель Остановить запись не появилась, то ее можно отобразить командой Вид►Панели инструментов►Остановить запись.

5. Выполните щелчок на кнопке [Относительная ссылка] для того, чтобы макрос в дальнейшем выполнялся для любого выделенного блока ячеек, а не той ячейки, которая была активна при записи макроса.

6. Выполните последовательность действий, назначаемых макросу:

· установите Формат►Ячейки►вкладка Шрифт;

· измените цвет шрифта на синий, размер шрифта – 16 пт;

· перейдите на вкладку Граница, выберите заданный тип и синий цвет линии, щелкните на кнопке [Внешние];

· перейдите на вкладкуЧисло, в списке Числовые форматы выберите Денежный, число десятичных знаков – 2.Нажмите [ОК]

7. Завершите запись щелчком по кнопке [Остановить запись] или выполнив команду меню Сервис►Макрос►Остановить запись.

8. Проверьте работу макроса. Для этого:

· активизируйте новый лист и выделите, например, ячейки В2:D8;

· введите в ячейки В2, С6 произвольные данные;

· выполните команду Сервис►Макрос►Макросы. В открывшемся диалоговом окне Макрос выберите макрос Пробный и нажмите [Выполнить].

Для более быстрого запуска макрос также можно назначить пиктограмме на панели инструментов или пункту в главном меню.

Рассмотрим алгоритм назначения макроса кнопке на панели инструментов на примере инсталляции макроса Пробный в виде пиктограммы красного цвета на панель инструментов Форматированиеи запуска макроса при помощи пиктограммы.

1. Откройте окно Настройка командой Вид►Панели инструментов► Настройка►вкладка Команды.

2. Всписке Категории выберите – Макросы, а в списке Команды выделите пункт Настраиваемая кнопка и перетащите его при помощи левой кнопки мыши на панель инструментов, разместив, например, после кнопки К [курсив]. На панели инструментов появится новая кнопка (обычно это кнопка с изображением улыбающегося смайлика).

3. Назначьте кнопке макрос, для чего в окне Настройка нажмите кнопку [Изменить выделенный объект] (новая кнопка на панели инструментов должна быть выделена) и в открывшемся меню выберите пункт Назначить макрос. В окне Назначить макрос выделите макрос с именем Пробный и нажмите [ОК].

4. Представьте кнопку без текста. Снова активизируйте кнопку [Изменить выделенный объект] и выберите пункт – Основной стиль.

5. Измените значок на кнопке. Для этого нажмите кнопку [Изменить выделенный объект] и выберите пункт Изменить значок на кнопке. В окне Редактор кнопок в группе Цвета выберите нужный цвет, а в поле Рисунок разукрасьте кнопку при помощи щелчков мыши на каждом квадратике. Нажмите [ОК]. Закройте окно Настройка.

6. Проверьте работу новой кнопки на ячейках H2:I6, введя в них произвольные данные.

Для удаления макроса используется кнопка [Удалить] в окне Макросы. Кнопку с панели инструментов можно удалить, отбуксировав ее в любое место окна Настройка.