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