For - Each

This gives you access to all the elements in a collection object without knowing exactly how many elements are in the collection.
The data type of the oItem must be either Variant or Object.

Elements in an Array

This loops through all the items in the array.

Public Sub ForEach1() 
Dim arValues As Variant
Dim oItem As Variant
   arValues = Array(1,2,3,4,5)
   For Each oItem In arValues
'do something
   Next oItem
End Sub

Elements in a Collection

This loops through all the items in the collection.

Public Sub ForEach2() 
Dim MyCollection As New Collection
Dim oItem As Variant
   MyCollection.Add "on"
   MyCollection.Add "tw"
   MyCollection.Add "th"
   MyCollection.Add "fo"
   For Each oItem In MyCollection
'do something
   Next oItem
End Sub

Exit For

The Exit For statement lets you exit the loop early.

© 2022 Better Solutions Limited. All Rights Reserved. © 2022 Better Solutions Limited TopPrevNext