Sub hello1()' h = ha(100)' Debug.Print h' Call ha(120)' ha (130)
test1
Call test1
EndSubFunction ha(via AsInteger)Debug.Print"hello"
ha = via
EndFunctionSub test1()Debug.Print"test1----"EndSub
四、循环语句
1、for
可以进行逆序的循环:数字大到小,step 设置为负数即可
用 for 循环进行删除操作的时候往往会遇到位置变动的问题,这时候采用逆序的循环就能很好规避这个问题
For i =1To10step2
MsgBox i
Next i
2、for-each
可以用于集合数组遍历
比起一般的 for 遍历起来会更方便,但是少了循环次数的变量
对于 sheet 的批量删除操作可以使用 for-each,可以避免位置问题
但是如果是对单元格进行批量的删除操作,for-each也是不行的,还是有位置问题
PrivateSub Constant_demo_Click2()'fruits is an array
fruits =Array("苹果", "橙子", "樱桃")Dim fruitnames As Variant
'iterating using For each loop.For Each Item In fruits
fruitnames = fruitnames & Item &Chr(10)Next Item
MsgBox fruitnam