Пример 8

В примере проверяется первая ячейка диапазона A1:B5, которая не содержит числового значения. Когда такая ячейка найдена, на экран выводится сообщение, и Exit For завершает цикл.

Sub цикл8()

Dim myCollection As Range

Set myCollection = Worksheets("Лист1").Range("a1:b5")

For Each my In myCollection

If IsNumeric(my.Value) = False Then

MsgBox "Объект не содержит числового значения."

Exit For

End If

Next my

End Sub

Пример 9

В примере оператор For Each...Next просматривает свойство Text каждого элемента семейства, чтобы найти строку "Привет". Здесь MyObject -- объект, который имеет свойство Text и является элементом семейства MyCollection. Оба имени используются исключительно в иллюстративных целях.

Sub цикл9()

Dim Found, MyObject

Dim myDiapazon As Range

Set myDiapazon = Worksheets("Лист1").Range("a1:b10")

Found = False ' Инициализирует переменную.

For Each MyObject In myDiapazon ' Просматривает каждый элемент.

If MyObject.Text = "Привет" Then ' Если Text содержит "Привет",

Found = True ' Присваивает значение True.

Exit For ' Завершает цикл.

End If

Next

MsgBox (Found)

End Sub

Пример 10

В примере все положительные числа диапазона ячеек А1:В2 заменяются знаком "+", все отрицательные числа — знаком "-", j а нули оставляет без изменения:

Sub цикл10()

Dim c As Object

For Each c In Worksheets("Лист1").Range("A1:B2")

If IsNumeric(c.Value) Then

Select Case c.Value

Case Is > 0: c.Value = "+"

Case Is < 0: c.Value = "-"

Case Is = 0: c.Value = "nothing"

End Select

End If

Next c

End Sub

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

Пример 11

Процедура Цвет в зависимости от содержимого ячейки выделенной области, которая возвращается методом selection, изменяет цвет фона. Кроме того, если содержимое ячейки положительно, то изменяет цвет, размер и тип шрифта.

Sub цикл11()

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 IsNumeric(a.Value) Then

If a.Value = 0 Then a.Interior.Colorlndex = 6

End If

Next a

End Sub

Пример 12

Следующие примеры демонстрируют два способа скрыть каждую вторую колонку в использованном диапазоне на листе Sheetl. Первый построен на цикле For Each—Next, в котором проверяется значение свойства Column объектной переменной:

Sub цикл12()

Set r = Worksneets("Лист1").UsedRange

For Each col In r.Columns

If col.Column Mod 2 = 0 Then

col.Hidden = True

End If

Next col

End Sub

А второй построен на цикле For...Next с проверкой счетчика цикла:

Sub цикл13O

Set r = Worksheets("Лист1").UsedRange

For i = 1 To r.Columns.Count

If i Mod 2 = 0 Then

г.Columns(i).Hidden = True

End If

Next i

End Sub

Установить числовые форматы для ячейки A17, первой строки, столбца C (соответственно) на листе Лист1.

Worksheets("Лист1").Range("A17").NumberFormat = "General"

Worksheets("Лист1").Rows(1).NumberFormat = "hh:mm:ss"

Worksheets("Лист1").Columns("C"). NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"

Дата добавления: 2015-07-08