www.ПЕРВЫЕ ШАГИ.ru :: Шаг 22 - For Each

Этот цикл придуман для того, чтобы облегчить дествия над массивами и наборами. Он позволяет произвести однотипные операции над всем массивом. Описание его такое:

For Each переменная In массив

	Действия

Next переменная

Переменная должна иметь тип Variant или Object, в котором можно хранить практически всё. Пример ? Пожалуйста.

Sub Test()
	Dim arrays(1) As String
	arrays(0) = "Hello"
	arrays(1) = "Each :-)"
	Dim vari As Variant
	For Each vari In arrays
		MsgBox (vari + " - Steps")
	Next vari
End Sub

For Each очень удобен для работы с коллекциями. Вот так можно пробежаться по открытым кигам.

Sub Test()
	Dim vars As Variant
	For Each vars In Workbooks
		MsgBox (vars.Name)
	Next vars
End Sub

Или по листам книги:

Sub Test()
	Dim vars As Variant
	For Each vars In Workbooks.Item("Test.xls").Sheets
		MsgBox (vars.Name)
	Next vars
End Sub