wpzy.net
当前位置:首页 >> VBA 中 Do whilE loop 用法 >>

VBA 中 Do whilE loop 用法

第一个为先循环再判断,也就是说至少会执行一次,第二个为先判断再执行循环。 判断条件逻辑不同,第一个是只有until后面的条件逻辑结果为否才继续执行,一旦变成逻辑是则结束循环;第二个是当条件为逻辑是的时候则继续执行循环,为否则结束。 把...

更改后的代码如下: Sub 实验() Dim sh As Worksheet Set sh = Worksheets("实验一") Dim n As Integer n = 1 ' 增加了一个初始化 Do If sh.Cells(n, 3) = "" Then sh.Cells(n, 9) = 0 Else sh.Cells(n, 9) = 1 End If n = n + 1 Loop Until sh....

do '语句…… loop while a>0 '这种是先执行一次语句,再判断要不要循环。 while a>1 '语句…… wend '这是先判断要不要执行 do while a>1 '语句…… '这种形式同while...wend,但好处在于,这里随时可用exit do退出循环 loop do '语句…… loop untill ...

条件后跟exit do,请看样例: Do While i < 100 If i = 10 Then Exit Do i = i + 1 Loop

你不是写好了么。。。。。。。 只是分行错误,还有结构错误 Sub 按钮2_Click()Dim rs As Integerrs = 2Do While Cells(rs, 7) ""If Cells(rs, 7) >= 30 Then Cells(rs, 8) = 200Else Cells(rs, 8) = 150End Ifrs = rs + 1LoopEnd Sub

Do...Loop While当条件成立时循环(先执行一次再进行循环) 代码大概是下面的意思,不足之处还请见谅。 如果c.Offset(0, 1)的值等于TextBox2.Value,进行保存记录提示Y,N,Esc 提示框结果为Esc,退出 提示框结果为N,退出 TextBox1初始化 提示...

'模块 Public mouseevents As Boolean Sub a() mouseevents = False Do ..... Doevents Loop Until mouseevents End Sub 在BeforeRightClick和BeforeDoubleClick中添加 mouseevents = True

这里举个简单的例子 Sub aa() Do x = x + 1 Loop Until x 1 MsgBox x End Sub 意思是每一次循环x的值+1,当x1的时候退出循环 实际上就只有一个1,所以循环一次就退出了 你根据你的实际情况修改即可。 Sub aa() Do x = x + 1 Loop Until x > 10 M...

x为要算的数 n=1 x=100 v=1 do while n

网站首页 | 网站地图
All rights reserved Powered by www.wpzy.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com