ねこになりたい

おふとんと朝の別れをするのが辛い人向けです。正論で殴らず見守ってあげてください。

For Each Next

概要

 
For Each 変数 To コレクションもしくは配列
コレクション、配列の要素だけ、同じ処理を実行する。
ワークシートの数だけ処理を回すといった動作が可能。
シート、配列などを扱うため、変数はオブジェクト型もしくはVariant型にする。

サンプル

配列インデックスの数だけ、処理を繰り返す。

Dim arr As Variant

For Each arr In Array("(´・ω・)", "(´・ω-)", "(´-ω-)", "(´-ω-)zZZ")
Debug.Print arr
Next

実行結果

f:id:Arpino:20200405135230p:plain

 

補足

処理を途中で抜けるには、Exit Forを使う。

Dim arr As Variant

Dim arr As Variant

For Each arr In Array("(´・ω・)", "(´・ω-)", "(´-ω-)", "(´-ω-)zZZ")
Debug.Print arr

Exit For
Next

f:id:Arpino:20200405135341p:plain