在本文中,我们将使用一个合适的示例来了解 Excel VBA 中的 While Wend 循环。
执行 :
在 Microsoft Excel 选项卡中,选择开发人员选项卡。最初,开发人员选项卡可能不可用。
开发人员选项卡可以通过两步过程轻松启用:
- 右键单击 Excel 窗口顶部的任何现有选项卡。
- 现在从弹出菜单中选择自定义功能区。
- 在Excel 选项框中,选中开发人员框以启用它,然后单击确定。
- 现在,开发人员选项卡可见。
现在单击Developer 选项卡中的 Visual Basic 选项并创建一个新模块以使用 Select Case 语句编写程序。
Developer -> Visual Basic -> Tools -> Macros
- 现在创建一个宏并给出任何合适的名称。
- 这将打开编辑器窗口,可以在其中编写代码。
温德循环
在 while 循环中,所有语句都将在循环内执行,直到提供的条件变为 FALSE。循环仅在条件变为 FALSE 时终止。在 Excel 中,关键字While用于启动 while 循环,而Wend用于结束 while 循环。
1. The statements inside the while loop execute when the condition is TRUE.
2. When the condition is FALSE, the loop terminates and the control moves to the line after the keyword Wend.
语法是:
While boolean_condition(s)/expression(s)
Statement 1
Statement 2
Statement 3
...
Statement n
Wend
流程图
示例:打印组织中年龄介于 30 到 40 岁之间的所有员工的年龄。
代码 :
Sub While_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
While Age < 39
Age = Age + 1
MsgBox ("Age:" & Age)
Wend
End Sub
上述代码的条件是Age < 39 。当员工的年龄变为 40 岁时,条件变为FALSE ,循环终止。因此,它会在 Excel 的消息框中分别打印 31 到 39 岁的年龄。
输出 :
Age : 31
Age : 32
Age : 33
Age : 34
Age : 35
Age : 36
Age : 37
Age : 38
Age : 39