Оператор работает с величинами объектного типа. Он применяется к массивам (элементам) и наборам объектов. Выполняется фиксированное число раз, число объектов в наборе определяется автоматически. Упорядочение элементов в наборе не требуется.
Синтаксис оператора:
For Each <элемент> In <набор>
<блок операторов>
Exit For
<блок операторов>
<элемент> - переменная типа Variant, <набор> - набор объектов. Для прерывания работы цикла используется оператор Exit For. Пример использования конструкция For Each … Next для итераций по всем ячейкам диапазона с именем MyRange на листе с порядковым номером 1 текущей книги Excel. Переменная, представляющая собой ячейку в семействе ячеек, содержащемся в MyRange:
| Текст программы
| Комментарий
|
| Const lim As Integer = 10
For Each c In
Worksheets(1).Range("MyRange").Cells
If c.Value > lim Then
With c.Font
.Bold = True
.Italic = True
.Color = vbRed
End With
End If
Next c
MsgBox "Все сделано!"
| - объявление константы lim=10
- для каждой ячейки из диапазона MyRange
- если значение в ячейке > lim, то
- для шрифта ячейки задать
- начертание: жирный
- курсив
- цвет - красный
- конец оператора With
- конец оператора If
- конец оператора For - вывод сообщения
|
Первая строка объявляет целую константу limit, равную 33. Вторая строка задает перебор ячеек диапазона MyRange на листе 1 текущей рабочей книги.
