Вставка инструкций в существующий макрос

Чтобы добавить инструкции в существующий макрос необходимо записать новые действия во временный макрос и затем скопировать инструкции из него в изменяемый макрос. Например, чтобы добавить в макрос CompanyAddress шаг, который устанавливает шрифт для названия фирмы, необходимо выполнить следующие действия:

· Переключитесь в лист, содержащий введённый ранее адрес, и выделите ячейку А6 с названием фирмы.

· Выполните команду Сервис/Ячейки/Шрифт/Artal размером 14 пунктов, укажите полужирный курсив и нажмите ОК.

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

· Выполните Сервис/Макрос/ Редактор Visual Basic. Если окно проекта отсутствует на экране, в меню Вид выберите команду Окно проекта (Project Explorer).

· Дважды щелкните по строке Модуль 2, появится окно, содержащее макрос Macro Temp. Выделите в нём строки конструкции With…End With скопируйте фрагмент в буфер обмена.

· В окне проекта дважды щелкните по строке Макрос 1, чтобы открыть окно, содержащее макрос CompanyAddress.

· Для указания точки вставки, щелкните в начале строки, содержащей инструкции Range(“А7”).Select.

· Выполните операцию вставки из буфера а затем вернитесь в Excel, выполнив Вид (View)/Microsoft Excel. Для проверки изменённого макроса нажмите Ctrl+Shift+A и убедитесь, что шрифт названия изменился.

Текст макроса CompanyAddress будет иметь вид:

Sub CompanyAddress ()

Range(“А6”).Select

Active Cell.FormulaR1C1= “региональная Торговая компания АВС”

With Selection.Font

.Name = “Arial”

.Font Style = “полужирный курсив”

.Size = 14

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderline StyleNone

.ColorIndex = xlAutomatic

End With

Range(“А7”).Select

Active Cell.FormulaR1C1= “Прспект правды 157”

Range(“А8”).Select

Active Cell.FormulaR1C1= “49083, Днепропетровск, Украина”

End Sub

Конструкция With…End With задаёт ряд свойств объекта (и введена специально для этой цели), в данном случае – шрифта текущего выделения. Эта конструкция позволяет использовать краткую форму записи, не выделяя каждый раз объект при установке его свойств.

Сравните с последовательностью без инструкции With

Selection.Font.Name = “Arial”

Selection.Font.FontStyle = “полужирный курсив”

Selection.Font.Size = 14

…

и т. д.

Ключевое слово Selection Excel используется вместо ActiveCell т.к. ряд параметров шрифта можно применить сразу к диапазону ячеек, не ограничиваясь одной ячейкой А6.