Использование for... Операторы NextUsing For...Next statements

Можно использовать для... Next для повторения блока операторов заданное число раз.You can use For...Next statements to repeat a block of statements a specific number of times. В циклах For используется переменная счетчика, значение которой увеличивается или уменьшается при каждом проходе цикла.For loops use a counter variable whose value is increased or decreased with each repetition of the loop.

В результате выполнения следующей процедуры компьютер издает звуковой сигнал 50 раз.The following procedure makes the computer beep 50 times. Оператор for указывает переменную счетчика, а также ее начальное и конечное значения.The For statement specifies the counter variable and its start and end values. Оператор Next увеличивает переменную счетчика на 1.The Next statement increments the counter variable by 1.

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

С помощью Step ключевого словаStep можно увеличить или уменьшить переменную счетчика по указанному значению.Using the Step keyword, you can increase or decrease the counter variable by the value you specify. В следующем примере переменная j счетчика увеличивается на 2 при каждом повторе цикла.In the following example, the counter variable j is incremented by 2 each time the loop repeats. По завершении цикла total — это сумма в 2, 4, 6, 8 и 10.When the loop is finished, total is the sum of 2, 4, 6, 8, and 10.

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

Для уменьшения переменной счетчика используется отрицательное значение Step.To decrease the counter variable, use a negative Step value. При уменьшении переменной счетчика конечное значение должно быть меньше начального.To decrease the counter variable, you must specify an end value that is less than the start value. В следующем примере переменная myNum счетчика уменьшается на 2 каждый раз при повторении цикла.In the following example, the counter variable myNum is decreased by 2 each time the loop repeats. По завершении цикла total это сумма в 16, 14, 12, 10, 8, 6, 4 и 2.When the loop is finished, total is the sum of 16, 14, 12, 10, 8, 6, 4, and 2.

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

Примечание

Имя переменной счетчика необязательно указывать после оператора Next.It's not necessary to include the counter variable name after the Next statement. В предыдущих примерах имя переменной счетчика указывается для удобочитаемости.In the preceding examples, the counter variable name was included for readability.

Вы можете выйти из команды for... Next перед тем, как счетчик достигнет своего конечного значения с помощью оператора Exit For .You can exit a For...Next statement before the counter reaches its end value by using the Exit For statement. Например, при возникновении ошибки можно использовать оператор Exit For в блоке True оператора If...Then...Else или оператора Select Case, который используется непосредственно для проверки ошибок.For example, when an error occurs, use the Exit For statement in the True statement block of either an If...Then...Else statement or a Select Case statement that specifically checks for the error. Если ошибка не возникает, то If... Then... Else имеет значение false, и цикл продолжит работу должным образом.If the error doesn't occur, the If…Then…Else statement is False, and the loop will continue to run as expected.

См. такжеSee also

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.