次のコードは、実行しようとすると【 空欄① 】行目でエラーとなるコードである。
空欄に入る次の選択肢の中から適切なものを1つ答えなさい。
1 Sub Exam1()
2 Dim i As Long
3 For i = 2 To 11
4 If Cells(i, 2) >=2 And Cells(i, 3) <500 Then
5 Cells(i, 1).Resize(, 4).Font.Bold = True
6 End If
7 i
8 End Sub

1.3
2.5
3.6
4.7
正解
4
解説
【7章 ステートメント】
【For…Nextステートメント】
●For…Nextステートメント…マクロ全体の中で指定の初期値から終了値までの
範囲で、繰り返し処理をするステートメントです。
構文
For 変数名 = 初期値 To 終了値 (Step 増減したい値)
処理
Next 変数名
●問題のコードの7行目は変数「i]の前に「Next 」が抜けていますのでエラーとなります。
次のコードは、実行しようとすると【 空欄 】行目でエラーとなるコードである。
空欄に入る次の選択肢の中から適切なものを1つ答えなさい。
1 Sub Exam1()
2 Dim i As Long
3 For i = 2 To 11
4 If Cells(i, 2) >=2 And Cells(i, 3) <500 Then
5 Cells(i, 1).Resize(, 4).Font.Bold = True
6 End If
7 i
'7行目は変数「i]の前に「Next 」が抜けていますのでエラーとなります。
8 End Sub
1.3
正しい。
記述の誤りはなくエラーにはなりません。
2.5
正しい。
引数の設定もしされており、記述の誤りはなくエラーにはなりません。
3.6
正しい。
4行目のIfステートメント対して「End If」と記述されており、記述の誤りはなくエラーにはなりません。
4.7
誤り。
記述に誤りがあります。
正しくは、 Next iと変数「i」の前に「Next」と記述します。