ForEach 循环语句是很多编程语言里的一个通用语句,使用方法大同小异,对于熟悉编程的人来说,并不是什么难理解的。
下面介绍一下其重点应用方法。
语法如下图所示
解释
如果_组_ 中有至少一个元素,则进入“For…Each”**** 块。在进入循环后, 循环中的所有语句都将对_group_中的第一个元素执行。
如果_组_ 中有多个元素,则继续为每个元素执行循环中的语句。 组中不再有元素时,退出循环并继续执行“Next”**** 语句后的语句。
遍历数组
Dim xArr,x,y
xArr=Array("A","B","C")
For Each x in xArr
y=x
if y="B" then exit for
Next x
上面代码解释为,遍历数组xArr,当遍历到数组中有一个字符为”B”的值时,就退出循环。
其中变量x,为暂存变量,为Variant可变类型变量。
当然ForEach 循环也可以遍历对象,如下例子在Range对象中进行遍历。
遍历数组
Dim cell as Range,xcell Range
set cell=Range("A1:A10")
For Each xcell in cell
if xcell.value=" then Exit For
Next xcell
上面例子中遍历Range对象cell中的值,如果值为””则退出循环。
本节示例对表中的数值进行乘法和加法计算,具体代码可看下图:
循环语句应用十分普遍,所以要学会并熟练运用循环语句是vba编程很重要的一个技能,如果要做一个优秀的应用系统,肯定离不开循环语句的使用。