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

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

次のコードは現在開いているブックが1つ、ブック上のシートが1枚のみの時に、シート上のセルA1に値を代入するマクロです。

コードの記述として、正しいものを選択肢の中から1つ解答しなさい

 

1.

Sub Exam1()

 WorkBooks("1").Sheet("1").Range("A1").Value = ”北海道”

End Sub

 

2.

Sub Exam1()

 WorkBook(1).Sheets(1).Range("A1").Value = "北海道"

End Sub

 

3.

Sub Exam1()

 WorkBooks(1).Sheets(1).Range("A1").Value = "北海道"

End Sub

 

4.

Sub Exam1()

 WorkBook(1).Sheet(1).Range("A1").Value = "北海道"

End Sub

 

正解 3


解説

【4章 VBAの構文】

【コレクションとオブジェクト数について】

オブジェクト数が複数でなくても(0や1の時)でもコレクションは複数形で表します。

WorkBook→WorkBooks

Sheet→Sheets

 

次のコードは現在開いているブックが1つ、ブック上のシートが1枚のみの時に、シート上のセルA1に値を代入するマクロです。

コードの記述として、正しいものを選択肢の中から1つ解答しなさい

 

1.

Sub Exam1()

 WorkBooks("1").Sheet("1").Range("A1").Value = ”北海道”

End Sub

 

誤り。

 

Sheetsコレクションの複数形の記述が誤っています。

またブック番号、シート番号で「1」を指定するときは("1")ではなく(1)とします。

 

2.

Sub Exam1()

 WorkBook(1).Sheets(1).Range("A1").Value = "北海道"

End Sub

 

誤り。

 

Workbooksコレクションの複数形の記述がWorkBookとなっていて誤りです。

 

3.

Sub Exam1()

 WorkBooks(1).Sheets(1).Range("A1").Value = "北海道"

End Sub

 

正しい。

 

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

 

4.

Sub Exam1()

 WorkBook(1).Sheet(1).Range("A1").Value = "北海道"

End Sub

 

誤り。

 

Workbooksコレクション,Sheetsコレクション複数形の記述が誤っています。

WorkBook、Sheetとなっていてます。