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

只要条件为真，当我们想要重复某些语句集时，就会使用 Do…While 循环。可以在循环开始或结束时检查条件

流程图：

Do-While 循环的用途：

Do While 循环有两种使用方式：

• do … while循环，其检查在循环的起始条件。
• Do…while 循环检查循环结束时的条件。

语法 1：

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

语法 2：

Do While 
 [statements]
[Exit Do]
[statements]
Loop  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

第五步：结束循环。

现在让我们看一些例子。

示例 1： Do…while 循环检查循环开始时的条件。下面的示例使用 Do…while 循环来检查循环开始时的条件。只有当条件为真时，才会执行循环内的语句。我们将使用 Do…while 循环打印 Table of 2；

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

输出：

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

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

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

输出：