No.1

ForEach 循环语句是很多编程语言里的一个通用语句,使用方法大同小异,对于熟悉编程的人来说,并不是什么难理解的。

下面介绍一下其重点应用方法。

foreach循环用法(ForEach循环语句使用方法介绍)(1)

No.2

语法如下图所示

foreach循环用法(ForEach循环语句使用方法介绍)(2)

解释

如果_组_ 中有至少一个元素,则进入“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对象中进行遍历。

foreach循环用法(ForEach循环语句使用方法介绍)(3)

遍历数组

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中的值,如果值为""则退出循环。

本节示例对表中的数值进行乘法和加法计算,具体代码可看下图:

foreach循环用法(ForEach循环语句使用方法介绍)(4)

No.3

循环语句应用十分普遍,所以要学会并熟练运用循环语句是vba编程很重要的一个技能,如果要做一个优秀的应用系统,肯定离不开循环语句的使用。