以下のコードは、セル範囲からからメンバーを順番に取り出しメンバーをひとつづつ格納するマクロである。空欄に入る適切な語句を解答しなさい。
Sub Exam1()
Dim N As Range
For 【 ① 】 N 【 ② 】 Range("A1:A5")
N = 100
Next
MsgBox ("処理は終了しました。")
End Sub
正解
【 ① 】each
【 ② 】in
解説
・For Each... Next ステートメントは、グループのメンバーをひとつずつ順番に取りだす繰り返し処理をします。
構文:For Each 変数 In グループ
変数を使った操作
Next 変数
取り出すグループには、次の3つを指定します。
・コレクション・・・Workbooksなどの各コレクション
・複数(のセル)・・・Range(”A1:A3”)などセル範囲を指定する
・配列・・・プロシージャの宣言エリアで Dim A(3)など配列で宣言しFor Each 変数 In グループ で取りだす
またグループから取り出したメンバーを格納するためにオブジェクト変数を使います。
スポンサーリンク
スポンサーリンク