Excel VBA スタンダード模擬問題　第8章　第2問　公開問題

次のコードは見出し行も含めテーブル全体を選択し、その行数を表示するマクロである。

空欄に入る適切な語句を解答しなさい。

なおシート上にはテーブルは１つのみである。

Sub Exam1()

With Sheets("sheet1").ListObjects (【　 ① 　】).Range.Select

MsgBox Selection.Rows.Count

End With

End Sub

正解

【　 ① 　】1

解説

【8章　テーブル操作】

【テーブルの特定】

【テーブルが存在するシートから、インデックス番号やテーブル名でテーブルを特定する。】

●シートからインデックス番号やテーブル名でテーブルを特定する場合は、ListObjectsとコレクションとなり複数形になります。

・対象のシート. ListObjects (インデックス番号)

例)Sheet("集計表").ListObjects (1)

・対象のシート. ListObjects (テーブル名)

例)Sheet("集計表").ListObjects ("テーブル1")

【コード解説】

Sub Exam1()

With Sheets("sheet1").ListObjects (1).Range.Select

'シート名sheet1のインデックス番号１のテーブル全体を選択する。

MsgBox Selection.Rows.Count

'選択箇所の行数を数え表示する。

End With

End Sub