each遍歷循環(huán)方法？

VBA For Each循環(huán)

For Each循環(huán)用于為數(shù)組或集合中的每個(gè)元素執(zhí)行語(yǔ)句或一組語(yǔ)句。

For Each循環(huán)與For循環(huán)類似; 然而，F(xiàn)or Each循環(huán)是為數(shù)組或組中的每個(gè)元素執(zhí)行的。 因此，這種類型的循環(huán)中將不存在步計(jì)數(shù)器。 它主要用于數(shù)組或在文件系統(tǒng)對(duì)象的上下文中使用，以便遞歸操作。

語(yǔ)法

以下是VBA中For Each循環(huán)的語(yǔ)法。

For Each element In Group

[statement 1]

[statement 2]

....

[statement n]

[Exit For]

[statement 11]

[statement 22]

Next

示例

Private Sub Constant_demo_Click()

'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

MsgBox fruitnames

End Sub

當(dāng)執(zhí)行上面的代碼時(shí)，它會(huì)在每行中打印一個(gè)項(xiàng)目的所有水果名稱。