46003 (Макросы в Excel), страница 3

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 формулы исчезнут и останется только текст.

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

5. Заключение

И в заключении, целесообразно обобщить всё ранее сказанное и выделить основные моменты.

1 Макрос представляет собой записанную последовательность определенных действий.

2 Для записи макроса выполните команду Сервис | Запись макроса.

3 Назначение существующему макросу клавиши быстрого вызова и пункта меню выполняется с помощью команды Сервис | Макрос.

4 Команда С относительными ссылками записывает макрос, обрабатывающий данные в любом месте рабочей книги.

5 Редактировать текст макроса можно непосредственно в модуле с текстом.

6 Для удаления макроса нажмите мышью на его имени. При этом станут доступными кнопки окна диалога “Макрос”, в том числе кнопка Удалить.

7 Команда Сервис | Назначить макрос назначает макросы графическим объектам.

8 Введите в поле ввода Имя макроса название создаваемого макроса и запишите новый макрос.

9 Вы можете вносить изменения непосредственно в текст программы, в которой на языке Visual Basic for Applications записана последовательность действий макроса.

10 Записанный макрос можно запустить на выполнение одним из следующих способов:

— из основного меню

— при помощи кнопки на панели инструментов

— при помощи кнопки на рабочей области

— нажатием комбинации клавиш клавиатуры

— нажатием кнопкой мыши на графическом объекте

Список литературы.

1. Excel 7 для windows 95. Справочник Штайнер Й.1997

2. Excel 7.0: Общие и экономические расчёты. Матюшок В.М. 1997