Exit For 语句用于跳出循环过程,一般在提前结束循环时使用,均适用于 For Next 循环和 For Each 循环。看一个实际的例子,求 1 – 10 数字的和时,当和大于 30 就停止循环。Sub MyCode()Dim i As IntegerDim sum As IntegerFor i = 1 To 10sum = sum + iIf sum > 30 ThenExit ForEnd IfNextEnd S...
Do...Loop End Enum Erase Error 事件 結束 FileCopy For Each...Next For...Next 函數 Get GoSub...Return GoTo If...Then...Else Implements Input # Kill Let Line Input # Load Lock、Unlock LSet Mid MkDir 名稱 On Error On...GoSub、On...GoTo ...
一、For……End For 循环 二、For Each Item In …… Exit For……End For循环 三、代码 Sub 循环语句() 'for 循环 Dim s As String s = " " For i = 1 To 6 s = s + str(i) Next MsgBox (s) 'for each 循环 Dim Name Name = Array("VBA", "那", "些", "事") For Each Item...
Do until...Loop 语句是直到条件变成True时才停止循环 如果事先知道循环次数,应该使用For循环,据说它比Do循环速度快 不知道起点和终点,需要在循环内计算结果出来以后才能判断是否该终止循环的,用Do Loop循环。反之,如果很明确需要循环计算的次数,则用For……Next……计量循环。 For 循环有两种: 1. For Each a I...
Do...Loop End 枚举 Erase 错误 事件 Exit FileCopy For Each...Next For...Next 函数 获取 GoSub...Return GoTo If...Then...Else Implements Input # Kill Let Line Input # 加载 Lock、Unlock LSet Mid MkDir 名称 On Error On...GoSub、On...GoTo ...
都是循环语句,For...Next和For Each...Next语句,差别咋就这么大呢,其实不止是这两个,Excel中还有一个循环语句叫做Do...Loop,今天小编excel小课堂(ID:excel-xiaoketang 长按复制)就为小伙伴们分享下这三兄弟到底有何不同。 01 循环语句 循环语句又称控制结构,可以重复执行一系列代码,从而批量地完成工作任务。
Sub DoUntil循环() Dim m As Long m = 1 Do Until m > 1000 m = m * 2 Debug.Print m LoopEnd Sub 总结 1、循环语句是编程中的一个必不可少的方法,可以说没有循环,就根本无法编程。2、我们用的比较多的是For...Next结构的循环,有下标等数字序列的,我们就用数字来循环。以...
For Each c In Range("a1:d5")c.Value = Rnd Next End Sub 三 DO loop 语句 在条件为true时,重复执行命令区域 DO WHILE CONDITION [statements][exit do][statements]LOOP 或者:DO [statements][exit do][statements]LOOP WHILE CONDITION 备注:上面的while 可以用until 代替。VBA中如果事先不...
For Each wkSheet In ThisWorkbook.Worksheets MsgBox wkSheet.Name '显示每个工作表的名称 Next End Sub 可以在循环体中使用Exit For语句来退出循环。Do…Loop语句 可以使用Do…Loop语句循环执行其中的语句块,循环执行所用的时间是不确定的,当程序编制有错误时,容易进入死循环。所以一定要检查好循环中的跳出...
For Each r In Range("D2:D18") r = r.Offset(0, -1) * r.Offset(0, -2) Next r End Sub ③ Do ... Loop 语句 Sub 计算金额3() Dim x x = 1 '每次循环,x加1,直至x超过18停止 Do x = x + 1 Cells(x, 4) = Cells(x, 2) * Cells(x, 3) ...