Поделиться через

Использование для... Следующие операторы

  • Статья

Используйте для... Следующие операторы повторяют блок инструкций определенное количество раз. В циклах For используется переменная счетчика, значение которой увеличивается или уменьшается при каждом проходе цикла.

В результате выполнения следующей процедуры компьютер издает звуковой сигнал 50 раз. Инструкция For указывает переменную счетчика и ее начальные и конечные значения. Оператор Next увеличивает переменную счетчика на 1.

Sub Beeps() 
    For x = 1 To 50 
        Beep 
    Next x 
End Sub

С помощью stepключевое слово можно увеличить или уменьшить переменную счетчика на указанное значение. В следующем примере переменная j счетчика увеличивается на 2 при каждом повторе цикла. По завершении total цикла — это сумма 2, 4, 6, 8 и 10.

Sub TwosTotal() 
    For j = 2 To 10 Step 2 
        total = total + j 
    Next j 
    MsgBox "The total is " & total 
End Sub

Для уменьшения переменной счетчика используется отрицательное значение Step. При уменьшении переменной счетчика конечное значение должно быть меньше начального. В следующем примере переменная myNum счетчика уменьшается на 2 при каждом повторе цикла. По завершении total цикла — это сумма 16, 14, 12, 10, 8, 6, 4 и 2.

Sub NewTotal() 
    For myNum = 16 To 2 Step -2 
        total = total + myNum 
    Next myNum 
    MsgBox "The total is " & total 
End Sub

Примечание.

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

Вы можете выйти из for... Следующая инструкция перед тем, как счетчик достигнет конечного значения с помощью оператора Exit For . Например, при возникновении ошибки можно использовать оператор Exit For в блоке True оператора If...Then...Else или оператора Select Case, который используется непосредственно для проверки ошибок. Если ошибка не возникает, параметр If... Тогда... Оператор Else имеет значение False, и цикл продолжит выполняться должным образом.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.