Реферат: Макросы в Excel

1.Введение.

2.Начало пути.

3.Редактирование, удаление, переименование иназначение макросов.

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

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


 

1. Введение.

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

    Макрос записывается на языке Visual Basic forApplications. Текст макроса можно вызывать для редактирования.

    В следующей главе мы рассмотримвопросы:

Созданиеи редактирование макросов

 

Назначение макроса клавише быстрого вызова и пунктуосновного меню

Назначение макросаграфическому объекту и кнопке  пользователя

Запись новых действий в существующий макрос

Созданиекнопки для вызова макроса

 

2. Начало пути.

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

    К часто повторяющимся действиям можноотнести выбор нужного формата. Процедуру создания макросов мы рассмотрим напримере макроса “Число”, который будет устанавливать для выделенной областичисловой формат. Требуемый числовой формат создадим заранее в категорииформатов Все форматы.

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

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

    Введите в поле ввода Имя макросаназвание создаваемого макроса — Число. Помимо стандартной информации (когда икем был записан макрос) вы можете ввести в поле ввода Описание краткоеописание назначения макроса. После этого нажмите кнопку OK. Начиная с этогомомента осуществляется запись макроса. На экране появляется кнопка Остановитьмакрос. Если вы нажмете на ней кнопку мыши, то запись макроса будетзакончена. Другим признаком режима записи макроса является появление слова“Запись” в строке состояния.

    Теперь вам нужно выполнитьпоследовательность действий, которая и будет записана в макрос. В нашем случаепоследовательность действий следующая: выделите ячейки, которые вы собираетесьформатировать, и нажмите Ctrl+1; в появившемся окне диалога “Формат ячеек”выберите вкладку “Число”, а на ней категорию форматов Все форматы. Изпоявившегося списка форматных кодов выберите требуемый код, после чего нажмитекнопку OK.

    В заключение вам остается завершитьзапись макроса. Кроме нажатия на кнопку Остановить макрос вы можетевоспользоваться альтернативным способом: в списке опций пункта основного менюСервис выберите Запись макроса, а затем — Остановить запись.

    Если кнопка Остановить макросотсутствует с экрана, то ее легко можно восстановить. Для этого нажмите правуюкнопку мыши на любой панели инструментов и в появившемся списке выберите пункт Настройка.Появится список категорий кнопок. Выберите среди них категорию Макрос.Появится набор кнопок, который содержит кнопку Остановить макрос.Нажмите на ней кнопку мыши и, удерживая ее нажатой, переместите кнопку нанужную вам панель или просто на экран. Для выхода из режима настройки панелейнажмите кнопку Закрыть.

    После окончания записи макроса онпоявляется в списке макросов под именем “Число”. Для вызова макроса выполнитекоманду Сервис | Макрос. Появится окно диалога со списком макросов.Найдите требуемый макрос и нажмите кнопку Выполнить. Результатом работымакроса “Число” будет ввод форматного кода в выделенные ячейки таблицы.

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

Назначить макросу пункт меню или клавишубыстрого вызова можно и после того как макрос создан. Для этого выполнитекоманду Сервис | Макрос. Появится окно диалога со списком макросов.Выделите нужный и нажмите кнопку Параметры. Появится окно диалога, вкотором вы можете сделать все необходимые назначения.

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

    Разберем два примера макросов. Одинзаписан в обычном режиме, а другой— с относительными ссылками, после чегосравним их работу.

Пример 1. Вывод на экран названий месяцев

    При составлении различных отчетов исводок в качестве названий строк часто используются названия месяцев. Создадиммакрос, который будет выводить на экран столбец с названиями месяцев в ячейкахA1:A12. Для этого выполните следующие действия:

·   Установите курсор в какую-нибудьячейку книги, за исключением A1.

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

·   Введите в поле ввода Имя макросаназвание создаваемого макроса Месяц_абс. В поле ввода Описание введите текст:Вводит названия месяцев. Нажмите кнопку Параметры. Появится окно диалога“Запись макроса”.

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

·   Выполните последовательностьдействий, которую будет выполнять макрос: установите курсор в ячейку A1;введите слово январь; поместите указатель мыши в правый нижний угол ячейки A1,при этом указатель мыши изменит вид на черный крестик; нажмите кнопку мыши и,удерживая ее нажатой, продолжите выделение до ячейки A12.

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

