使用 For...下一個語句

用於 ...下 一個語句，以在特定次數重複語 句 區塊。 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 語句到達其結束值。 比方說，當錯誤發生時，請在 If...Then...Else 陳述式或特別可以檢查錯誤的 Select Case 陳述式的 True 陳述式區塊中使用 Exit For 陳述式。 如果未發生錯誤，則為 If...然後。。。Else 語句為 False，且迴圈會繼續如預期般執行。

另請參閱

• Visual Basic 概念主題

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。