Примеры макросов. 
Создание макросов

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

В этом разделе мы приведем примеры макросов, выполняющих следующие функции:

• 1. Заполнение ячейки числами, являющимися членами арифметической прогрессии с разностью равной 0,5
• 2. Назначение встроенного формата диаграмм
• 3. Вставка значения вместо формул

Пример 10. Макрос «Прогрессия».

В результате работы макроса «Прогрессия» выделенные в строке ячейки заполняются числами, являющимися членами арифметической прогрессии с разностью равной 0,5 или с шагом 0,5.

Для записи макроса «Прогрессия» выполните следующие действия:

Введите в ячейку A1 число 1000 и выделите ячейки A1: C1.

Выполните команду Сервис | Запись макроса | Начать запись. Появится окно диалога «Запись макроса».

Введите в поле ввода Имя макроса название записываемого макроса Прогрессия и нажмите кнопку Параметры. Окно диалога «Запись макроса» расширяется.

Перейдите на латинский регистр и введите букву p для клавиши быстрого вызова макроса.

Нажмите кнопку OK в окне диалога «Запись макроса», которое после этого закроется. Начиная с этого момента, все ваши действия будут записываться в макрос. В строке состояния появится слово «Запись».

Выполните команду Правка | Заполнить | Прогрессия. Появится окно диалога «Прогрессия».

Установите флажок по строкам. Это означает, что прогрессия будет строится в выделенной строке.

Установите флажок арифметическая. Это означает, что ячейки в строке будет заполняться числами, являющимися членами арифметической прогрессии.

В окне «Шаг» введите число 0,5 — разность арифметической прогрессии.

Нажмите кнопку OK, чтобы выйти из окна диалога «Прогрессия». Теперь нужно закончить запись макроса.

Нажмите кнопку Остановить макрос.

Итак, результаты работы макроса «Прогрессия». Он запускается нажатием Ctrl+p. Перед этим нужно ввести первый член прогрессии и выделить ячейки в строке, где будут размещаться члены арифметической прогрессии с разностью 0,5.После нажатия клавиш Ctrl+p ячейки A1: G1 заполнятся числами 1000 1000,5 1001 1001,5 1002 1002,5 1003.Если первая ячейка среди выделенных не содержит число, то заполнение числами не произойдет и ячейки останутся без изменения.

Пример 11. Макрос «Диаграмма».

Этот макрос будет восстанавливать стандартную диаграмму Excel. Если вы строили графики с использованием пользовательского автоформата диаграмм, то для перехода к стандартной диаграмме Excel вам достаточно будет запустить этот макрос.

Для записи макроса «Диаграмма» выполните следующие действия:

Выполните команду Сервис | Запись макроса | Начать запись. Появится окно диалога «Запись макроса».

Введите в поле ввода Имя макроса название записываемого макроса Диаграмма и нажмите кнопку Параметры.

Перейдите на латинский регистр и введите букву d для клавиши быстрого вызова макроса.

Нажмите кнопку OK в окне диалога «Запись макроса». Начиная с этого момента все ваши действия будут записываться в макрос. В строке состояния появится слово «Запись».

Из меню Сервис выберите команду Параметры. Появится окно диалога «Параметры».

Выберите вкладку «Диаграмма». В поле ввода списка Формат диаграммы по умолчанию отображается название последнего использовавшегося пользовательского автоформата диаграммы.

В списке Формат диаграммы по умолчанию с помощью полосы прокрутки найдите значение Встроенная и нажмите кнопку OK.

Нажмите кнопку Остановить макрос.

До запуска макроса «Диаграмма» в качестве диаграммы по умолчанию строилась диаграмма формата Линии. После нажатия клавиш Ctrl+d в качестве диаграммы по умолчанию будет использоваться Встроенная. Макрос изменяет значение формата для стандартной диаграммы. Обе диаграммы построены на наборе данных A1: E4, но с использованием разных форматов.

Пример 12. Макрос «Значение».

Действие этого макроса аналогично нажатию кнопки Вставить значения. В ячейке остается только результат работы формулы, а сама формула исчезает. Это очень важная функция, поэтому приведем алгоритм записи соответствующих действий в макрос, который впоследствии будет вызываться нажатием Ctrl+v.Для записи макроса «Значение» выполните следующие действия:

Для наглядности введите в ячейки A1 и A2 какие-нибудь формулы, например, следующего вида: =COS (D1), =COS (D2). В ячейках D1 и D2 расположены числа.

Выделите ячейки A1 и A2.

Выполните команду Сервис | Запись макроса | Начать запись. Появится окно диалога «Запись макроса».

Введите в поле ввода Имя макроса название записываемого макроса Значение и нажмите кнопку Параметры.

Перейдите на латинский регистр и введите букву v для клавиши быстрого вызова макроса.

Нажмите кнопку OK в окне диалога «Запись макроса». Начиная с этого момента все ваши действия будут записываться в макрос.

Выполните команду Правка | Копировать.

Нажмите мышью в первую ячейку выделенной области. В нашем случае это ячейка A1.

Выполните команду Правка | Специальная вставка. Появится окно диалога «Специальная вставка».

Установите признак Значения.

Нажмите кнопку OK для выхода из окна диалога «Специальная вставка».

Нажмите мышью в первую ячейку выделенной области. В нашем случае это ячейка A1.

Нажмите клавишу Esc.

Нажмите кнопку Остановить макрос.

Работа с макросом «Значение» осуществляется следующим образом. Сначала выделите блок ячеек, в которых присутствуют формулы, а затем нажмите Ctrl+v. В выделенных ячейках останутся только значения формул. Результатом работы формул может быть текст. После нажатия Ctrl+v формулы исчезнут и останется только текст.

Если вы хотите использовать макрос «Значение» вместо команды Специальная вставка, запишите его с относительными ссылками.