如何在 Excel VBA 中使用直到循环？

在本文中，我们将使用一个合适的示例来查看 Excel VBA 中的 Do until 循环。

执行：

在 Microsoft Excel 选项卡中，选择开发人员选项卡。最初，开发人员选项卡可能不可用。

开发人员选项卡可以通过两步过程轻松启用：

右键单击 Excel 窗口顶部的任何现有选项卡。
现在从弹出菜单中选择自定义功能区。

在Excel 选项框中，选中开发人员框以启用它，然后单击确定。

现在，开发人员选项卡可见。

现在单击Developer 选项卡中的 Visual Basic选项并创建一个新模块以使用 Select Case 语句编写程序。

Developer  -> Visual Basic -> Tools -> Macros

现在创建一个宏并给出任何合适的名称。

这将打开编辑器窗口，可以在其中编写代码。

做直到循环

在 Do until 循环中，检查条件。当条件变为 FALSE时，将执行循环内的语句。当条件变为TRUE 时，循环终止。在 Do until 的情况下，我们可以在开头或结尾写条件。在 Do until 循环的情况下，有两种可能的语法。关键字Do用于执行任务，直到满足特定条件。

语法是：

Do Until condition/expression
    Statement 1
    Statement 2
    Statement 3
    ...
    Statement n
Loop

另一种语法是：

Do
    Statement 1
    Statement 2
    Statement 3
    ...
    Statement n
Loop Until Condition/expression

流程图：

示例：打印组织中年龄介于 30 到 40 岁之间的所有员工的年龄。

代码：

Sub Do_Until_Age_Emp()
'Initialize and declare the age of the employee
Dim Age As Integer: Age = 30
'Condition to print the age of employees between 30 to 40 years
Do Until Age > 38
    Age = Age + 1
    MsgBox ("Age:" & Age)
Loop
End Sub

在上面的代码中，条件是 Do until Age > 38。它将执行从 31 到 39 岁的员工年龄，因为当年龄变为 39 时，条件变为TRUE并且循环终止。在 Excel 消息框中，我们获得了 30 到 40 岁之间员工的年龄。

输出：

Age : 31

Age : 32

Age : 33

Age : 34

Age : 35

Age : 36

Age : 37

Age : 38

Age : 39

编程需要懂一点英语

同样，上面的代码也可以写成：

Sub Do_Until_Age_Emp()
'Initialize and declare the age of the employee
Dim Age As Integer: Age = 30
'Start of Do Until Loop
Do
    Age = Age + 1
    MsgBox ("Age:" & Age)
Loop Until Age > 38        'Condition to print the age of employees between 30 to 40 years
End Sub

执行 ：

做直到循环

执行：