Если вы не выполните условие 1 шага, тоесть курсор будет находиться в ячейке A1, то макрос будет правильно работатьтолько в том случае, когда вы перед нажатием клавиш Ctrl+m поместите курсор вячейку A1.

Макрос записан и теперь нажатие клавиш Ctrl+m вызоветпоявление в ячейках A1:A12 названий месяцев. При записи макроса мы не включалирежим записи с относительными ссылками, поэтому названия месяцев будутпоявляться только в ячейках A1:A12. Для устранения этого неудобствапредназначен режим записи с относительными ссылками.

Пример 2. Создание макроса с относительнымиссылками

    В этом примере вам предстоит создатьмакрос с относительными ссылками для размещения заголовка таблицы продажкомпьютеров в произвольном месте рабочей книги.

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

·   Выполните команду Сервис | Записьмакроса | С относительными ссылками.

·   Введите в поле ввода Имя макросаназвание создаваемого макроса — Заголовок. В поле ввода Описание введитетекст: Вводит названия компьютеров.

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

·   Введите наименование добавляемогопункта меню: Типы ЭВМ. Нажмите кнопку OK.

 

·   Выполните последовательностьдействий, которую будет выполнять макрос: введите заголовок таблицы: Типкомпьютера; нажмите клавишу Enter; введите тип 1 компьютера CP_35_SR и нажмитеклавишу Tab. Аналогично введите следующие типы компьютеров CP_40_SR, CP_55_LS,CP_55_SX. Выделите четыре ячейки с введенными типами компьютеров, выберитекоманду Формат | Столбец, а затем команду Подгон ширины (поскольку названиятипов компьютеров не умещаются полностью в ячейке).

 

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

    После окончания записи макроса в менюкоманды Сервис появится пункт с названием Типы ЭВМ, которое мы ввели на4 шаге.

    Для выполнения макроса “Заголовок”нужно нажать кнопку мыши на пункте с названием Типы ЭВМ. В том месте таблицы,где расположен курсор, появится заголовок следующего вида: Тип компьютера             CP_35_SR  CP_40_SR  CP_55_LS  CP_55_SX

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

Редактирование макросов

    В этом разделе мы рассмотрим вопросыизменения текста макроса, его удаления и переименования. Здесь же будетрассказано о том, как записать новую последовательность действий в ужесуществующий макрос.

    Одним из способов внесения измененийв записанный макрос является запись нового макроса. Однако это не всегдаудобно, а часто бывает и утомительно из-за большого объема работы. В следующемпримере мы изменим формат вводимых чисел в макросе “Число”.

Пример 3. Редактирование текста макроса

    В этом примере вам предстоит изменитьтекст макроса.

    Для входа в режим редактированиямакроса выполните команду Сервис | Макрос. Появляется окно диалога“Макрос”, в котором после выбора нужного для редактирования макроса становятсядоступными кнопки, в том числе кнопка Редактирование.

    Редактировать можно и непосредственнов модуле с текстом макроса. Текст макроса “Число” расположен в модуле 1,расположенном после 16 листа рабочей книги. Используя кнопки прокрутки листовнайдите модуль 1 и нажмите кнопку мыши на его ярлычке. Перед вами появитсятекст макроса “Число”, записанный на языке Visual Basic:

Число Макрос Форматный код “# #??” Быстрыйвызов: Ctrl+x

 

Sub Число()

    Selection.NumberFormat = “# #??”

End Sub

    Первые две строки составляюткомментарий, последующие — текст макроса. Редактирование сводится к тому, чтовместо форматного кода “# #??” вводится форматный код “# #??,00”.

    Действуя аналогичным образом, выможете внести более серьезные изменения в текст макроса. Фактически вы имеетевозможность изменять текст программы Visual Basic, реализующий макрос. Этооткрывает перед вами большие возможности в написании собственных программ.

