Макросы, понятие и виды

Макрос назначен графическому объекту. Если теперь поместить  указатель мыши на этот объект, то белый  крестик перейдет в изображение  руки с отогнутым указательным пальцем. Нажатие левой кнопки мыши приводит к выполнению макроса, который назначен этому объекту.

Пример 6. Назначение макроса графическому объекту

Назначим макрос “Число” графическому объекту “стрелка”. Для этого выполните следующие  действия:

· Нажмите кнопку с изображением стрелки на панели инструментов “Рисование”.

· Установите курсор в  нужное место таблицы  и, удерживая нажатой  кнопку мыши, проведите  стрелку.

· Нажмите кнопку Текстовое  поле на панели инструментов “Рисование” и, удерживая  нажатой кнопку мыши, выделите место для текста.

· Введите текст  “Число” и нажмите  кнопку мыши вне текстового поля.

· Нажмите правую кнопку мыши на текстовом  окне. Появится меню, в котором выберите пункт Формат объекта. После этого появится окно диалога “Форматирование объекта”. В этом окне нам понадобятся вкладки: “Выравнивание”, “Шрифт” и “Вид”. Во вкладке “Выравнивание” установите переключатели вертикального и горизонтального выравнивания в положение по центру. Во вкладке “

Шрифт”  выберите шрифт TimesET, стиль Italic, размер 16. Во вкладке “Вид” установите переключатель Рамка в положение Нет, в результате чего рамка вокруг текста будет удалена.

  Нажмите клавишу  OK. Графический объект  построен.

  Нажмите кнопку  На задний план, расположенную на  панели инструментов  “Рисование”. Текст оказался под стрелкой.

· Нажмите кнопку мыши на графическом объекте. Объект становится активным.

· Нажмите правую кнопку мыши, когда ее указатель  находится на объекте. Появится меню со списком  команд.

· Выберите Назначить макрос. Появится окно диалога “Назначить макрос объекту” со списком созданных макросов.

· Выберите макрос “Число”. Имя макроса появится в верхней строке окна диалога.

· Нажмите кнопку OK. Вы назначили макрос графическому объекту. Нажмите кнопку мыши вне объекта, чтобы  он перестал быть активным.

Если поместить  указатель мыши на изображение стрелки, то белый крестик перейдет в изображение  руки с отогнутым указательным пальцем. Нажатие левой кнопку мыши приводит к выполнению макроса “Число”. 

Пример 7. Назначение макроса рисунку 

Представлены  три рисунка, которым назначены  созданные нами макросы “Месяц”, “Заголовок” и “Число”.

Назначение макроса  рисунку ничем не отличается от назначения макроса графическому объекту, которое  было рассмотрено ранее. Рисунки  взяты из каталога Windows. Они содержатся в файлах WINLOGO.BMP, EGYPT.BMP и ARCHES.BMP.

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

· Выполните команду  Вставка | Рисунок. Появится окно диалога выбора рисунка.

· Выберите каталог Windows. В окне диалога  появится список графических файлов.

· Выберите файл WINLOGO.BMP и выбранный рисунок  появится на рабочем  листе Excel.

· Нажмите правую кнопку мыши, когда ее указатель  находится на активном рисунке.

· Из всплывающего меню выберите команду  Назначить макрос. Появится окно диалога со списком макросов, в котором выберите требуемый. Нажатие кнопки OK завершает процесс назначения.  

· Нажмите кнопку мыши вне рисунка, чтобы  он перестал быть активным. 

В ячейках A1:A3 вы можете увидеть результат работы макроса “Число”, который был назначен рисунку “winlogo”. Для получения результата мы выделили ячейки A1:A3 и переместили указатель мыши на рисунок “winlogo”. Нажатие кнопки мыши привело к выполнению макроса “Число”, то есть к форматированию ячеек A1:A3. 

4. Примеры макросов 

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

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

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

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

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

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

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

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

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

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

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

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

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