For Each...Next

---

For Each...Nextステートメント

構文

For Each element In group

[statements]

[Exit For]

[statements]

Next [element]

elementには、コレクションや配列の要素を受け取る変数を指定します。

groupには、コレクションや配列を指定します。

解説

コレクションや配列の各要素に対してstaementsを実行します。

引数elementには、バリアント型もしくはオブジェクト型変数を指定します。また、groupが配列の場合、引数elementにはバリアント型変数を指定します。

groupにユーザー定義型の配列を指定することはできません。

サンプル

次の例は、UserForm上のすべてのコントロール名を表示します。

Sub Sample()
    Dim msg As String, c As Variant
    For Each c In Controls
        msg = msg & c.Name & vbCrLf
    Next c
    MsgBox msg
End Sub