Удаление макросов

    Если макрос назначен клавише быстрогодоступа, графическому объекту или кнопке, то процесс удаления являетсястандартным. Вы выбираете опцию Макрос пункта Сервис основного меню. Появляетсяокно диалога “Макрос”, содержащее список макросов текущей рабочей книги. Послевыбора макроса, который вы предполагаете удалить, станут доступными кнопки окнадиалога “Макрос”, в том числе кнопка Удалить. Для удаления выбранногомакроса вам достаточно нажать эту кнопку.

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

    Объекты, которым был назначен макрос,удаляются из режимов редактирования этих объектов.

    Определенную трудность представляетпроцесс удаления строк с названиями макросов из пункта Сервис основногоменю. Для их удаления вы можете использовать окно диалога “Редактор меню”,которое открывается нажатием кнопки Редактор меню, расположенной напанели инструментов “Visual Basic”. Вы можете выбрать требующийся пункт меню изсписка Меню. При этом в следующем списке Элементы меню появляются опции этогопункта меню. Вы можете выбрать и удалить нужную строку нажатием кнопки Удалить.

Кнопка Сброс окна диалогавосстанавливает стандартное состояние всех пунктов основного меню Excel.

После нажатия кнопки Сброс восстановитьранее сделанные в пункты меню назначения с помощью клавиш Ctrl+Z невозможно.Можно только закрыть файл без сохранения всех сделанных изменений, а затемоткрыть его снова.

    Окно диалога “Редактор меню” можновызвать и без использования кнопки Редактор меню. Для этого нужно выполнитьследующие действия:

·   Сделайте активным какой-нибудьмодуль. Если в рабочей книге нет ни одного макроса, то создайте какой-нибудьмакрос (например, не выполняющий никаких действий).

·   Выберите пункт Сервистекущего меню. Появится ниспадающее меню, в котором присутствуют дополнительныеопции, одной из которых является Редактор меню

·   Установите курсор на команду Редакторменю и нажмите клавишу Enter. Появится требуемое окно диалога.

Не создавайте макрос, восстанавливающийпункты меню. Делайте эту работу вручную и вы избежите неприятностей, связанныхс потерей информации.

Переименование макроса

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

Пример 4. Изменение имени макроса

    Изменим имя макроса “Месяцы” на“Месяцы_с_абсолютными_адресами”. Для этого войдите в режим редактированиямакроса “Месяцы”. Ниже расположен текст программы.

Месяцы Макрос Быстрый вызов: Ctrl+o

Sub Месяцы()

  ActiveCell.FormulaR1C1 = “январь”

  Selection.AutoFillDestination:=ActiveCell.Range(“A1:A12”); _

  Type:=xlFillDefault

  ActiveCell.Range(“A1:A12”).Select

End Sub

    Первая строка является комментарием. Заменим “Месяцы”на “Месяцы_с_абсолютными_адресами”. Соответствующим образом изменимкомментарий. В результате получим новый текст программы макроса:

 

'Месяцы_с_абсолютными_адресами Макрос Быстрый вызов: Ctrl+o

Sub Месяцы_с_абсолютными_адресами()

ActiveCell.FormulaR1C1 = “январь”

Selection.AutoFill Destination:=ActiveCell.Range(“A1:A12”); _

Type:=xlFillDefault

ActiveCell.Range(“A1:A12”).Select

End Sub

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

Запись в существующий макрос новых действий

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

    Сделайте активным модуль, вкотором находится макрос.

 

    В тексте программы установитекурсор в место ввода новых действий.

 

    Выполните команду Сервис | Записьмакроса | Отметить позицию. Теперь ваши действия при записи макроса будутзаписываться в программу с того места, где вы установили курсор.

 

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

 

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

 

 

    Выполните все дополнительныедействия макроса.

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

    Рассмотрим конкретный примердобавления новых записей.

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

Пример 5. Внесение изменений в существующиймакрос

    Внесем изменения в макрос“Заголовок”, который был записан в примере 6.2. Изменения будут касатьсяформата заголовка. Расположим заголовок “Типы компьютеров” в центре строки надназваниями типов и введем другой шрифт для заголовка.

    Приведем текст программы, реализующиймакрос “Заголовок” и укажем место расположения курсора строкой с комментарием“‘место установки курсора”.

  Заголовок Макрос назначен пункт менюСервис “Тип ЭВМ”

  Sub Заголовок()

  ActiveCell.FormulaR1C1 = “Тип компьютера”

  ActiveCell.Offset(1;0).Range(“A1”).Select

  ActiveCell.FormulaR1C1 = “CP_35_SR”

  ActiveCell.Offset(0;1).Range(“A1”).Select

  ActiveCell.FormulaR1C1 = “CP_40_SR”

  ActiveCell.Offset(0;1).Range(“A1”).Select

  ActiveCell.FormulaR1C1 = “CP_55_LS”

 

  ActiveCell.Offset(0;1).Range(“A1”).Select

  ActiveCell.FormulaR1C1 = “CP_55_SX”

  ActiveCell.Offset(0;-3).Range(“A1:D1”).Select

  ActiveCell.Activate

  Selection.Columns.AutoFi

