Do...Loop，顾名思义，他的中文意思就是循环的意思，这个非常好理解。这个循环有两种实现方式，即只要或者直到某个条件为真，它们就会重复一系列的语句。只要条件为真，Do…While循环就允许你重复某个操作。这2个循环的语法如下：需要我们注意的事情是，当操作VBA时候，一旦遇到这个循环时，它首先会判断条件的真假与...
[exit do][statements]LOOP WHILE CONDITION 备注：上面的while 可以用until 代替。VBA中如果事先不知道将重复多少次循环，只是知道判断的条件，那么使用 Do...Loop 语句。Do...Loop 语句会重复执行某段代码直到条件是 true 或条件变成 true。重复执行代码的条件是 true，或者使用 While 关键字来检查 Do... ...
Exit Do:通常用于条件判断之后,例如 If...Then。 在这种情况下,Exit Do 语句将控制权转移到紧接在 Loop 命令之后的语句(提早退出所在的DO…LOOP循环)。 Dim i As Long, j As Long i = 1: j = 1 Do While i < 100 j = j + i If j > 100 Then...
5 编辑的代码如下：Sub 分数等级标注()Dim rs As Integerrs = 2Dors = 1 + rsIf Sheet4.Cells(rs, 2) = "" ThenExit DoElseIf Sheet4.Cells(rs, 2) >= 90 Then Sheet4.Cells(rs, 3) = "√"End IfLoopEnd Sub 6 同时按下CTRL+F11键，返回工作表，点击【开发工具】菜单下的【插入】按钮，...
Dim i As IntegerDim sum As Integeri = 1Do While i <= 10sum = sum + ii = i + 1LoopEnd Sub i 变量的初始值是 1，根据 While 后的条件，只要 i 变量小于等于 10，后续的代码就可以一直循环执行。这里为了演示使用了 Do While 循环，实际情况下，这种求和问题，使用 For 循环更简洁。Do … Loop...
1 1、do...Loop：循环语句，直至满足条件后退出。2 2、在VBE中编写代码：Sub doLoop()Dim a%Doa = a + 1If a > 10 Then Debug.Print ("a已经超过10了,该停止了！") Exit DoEnd IfLoopEnd Sub功能为：当a超过10时，将退出该程序。3 3、运行该代码，运行11次时，将输出a已经超过10了,该停止...
Loop 来看看下面这个例子。 运行结果如下。 02 Do Until...Loop语句 使用Do Until...Loop语句,在不满足条件的情况下进行相同的循环操作,即循环操作一直进行到条件满足的时候。满足条件,停止循环操作,同时跳出Do Until...Loop语句。 Do Until 条件式 循环处理操作 Loop 来看下面的例子。 运行结果如下。 -END- ...
Loop '循环 End Sub 一直循环到没有内容为止 Private Sub CommandButton1_Click() Dim rs As Integer rs = 2 Do Until Cells(rs, 2) = "" '直到单元格为空为止,才结束 If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "√" rs = rs + 1 ...
2)WHILE循环结构分为2大类语法,一种是「WHILE…END」,另一种是「DO WHILE…LOOP」。 好了,这个懒人智能循环结构,你学会了吗? 参考资料:科普中国专家猴子作品合集 《Excel数据分析和数据思维》视频 《Power BI数据分析》视频 《SQL从入门到进阶》视频 《Python数据分析从入门到进阶》视频编辑...
3 弹出vba界面，在工具栏内，点击【插入用户窗体】按钮，在其下拉菜单中点击【模块】。4 打开代码编辑窗口，如图所示。5 在代码编辑窗口输入代码如下。Sub 隔行涂色0()Dim rs%rs = 2Do Until rs > 11rs = rs + 2Sheet4.Range("a" & rs & ":c" & rs).Interior.ColorIndex = 8LoopEnd Sub 6 ...