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

Excel VBA ベーシック 模擬問題 第4章 第11問

現在開いているブックが複数ある場合において、

2番目に開いたブックの左から3番目のシートのセルA1に値を代入するマクロとして、

正しいものを選択肢から1つ選びなさい。

 

1.

Sub Exam1()

 WorkBook2.Sheets3.Range("A1").Value = "VBA"

End Sub

 

2.

Sub Exam1()

 Workbooks(2).Sheets(3).Range("A1").Value = "VBA"

End Sub

 

3.

Sub Exam1()

 WorkBook(2).Sheet(3).Range("A1").Value = "VBA"

End Sub

 

4.

Sub Exam1()

 WorkBooks(num2).Sheets(num3).Range("A1").Value = "VBA"

End Sub

 

 

正解

2

解説

【4章 VBAの構文】

【コレクションの番号】

記述は後ろの「()」内に番号を入力し、コレクションはオブジェクトを複数形で記述します。

 

本問題の条件でコレクションに番号を割り当てると、ブックの番号は開いた順番に番号が振られます。

本問題では…2

Workbooks(2)

 

シートは表示非表示に関わらず左から数えて何番目かによって番号がエクセルにより自動で割り振られます。

本問題では…3

Sheets(3)となります

 

現在開いているブックが複数ある場合において、

2番目に開いたブックの左から3番目のシートのセルA1に値を代入するマクロとして、

正しいものを選択肢から1つ選びなさい


 

1.

Sub Exam1()

 WorkBook2.Sheets3.Range("A1").Value = "VBA"

End Sub

 

誤り。

 

WorkbooksコレクションとSheetsコレクションの記述が誤っています。

コレクションの後ろの「()」内に番号を入力します。

 

2.

Sub Exam1()

 Workbooks(2).Sheets(3).Range("A1").Value = "VBA"

End Sub

 

正しい。

 

WorkbooksコレクションとSheetsコレクションの記述が両方とも正しいです。

 

3.

Sub Exam1()

 WorkBook(2).Sheet(3).Range("A1").Value = "VBA"

End Sub

 

誤り。

 

WorkbooksコレクションとSheetsコレクションの記述が誤っています。

コレクションはオブジェクトを複数形で記述します。

 

4.

Sub Exam1()

 WorkBooks(num2).Sheets(num3).Range("A1").Value = "VBA"

End Sub

 

誤り。

 

WorkbooksコレクションとSheetsコレクションの記述が誤っています。

コレクションの後ろの「()」内に番号を入力します。