Excel VBA スタンダード模擬問題 ② 8章-7

次のコードは、1列目のデータを、見出しごとSheet2のセルA1へコピーするマクロである。空欄に入る適切な語句を解答しなさい。

Sub Exam1()
　With Range(“A1”).ListObject .【　①　】.Range
　　　.Copy Sheets(“Sheet2”).Range(“A1”)
　End With
End Sub

正解

【　①　】ListColumns(1)

解説

テーブルの列の見出しごと指定するにはListColumnsとインデックス番号もしくは列の見出しを利用し指定します。全ての列の中でのインデックス番号や、見出しの名前で指定となりますのでコレクションで表します。

①構文：テーブル内のセル.ListColumns (インデックス番号).Range・・・列の位置からテーブルの列の見出しごと指定する
例)Range(“A1”). ListObject .ListColumns (1).Range

⓶構文：テーブル内のセル.ListColumns(”列の見出し”).Range・・・見出しの名前からテーブルの列の見出しごと列を指定する
例)Range(“A1”).ListObject .ListColumns(”都道府県”).Range

列全体の指定はRangeですが、データ部分の指定はDataBodyRangeを記述します。

　　　　　前へ　　　　　　次へ