rwhn.net
当前位置:首页 >> vBA Do whilE loop >>

vBA Do whilE loop

VBA 中Do while Loop用法如下:VBA中如果不知道重复多少次,使用 Do...Loop 语句。Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。重复执行代码直到条件是 true使用 While 关键字来检查 Do... Loop 语句的条件。 Do While i>1...

可以呀,给你一段简单的代码: Sub aa() Dim a, i, j As Integer i = 1 a = 0 Do While i 5 j = 1 Do While j 2 a = a + i + j j = j + 1 Loop i = i + 1 Loop Cells(1, 1) = a End Sub 完全可行呀。

Sub xxx() For i = 1 To 98 Step 10 Range("A" & i & ":A" & i + 9).Select Selection.Copy Cells(1, 3 + i \ 10).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next i Msg...

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

第一个为先循环再判断,也就是说至少会执行一次,第二个为先判断再执行循环。 判断条件逻辑不同,第一个是只有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 while 判断条件 (返回True值和False值,返回True值执行循环体语句,False值结束循环) 循环体语句 loop 就你说的“这两个没有啥大区别啊,怎么方法1就没有任何反应呢? ” 区别怎么不大了。判断条件就是最大的区别。 方法1...

你不是写好了么。。。。。。。 只是分行错误,还有结构错误 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

Public Sub kkkk() Dim i, j i = 2 Do k = 0 For j = 1 To 50 If Cells(i + j, 1) = Cells(i, 1) Then k = k + 1 End If Next j Range("G" & i & ":G" & i + k).Select Application.CutCopyMode = False Selection.Copy Range("H" & i).Select S...

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