Excel VBA ベーシック 模擬問題 模擬試験

Excel VBA ベーシック 模擬問題 ランダム順出題 ② 第32問

次のコードは、実行しようとすると【 空欄①  】行目でエラーとなるコードである。

空欄に入る次の選択肢の中から適切なものを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」と記述します。