Использование инструкций With

Оператор With позволяет указать объект или определяемый пользователем тип один раз для целого ряда инструкций. Операторы With позволяют увеличить скорость выполнения процедур и избежать повторного ввода.

Следующий пример заполняет ряд ячеек числом 30, применяет жирное форматирование и окрашивает ячейки в желтый цвет.

Sub FormatRange() 
 With Worksheets("Sheet1").Range("A1:C10") 
 .Value = 30 
 .Font.Bold = True 
 .Interior.Color = RGB(255, 255, 0) 
 End With 
End Sub

Вы можете создать гнездо операторов With для увеличения производительности. Следующий пример вставляет формулу в ячейку A1, а затем форматирует шрифт.

Sub MyInput() 
 With Workbooks("Book1").Worksheets("Sheet1").Cells(1, 1) 
 .Formula = "=SQRT(50)" 
 With .Font 
 .Name = "Arial" 
 .Bold = True 
 .Size = 8 
 End With 
 End With 
End Sub

См. также

• Темы по основам Visual Basic

Поддержка и обратная связь

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