No.1
ForEach 循環語句是很多編程語言里的一個通用語句，使用方法大同小異，對於熟悉編程的人來說，並不是什麼難理解的。
下面介紹一下其重點應用方法。
No.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對象中進行遍歷。
遍曆數組
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中的值，如果值為””則退出循環。
本節示例對表中的數值進行乘法和加法計算，具體代碼可看下圖：
No.3
循環語句應用十分普遍，所以要學會並熟練運用循環語句是vba編程很重要的一個技能，如果要做一個優秀的應用系統，肯定離不開循環語句的使用。
原創文章，作者：投稿專員，如若轉載，請註明出處：https://www.506064.com/zh-tw/n/252376.html
微信掃一掃 
支付寶掃一掃 