www.ПЕРВЫЕ ШАГИ.ru :: Шаг 29 - Использование With

Оператор With используется для явного указания обьекта, к свойствам которого мы хотим получить доступ. Вот так это выглядит в глобальном плане.

With объект
	операции с объектом
End With

Давайте рассмотрим пример. Ниже реализованы два сообщения, которые выводят имя и статус видимости объектов:

Sub Test()
	MsgBox (Application.Worksheets.Item(1).Name)
	MsgBox (Str(Application.Worksheets.Item(1).Visible))
End Sub

Используя With это можно сделать так:

Sub Test()
	With Application
		With .Worksheets
			MsgBox (.Item(1).Name)
			MsgBox (Str(.Item(1).Visible))
		End With
	End With
End Sub

Используя With можно получить доступ и к пользовательским структурам.

'----------- Описание --------
Type Family
	Name_I As String
	Name_Cat1 As String
	Name_Cat2 As String
End Type

'----------- Код --------

Sub Test()
Dim fam As Family

With fam
	.Name_I = "Pety"
	.Name_Cat1 = "Vasi"
	.Name_Cat2 = "Fisa"
	MsgBox (.Name_I)
End With

End Sub