VBA Next For 循环

在 VBA 中，使用 Next For 循环可重复执行一系列语句，直到满足特定条件为止。该循环体内的语句将反复执行，直到满足预设的循环终止条件。在本文中，我们将介绍 Next For 循环及其实现方式。

语法

Next For 循环的语法如下：

For {counter} = {start} To {end} [Step {step}]
    ' 语句
    Next [counter]

其中：

• {counter}：必需，循环的计数器名称。
• {start}：必需，指定开始值。
• {end}：必需，指定结束值。
• {step}：可选，指定循环计数器每次增加的步长，如果未指定则默认为1.

执行完上述语句后，VBA 会在计数器大于 {end} 的时候终止循环体。

例子

下面是一个简单的例子，展示了 Next For 循环语句的使用：

Sub Example()
   
   Dim i, sum As Integer

   For i = 1 To 5
      sum = sum + i
   Next i

   MsgBox sum
   
End Sub

以上程序使用了一个循环来计算从1到5数字的总和。首先，我们需要定义两个变量 i 和 sum，接着定于了一个 For 循环，循环从1到5，每次增加一，循环体内执行 sum=sum+i。最后，展示了 MsgBox，显示了从1到5数字的总和。

输出结果：

循环嵌套

我们也可以在 VBA 代码中嵌套 For 循环，以完成更复杂的任务。

在下面的例子中，我们将使用循环嵌套来创建二维数组：

Sub Example()

   Dim arr(2, 2) As Integer
   Dim i As Integer, j As Integer, n As Integer
   
   n = 0
   For i = 0 To 2
      For j = 0 To 2
         arr(i, j) = n
         n = n + 1
      Next j
   Next i

   ' 显示数组
   For i = 0 To 2
      For j = 0 To 2
         Debug.Print arr(i, j)
      Next j
   Next i
   
End Sub

以上程序使用了嵌套 For 循环来创建一个二维数组，首先定义一个二维整型数组 arr，然后将变量 n 初始化为 0，接着使用两个嵌套 For 循环来设置数组的元素值。最后，我们对数组作一个遍历，以便于显示其结果。

输出结果：

总结

在 VBA 代码中使用 Next For 循环，可以让我们轻松地处理多次发生的业务逻辑，通过学习这些循环的知识，我们可以更加高效地编写 VBA 程序。