Vòng lặp For Each trong VBA

Vòng lặp For Each trong VBA được sử dụng để thực hiện một câu lệnh hoặc một nhóm các câu lệnh cho mỗi phần tử của một mảng hoặc một collection.

Một vòng lặp For Each tương tự vòng lặp For. Tuy nhiên, vòng lặp For Each được thực hiện cho mỗi phần tử của một mảng hoặc collection. Do đó, bộ đếm Step sẽ không tồn tại trong loại vòng lặp này.

Cú pháp

Dưới đây là cú pháp của một vòng lặp For Each trong VBA.

For Each element In Group
   [statement 1]
   [statement 2]
   ....
   [statement 10]
   [Exit For]
   [statement 11]
   [statement 12]
   [statement n]
Next

ví dụ về vòng lặp For Each trong VBA

Sub ForEachExample()
   ' khai bao mang fruits
   fruits = Array("apple", "orange", "mango")
   Dim fruitNames As Variant
 
   ' duyet mang fruits su dung vong lap For Each.
   For Each Item In fruits
      fruitNames = fruitNames & Item & vbCrLf
   Next
   
   MsgBox fruitNames
End Sub

Kết quả:

apple
orange
mango