以下のコードを実行した時表示されるメッセージは【 ① 】である。
【 ① 】に入る適切な語句を解答しなさい。
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
