vba中五种循环语句的区别

vba中五种循环语句的区别

1、For ……Next 语句，适用于顺序操作
例1.在立即窗口输出1到100
For n=1 to 100 '从1到100 ，执行下行代码
debug.Print n
next n
2、For……Each……Next语句，适用于集合的操作
例2.输出指定单元格区域所有单元格的内容
For Each Cell in myRange '遍历区域内的所有单元格
debug.Print Cell.Value
next Cell
3、Do While 条件 ……Loop 语句。
例3、在立即窗口输出1到100
n=0
Do While n<=100'当n小于等于100时 ，执行下行代码，否则退出
n=n 1
Debug.Print n
Loop
4、While 条件…… Wend 语句。
例4、在立即窗口输出1到100
n=0
While n<=100'当n小于等于100时 ，执行下行代码，否则退出
n=n 1
Debug.Print n
Wend
5、Do ……Loop Until 条件 语句。
例5、在立即窗口输出1到100
n=0
Do '执行下行代码
n=n 1
Debug.Print n
Loop Until n >100 ‘当n大于100时退出循环
6、Do ……Loop While 语句 ，鬼老的思维真是最诡异，把While放在Loop后面却不是退出循环的条件，而是继续执行循环的条件。真令汉语思维费解。
例6、在立即窗口输出1到100
n=0
Do '执行下行代码
n=n 1
Debug.Print n
Loop While n <=100 ‘当n小于等于100时 ，继续执行循环。

写下如下代码，如果输入的是文本则被视为零进行处理： private sub worksheet_change(byval target as range) for i = 1 to 100 step 2 if target.column = 1 then call s exit for end if next i end sub sub s() for i = 2 to 100 step 2 '工作表的前100列的数据进行处理 x = 0 for a = 1 to 500 step 2 '工作表的前500行的数据进行处理 if cells(1, i - 1) = 0 then exit for a1 = cells(a, i - 1): a2 = cells(a + 1, i - 1) if isnumeric(a1) = false then a1 = 0 if isnumeric(a2) = false then a2 = 0 x = x + a1 + a2 cells(1, i) = x next a next i end sub