Метка: циклы

Простой одинарный цикл

Dim i As Integer

For i = 1 To 6
    Cells(i, 1).Value = 100
Next i

Dim i As Integer

For i = 1 To 6
    Cells(i, 1).Value = 100
Next i

В данном примере ячейки в первом столбце в строках от одного до 6 будут заполнены значением 100

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

В рассмотренном примере строки между for i и next i повторяются 6 раз. Начинается цикл выполняться со значения i=1 и в ячейку Cells(i,1) записывается значение 100. Далее программа доходит до оператора next i который увеличивает значение i на один, теперь i=2 и выполнение программы переходит снова к оператору for. Оператор for проверяет не превысило ли i конечное значение и если нет то выполняется тело цикла для значения 2. Так цикл выполняется 6 раз. И на 7 раз происходит выход из цикла и программа заканчивается.

Двойной цикл

Dim i As Integer, j As Integer

For i = 1 To 6
    For j = 1 To 2
        Cells(i, j).Value = 100
    Next j
Next i

Dim i As Integer, j As Integer

For i = 1 To 6
    For j = 1 To 2
        Cells(i, j).Value = 100
    Next j
Next i

В данном примере телом цикла for i является еще один цикл for j который выполняется для каждого значения i в результате для первой строки i=1 выполняется цикл j в котором записываются значения 100 в первый и второй столбец так как j изменяется от 1 до 2. Далее мы переходим к следующему i и все повторяется для второй строки. В итоге выполнения цикла значениями 100 заполнятся два столбца.

Данный алгоритм применяется для работы с таблицами.

Тройной цикл.

Dim c As Integer, i As Integer, j As Integer

For c = 1 To 3
    For i = 1 To 6
        For j = 1 To 2
            Worksheets(c).Cells(i, j).Value = 100
        Next j
    Next i
Next c

Dim c As Integer, i As Integer, j As Integer

For c = 1 To 3
    For i = 1 To 6
        For j = 1 To 2
            Worksheets(c).Cells(i, j).Value = 100
        Next j
    Next i
Next c

В данном примере используется тройной цикл. В нем для первых трех листов выполняется двойной цикл. В результате в первых трех листах будут записаны значения 100 в 6 строк для первых двух столбцов

Do While цикл

Для начала выполнения задания введите случайные 6 чисел в первый столбец.

Dim i As Integer
i = 1

Do While Cells(i, 1).Value <> ""
    Cells(i, 2).Value = Cells(i, 1).Value + 10
    i = i + 1
Loop

Dim i As Integer
i = 1

Do While Cells(i, 1).Value <> ""
    Cells(i, 2).Value = Cells(i, 1).Value + 10
    i = i + 1
Loop

Данный цикл выполняется до тех пор пока значение ячейки не пустое. Цикл while выполняется до тех пор пока выполняется условие которое идет после него ( в нашем случае пока ячейка не пустая. Cells(i, 1).Value <> «»). Такой цикл подойдет когда мы работаем с неизвестным количеством строк.

Пример выполнения программы.

Добавьте значения в первый столбец в строки 7 и 8 и заново запустите макрос. Он выполнится для этих строк тоже так как они не пустые.

Цикл for each для Range

Dim rng As Range
Dim Cell As Range
Set rng = Range("A1:B6")

For Each Cell In rng
    Cell.Value = Cell.Value * Cell.Value
Next Cell

Dim rng As Range
Dim Cell As Range
Set rng = Range("A1:B6")

For Each Cell In rng
    Cell.Value = Cell.Value * Cell.Value
Next Cell

В данном примере мы задаем Range и возводим каждую ячейку этого диапазона в квадрат.

Цикл For Each переводится для каждого значения,

в нашем случае для каждой ячейки из диапазона (For Each Cell In rng)

Выполните цикл и проверьте что все значения из диапазона возведены в квадрат.

Проверка всех строк в столбце

For i = 1 To Rows.Count
    If Cells(i, 1).Value < 5 And Not IsEmpty(Cells(i, 1).Value) Then
        Cells(i, 1).Font.Color = vbRed
    End If
Next i

For i = 1 To Rows.Count
    If Cells(i, 1).Value < 5 And Not IsEmpty(Cells(i, 1).Value) Then
        Cells(i, 1).Font.Color = vbRed
    End If
Next i

В данном примере мы используем Rows.Count — количество строк. Для Excel 2010 максимальное количество строк = 1 миллион. И в этом примере все не пустые строки со значениями <5 будут окрашены в красный цвет.