Excel VBA スタンダード模擬問題　①　第7問　3章-3

以下のコードは、セル範囲からからメンバーを順番に取り出しメンバーをひとつづつ格納するマクロである。空欄に入る適切な語句を解答しなさい。

Sub Exam1()

　Dim N As Range

　　　　For 【　①　】 N 【　②　】 Range("A1:A5")

　　　　　N = 100

　MsgBox ("処理は終了しました。")

End Sub

正解

【　①　】each

【　②　】in

解説

・For Each… Next ステートメントは、グループのメンバーをひとつずつ順番に取りだす繰り返し処理をします。

構文:For Each 変数 In グループ

変数を使った操作

Next 変数

取り出すグループには、次の3つを指定します。

・コレクション・・・Workbooksなどの各コレクション
・複数(のセル)・・・Range(”A1:A3”)などセル範囲を指定する
・配列・・・プロシージャの宣言エリアで　Dim A(3)など配列で宣言しFor Each 変数 In グループで取りだす

またグループから取り出したメンバーを格納するためにオブジェクト変数を使います。

[コード解説]

Sub Exam1()

　Dim N As Range

' 変数NをRange型として宣言しています。

　　For Each N In Range("A1:A5")

' ①セル範囲A1:A5の各セルを順番に取り出し、変数Nに格納します。

　　　　N.Value = 100

' 現在のセルに値100を格納します。

'グループの最後セルまで①へ戻り繰り返し処理をします。

　MsgBox ("処理は終了しました。")

' 処理が完了したことをメッセージボックスで通知します。

End Sub