Макросы в Excel

    Установите  стиль и размер шрифта и нажмите  клавишу OK. 

      Нажатие Enter при вводе текста  не завершает ввод, а лишь переводит  на следующую строку.

      Вы получили надпись на объекте.  Обратите внимание, что надпись  “Заголовок” сделана под графическим  объектом “прямоугольник”. После  того как было найдено удачное  расположение надписи на объекте, была нажата кнопка На задний план, расположенная на панели инструментов “Рисование” и текст оказался под объектом.

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

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

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

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

    ·Нажмите  кнопку OK. Вы выйдете из режима назначения макроса. Графический объект остается активным. Нажмите кнопку мыши в  любом месте вне объекта.

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

    Назначить макрос графическому объекту можно  и другим способом. Нажмите правую кнопку мыши на объекте. Из появившегося меню выберите команду Назначить макрос и из списка макросов выберите требуемый.

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

    Пример 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. 

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