В этом примере вам предстоит создать макрос с относительными ссылками для размещения заголовка таблицы продаж компьютеров в произвольном месте рабочей книги.
Перед созданием макроса включите режим записи с относительными ссылками. Для этого выполните следующие действия:
· Выполните команду Сервис → Запись макроса → С относительными ссылками.
· Введите в поле ввода Имя макроса название создаваемого макроса — Заголовок. В поле ввода Описание введите текст: Вводит названия компьютеров.
· Введите наименование добавляемого пункта меню: Типы ЭВМ. Нажмите кнопку 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 тем, что заголовок таблицы можно поместить в любом месте текущей рабочей книги.
Пример программы:
‘ Заголовок Макрос назначен пункт меню Сервис “Тип ЭВМ”
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
Пример 3. Число Макрос Форматный код “# #??”
Быстрый вызов: Ctrl+x
Sub Число()
Selection.NumberFormat = “# #??”
End Sub
Первые две строки составляют комментарий, последующие — текст макроса.