Vba-foreach-loop

VBA-ループごと

*For Each* ループは、配列またはコレクション内の各要素に対してステートメントまたはステートメントのグループを実行するために使用されます。

For EachループはForループに似ています。ただし、ループは配列またはグループ内の各要素に対して実行されます。 したがって、このタイプのループにはステップカウンターは存在しません。 ほとんどの場合、配列で使用されるか、ファイルシステムオブジェクトのコンテキストで再帰的に動作するために使用されます。

構文

VBAの For Each ループの構文は次のとおりです。

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("apple", "orange", "cherries")
   Dim fruitnames As Variant

   'iterating using For each loop.
   For Each Item In fruits
      fruitnames = fruitnames & Item & Chr(10)
   Next

   MsgBox fruitnames
End Sub

上記のコードが実行されると、すべてのフルーツ名が各行に1つのアイテムとともに出力されます。

apple
orange
cherries