GoTo行 所需的 行参数 可以是任何 行标签 或行号。 备注 GoTo 只能转到所出现在过程内的行。 备注 [!注释] GoTo 语句太多可能会使代码难以阅读和调试。 使用结构化控制语句 (Do...Loop、For...接下来,如果...然后。。。否则,请尽可能选择大小写)。 示例 此示例使用 GoTo 语句转到过程内的行标签。 VB ...
9、While语句 代码语言:javascript 代码运行次数:0 运行 AI代码解释 List=1Do While Sheet1.Cells(1,List).Value<>""'遍历Sheet1的单元格A1、A2··,直 '到遇到内容为空的单元格,退出while循环 List=List+1Loop 10、实现单元格中内容换行的字符 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Chr(10...
Do While works.Cells(i, 1) <> "" '没有找到且数据不为空时进入查找循环 If InStr(works.Cells(i, 4), "申请中") <> 0 Then works.Range(Cells(i, 1), Cells(i, 4)).Interior.Color = vbGreen Exit Do '找到了第一个数据,退出do循环 End If i = i + 1 Loop End Sub (3)exit只能跳...
1.Do While条件…Loop 只有当满足条件时才进入循环体,例如: Sub doWhile1() Dim I As Integer Do While I < 10 'I小于10时,循环继续 I = I + 1 '累加I变量值 Loop End Sub 2.Do…Loop While条件 先进入循环体执行一次,然后再判断是否满足条件,例如: Sub doWhile2() Dim I As Integer Do I = ...
do-while循环 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Sub test2() Dim x As Interger x = 1 Do while x < 18 x = x + 1 Cells(x, 4) = Cells(x, 2) * Cells(x, 3) If Cells(x, 4) = 25 Then Cells(x, 4) = 0 Exit Do `跳出循环 Loop End Sub 判断语句 if判断 代...
On...GoSub、On...GoTo 開啟 Option Base Option Compare Option Explicit Option Private Print # Private Property Get Property Let 屬性集 公用 Put RaiseEvent Randomize ReDim Rem 重設 Resume RmDir RSet SaveSetting Seek Select Case SendKeys Set SetAttr Static Stop Sub Time Type Unload While...Wend ...
Do While...Loop 语句是条件为True时循环 Do until...Loop 语句是直到条件变成True时才停止循环 如果事先知道循环次数,应该使用For循环,据说它比Do循环速度快 不知道起点和终点,需要在循环内计算结果出来以后才能判断是否该终止循环的,用Do Loop循环。反之,如果很明确需要循环计算的次数,则用For……Next……计量循...
exit语句（又称“短路语句”）直接跳出一个循环结构或一个子过程（函数）。（1）exit语句种类 退出do while循环时，使用exit do；退出for循环，使用exit for 退出sub子过程，使用exit sub；退出function函数，使用exit function While wend循环没有相应的exit退出语句，所以该循环不推荐使用。（2）一个...
4、Do While语句 语法结构1: Do [While 逻辑表达式] <循环体> [Exit Do] [循环体] Loop 对应示例: Sub xingji() Dim xj As String, i As Integer i = 2 Do While Cells(i, "H") <> "" Select Case Cells(i, "H") Case Is < 85 ...
On...GoSub、On...GoTo 打开 Option Base 选项比较 Option Explicit Option Private Print # 私人 Property Get Property Let Property Set 公共 Put RaiseEvent Randomize ReDim Rem 重置 Resume RmDir RSet SaveSetting Seek Select Case SendKeys Set SetAttr 静态 停止 Sub 时间 类型 Unload While...Wend Width...