Excel VBA スタンダード模擬試験　ランダム順出題　②　第2問　公開問題

以下のコードを実行した時表示されるメッセージは【　 ① 】である。

【　 ① 】に入る適切な語句を解答しなさい。

Sub Exam1()

　Range("A1").ListObject.DataBodyRange.Copy Sheets("Sheet9").Range("A1")

　　MsgBox Sheets("Sheet9").Range("C1")

End Sub

正解

【　 ① 　】100

解説

【8章　テーブル操作】

セル.ListObject.DataBodyRange　はテーブル内のデータ部分を表しています

【コード解説】

Sub Exam1()

　　Range("A1").ListObject.DataBodyRange.Copy Sheets("Sheet9").Range("A1")

'セルA1を含むリストのデータ部分を、シート名”Sheet9”のセルA1にコピーする。

　　MsgBox Sheets("Sheet9").Range("C1")

End Sub