Какая форма лучше — абсолютная или относительная? Абсолютные ссылки обычно используются, когда хочется выполнить одно и то же действие в одном и том же месте нескольких листов или когда нужно выполнить неко­торое действие несколько раз в одном и том же месте одного листа. Относи­тельные ссылки удобны, что имеется возможность выполнять дей­ствие в любом месте рабочего листа.

2.11 Макросы и процедуры

Предположим, при создании сложного макроса обнаружилось, что наряду с другими операциями он должен выполнять задачу, которая уже была записа­на ранее в виде другого макроса. Или предположим, что задачу, записанную как часть макроса, на самом деле удобнее использовать в виде отдельного макроса. Что касается макроса Company Address, то, например, было бы полезно иметь возможность легко и быстро применять форматы шрифта, используемые для названия фирмы, к другим элементам в рабочем листе.

В Visual Basic можно без труда разделить большой макрос на ряд небольших или из нескольких макросов создать один большой. Макрос, который исполь­зуется другим макросом, называется процедурой (subroutine). Процедуры облегчают создание сложных макросов, поскольку достаточно написать только один набор инструкций, а не повторять их снова и снова. При использовании одного макроса в другом вызывается процедура, указывая ее имя.

В качестве примера можно разделить макрос CompanyAddressRel на две части.

1. Необходимо переключиться в макрос CompanyAddressRel и выделить инструкции, кото­рые форматируют название фирмы:

With Selection. Font

. Name = "Arial"

. FontStyle = "Полужирный курсив"

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. Colorlndex = xlAutornatic End With

2. В меню Edit (Правка) выбрать команду Cut (Вырезать).

3. Щелкнуть ниже инструкции End Sub в конце макроса CompanyAddressRel, затем ввести

Sub CompanyFont ()

Нажать клавишу Enter, чтобы начать новую строку.

4. В меню Edit (Правка) выбрать команду Paste (Вставить), чтобы вставить вырезанные инструкции.

Создан новый макрос CompanyFont, удалив инструкции форматирования шрифта из макроса CompanyAddressRel. Как уже отмечалось, чтобы запустить из одного макроса другой, нужно указать в нем имя вызываемого мак­роса. Можно изменить макрос CompanyAddressRel, чтобы в нем использовался мак­рос CompanyFont.

1. Щелкнуть в конце инструкции

ActiveCell. FormulaR1C1 = "Региональная Торговая Компания"

Нажать клавишу Enter, чтобы вставить новую строку.

2. Ввести CompanyFont. После этого два макроса должны иметь следующий вид:

Sub CompanyAddressRel ()

ActiveCell. FormulaR1C1 = "Региональная Торговая Компания" CompanyFont

ActiveCell. Offset (1, 0). Range ("A1"). Select ActiveCell. FormulaR1C1 = "Морская улица 15" ActiveCell. Offset (1, 0). Range ("A1"). Select ActiveCell. FormulaR1C1 = "325611 Кузнецк, Россия" End Sub

Sub CompanyFont ()

With Selection. Font

. Name = "Arial"

. FontStyle = "Полужирный курсив"

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. Colorlndex = xlAutomatic End With End Sub

Когда будет запущен макрос Company AddressRel, нажав клавиши Ctrl+ a, Excel будет последовательно выполнять инструкции этого макроса, начиная с пер­вой. Когда Excel встретит инструкцию, вызывающую макрос Company Font, программа перейдет к первой строке этого макроса. После выполнения End Sub в конце макроса Company Font Excel возвратится к инструкции, расположен­ной непосредственно за вызовом Company Font в макросе Company AddressRel, и продолжит его выполнение, пока не дойдет до инструкции End Sub в конце макроса CompanyAddressRel.

2.12 Другие способы запуска макросов

Ранее в данной экзаменационной работе было назначено макросу CompanyAddress сочетание кла­виш Ctrl+ Shift+ A. Excel предоставляет еще несколько способов запуска макро­сов. Можно назначить макрос команде, которая появляется в одном из меню Excel, кнопке на панели инструментов или графическому объекту. Можно также назначить макрос кнопке, находящейся в рабочем листе или на диа­грамме.

2.13 Использование личной книги макросов

При записи макроса CompanyAddress было предложено поместить его в модуле, принадлежащем активной книге. Но, как уже было сказано, помещен­ный в модуль макрос становится доступен только после открытия книги, содержащей этот макрос.

Если необходимо, чтобы макрос был доступен всегда, нужно сохранить его в личной книге макросов. Хотя эта книга обычно скрыта, можно вывести ее на экран, выбрав в меню Окно (Window) команду Отобразить (Unhide) и дважды щелкнув на книге Personal в окне диалога Вывод на экран скрытого окна книги (Unhide). Если еще ничего не было сохранено в личной книге макросов, то файл Personal.xls в списке этого окна диалога не появится. Чтобы разрешить эту проблему, перед записью любого простого макроса нужно выбрать пункт Личная книга макросов (Personal Macro Workbook) в раскрывающемся списке Сохранить в (Store Macro In) окна диалога Запись макроса (Record New Macro). Excel создаст личную книгу макросов и поместит файл Personal.xls в основную папку Excel.

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

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

1. В меню View (Вид) редактора Visual Basic выбрать команду Project Explorer (Окно проекта) и затем открыть модуль, содержащий нужный макрос.

2. Выделить макрос (обязательно включите в выделение все инструкции ма­кроса, в том числе Sub и End Sub) и затем в меню Edit (Правка) выбрать команду Cut (Вырезать).

3. С помощью окна проекта открыть личную книгу макросов, Personal.xls, и затем открыть в ней модуль.

4. Установить курсор в том месте модуля, где будет помещен макрос, и выбрать в меню Edit (Правка) команду Paste (Вставить).

5. Наконец, переключиться обратно в Excel и выбрать в меню Окно (Window) команду Скрыть (Hide), чтобы скрыть личную книгу макросов. При заверше­нии текущего рабочего сеанса Excel спросит, нужно ли сохранить изменения в личной книге макросов. Нажать кнопку Да (Yes), чтобы сохранить скры­тую книгу. (Обязательно выбрать команду Скрыть перед сохранением лич­ной книги макросов, иначе она будет открываться при каждом запуске Excel.)

3 ТЕХНИКА БЕЗОПАСНОСТИ

1.5 Общие требования.

ü На должность оператора ПЭВМ могут приниматься лица достигшие возраста 16 лет.

ü К работе ПЭВМ допускаются лица, не имеющие медицинских противопоказаний.