'место установки курсора

  End Sub

 

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

 

·   Удалите комментарий впредпоследней строке программы и поместите там указатель.

 

·   Для того чтобы определить позицию,с которой будут записываться новые действия, выполните первые 5 шагов алгоритмавнесения изменений в макрос.

 

·   Перед тем как выполнить 6 шагалгоритма внесения изменений в макрос, запустите макрос “Заголовок”. Этопозволит вам определить положение курсора на рабочем листе, где будут вноситьсяновые действия.

 

 

·   Выполните 6 шаг алгоритма внесенияизменений в макрос. Все последующие действия будут записаны.

 

·   Выделите четыре ячейки, включающиезаголовок “Тип компьютера”.

·   Вызовите окно диалога “Форматячейки”, нажав Ctrl+1.

 

·   Выберите вкладку “Выравнивание”, вкоторой установите флажок Центрировать по выделению. Таким образом мыпоместим заголовок в середину строки.

 

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

 

 

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

    После завершения записи новыхдействий в макрос “Заголовок” мы получили новый текст программы:

  Заголовок Макрос назначен пункт менюСервис “Тип ЭВМ”

  Sub Заголовок()

  ActiveCell.FormulaR1C1 = “Типкомпьютера”

  ActiveCell.Offset(1; 0).Range(“A1”).Select

  ActiveCell.FormulaR1C1 = “CP_35_SR”

  ActiveCell.Offset(0;1).Range(“A1”).Select

  ActiveCell.FormulaR1C1 = “CP_40_SR”

  ActiveCell.Offset(0;1).Range(“A1”).Select

  ActiveCell.FormulaR1C1 = “CP_55_LS”

 

  ActiveCell.Offset(0;1).Range(“A1”).Select

  ActiveCell.FormulaR1C1 = “CP_55_SX”

  ActiveCell.Offset(0;-3).Range(“A1:D1”).Select

  ActiveCell.Activate

  Selection.Columns.AutoFit

  ActiveCell.Offset(-1;0).Range(“A1:D1”).Select

  With Selection

      .HorizontalAlignment =xlCEnterAcrossSelection

      .VerticalAlignment = xlBottom

      .WrapText = False

      .Orientation = xlHorizontal

  End With

 

  With Selection.Font

      .Name = “TimesET”

      .FontStyle = “Italic”

      .Size = 16

      .Strikethrough = False

      .Superscript = False

      .Subscript = False

      .OutlineFont = False

      .Shadow = False

      .Underline = xlNone

      .ColorIndex = xlAutomatic

  End With

    End Sub

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

    Теперь результат работы макроса“Заголовок” имеет следующий вид:

Тип компьютера                       

CP_35_SR      CP_40_SR  CP_55_LS  CP_55_SX

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

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

    Для назначения макроса графическомуобъекту необходимо наличие такого объекта на экране. Представлены триграфических объекта, которым назначены макросы.

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

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

      Чтобы нарисовать закрашенный овалили прямоугольник, нажмите кнопку мыши на соответствующем рисунке на панели“Рисование”. Вам будет предложено выбрать место для объекта. Поместитеуказатель мыши в нужное место таблицы и, удерживая нажатой кнопку мыши,нарисуйте объект — прямоугольник или овал.

      Для выбора заливки объекта нажмитеправую кнопку мыши на активном объекте. Появится меню, в котором выберите пунктФормат объекта. Появится окно диалога “Форматирование объекта”, вкотором выбирается цвет и вид заливки.

    Надписи на объектах создаютсяследующим образом:

 

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

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

 

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

 

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

 

    Установите переключателивертикального и горизонтального выравнивания в положение по центру и выберитевкладку “Шрифт”.

 

    Установите стиль и размер шрифта инажмите клавишу 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.

 

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

 

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

 

 

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

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

 

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

 

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

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

 

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

 

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

 

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

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

 

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

 

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

      Результатом работы формул можетбыть текст. После нажатия Ctrl+v формулы исчезнут и останется только текст.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

еще рефераты
Еще работы по информатике, программированию