Инструкция With

End Sub

Инструкция позволяет:

• уменьшить объем кода;
• делает код понятнее;
• делает код производительнее.

Пример: изменение свойств объекта Font ячейки A1 первого рабочего листа

а) без применения инструкции With

Sub NonWith()

ActiveWorkbook.Worksheets(1).Range("A1").Font.Bold = True

ActiveWorkbook.Worksheets(1).Range("A1").Font.Italic = True

ActiveWorkbook.Worksheets(1).Range("A1").Font.Size = 22

ActiveWorkbook.Worksheets(1).Range("A1").Font.Name = _

"Times New Roman"

ActiveWorkbook.Worksheets(1).Range("A1").Font.ColorIndex = 3

Worksheets(1).Select

Дата добавления: 2014-01-07