如何在 Excel VBA 中使用 Do While 循环？

Excel VBA 中的 Do….While 循环用于在给定条件为真（True）时重复执行一组语句。根据我们希望循环表现出的行为，这个条件可以在循环开始时检查，也可以在循环结束时检查。

流程图：

!image

Do While 循环的用途：

Do While 循环主要通过以下两种方式使用：

• 在循环开始（STARTING）处检查条件的 Do…while 循环。
• 在循环结束（END）处检查条件的 Do…while 循环。

语法 1：

Do While condition
  [statements]
  [Exit Do]
  [statements]
Loop

语法 2：

Do 
 [statements]
[Exit Do]
[statements]
Loop While condition

如何实现一个 Do While 循环：

让我们按照以下步骤来实现一个 Do-While 循环：

步骤 1： 定义一个宏

Private Sub Demo_Loop()
End Sub

步骤 2： 定义变量

j=2
i=1

步骤 3： 编写 Do While 循环。您可以在开头或结尾编写条件

Do While i < 5

步骤 4： 编写要在循环中执行的语句

msgbox "Table of 2 is : " & (j*i)
     i=i+1

步骤 5： 结束循环。

现在让我们来看一些示例。

示例 1： 在循环开始处检查条件的 Do…while 循环。下面的示例使用 Do…while 循环在循环开始时检查条件。只有当条件为 True 时，循环内的语句才会被执行。我们将使用 Do…while 循环打印 2 的乘法表；

!image

Private Sub Demo_Loop()
        j=2
       i=1
      Do While i < 5
     msgbox "Table of 2 is : " & (j*i)
      i=i+1
      Loop
End Sub

输出：

!image!image!image!image

示例 2： 在循环结束处检查条件的 Do…while 循环。下面的示例在循环结束时检查条件。这两种语法之间的主要区别将在以下示例中解释。

!image

Private Sub Demo_Loop()
      i = 10
     Do
     i = i + 1
     MsgBox "The value of i is : " & i
  Loop While i < 3 'Condition is false.Hence loop is executed once.
End Sub

当上述代码被执行时，它会在消息框中打印以下输出。

输出：

!image

结论

Excel VBA 中的 Do While 循环是一个强大的工具，可用于重复执行任务直到条件不再满足。是在开始还是结束时检查条件，取决于您是否希望保证代码块至少被执行一次。掌握这些循环将有助于我们编写更简洁、更高效的 VBA 代码。