10.2. Оператор цикла For-Each-Next

Для перебора объектов из группы подобных объектов, например ячеек из диапазона или элементов массива, удобно использовать оператор цикла For-Each-Next.

Оператор цикла For-Each-Next имеет следующий синтаксис:

For Each Элемент In Группа

БЛОК ОПЕРАТОРОВ

[Exit For]

БЛОК ОПЕРАТОРОВ Next Элемент

Например, приводимая ниже процедура Знак заменяет все положительные числа диапазона ячеек А1:В2 знаком «+», все отрицательные числа - знаком «-», а нули оставляет без изменения ([2)]:

Option Explicit

Sub Знак О

Dim с As Object

For Each с In Worksheets ("Лист1").Range("Al:B2") If IsNumeric(c.Value) Then

If c.Value > 0 Then c.Value =

End If

If IsNumeric(c.Value) Then

If c.Value < 0 Then c.Value = "-" End If

If IsNumeric(c.Value) Then

If c.Value = 0 Then c.Value = 0 End If Next с End Sub

В процедуре Знак использовалась функция IsNumeric (Выражение), которая возвращает True, если выражение может быть описано как числовое, и False - в противном случае.

Следующая процедура Цвет в зависимости от содержимого ячейки выделенной области, которая возвращается методом Selection, изменяет цвет ее фона. Кроме того, если содержимое ячейки положительно, то изменяется цвет, размер и тип шрифта ([2]).

Sub Цвет О

Dim a As Object

For Each a In Selection

If IsNumeric(a.Value) Then

If a.Value > 0 Then

a.Interior.Colorindex = 8

a.Font-Bold = True

a.Font.Colorindex = 5

a.Font.Size = 20

End If End If

If isNumeric(a.Value) Then

If a.Value < 0 Then

a.Interior.Colorindex = 4 End If

If IsMumeric(a.Value) Then If a.Value - 0 Then a.Interior.Colorindex = 6 End If Next a End Sub

В данной процедуре Font - шрифт диапазона ячеек - является объектом. Этот объект имеет следующие свойства:

В приведенной выше программе interior также является объектом, характеризующим фон >тсазанного диапазона и имеющим следующее свойство:

Colorlndex(Цвет) .

Например, зеленый цвет можно задать ячейке следующим образом:

Range("В2").Interior. Colorindex = 4.

Диапазон ячеек обладает следующими свойствами:

NumberFormat (Числовой формат).

Рассмотрим пример, задающий числовой формат с двумя знаками после десятичной точки:

Range("В2"). NumberFormat = "0.00" WrapText (Многострочный текст).

Например,

Range ("В2") .\/а1ие="Многострочный текст" Range("В2").WrapText = True

10.3. Оператор цикла While-Wend

Оператор цикла While-Wend используется для организации цикла с неизвестным заранее числом шагов.