Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ListObject のプロパティ（Range、HeaderRowRange、DataBodyRange）

2016/08/04

ListObject オブジェクトのプロパティ（Range プロパティ、HeaderRowRange プロパティ、DataBodyRange プロパティ）

テーブル（リスト）機能を使用するには、ListObjects コレクション（ワークシート内のすべてのテーブル）、ListObject オブジェクト（１つのテーブル）を使用します。

Range プロパティ

ワークシート上のテーブル（リスト）のセル範囲を取得します。

【書式】

＜取得＞
object.Range

引数・戻り値

object ・・・対象となる ListObject オブジェクトを指定します。
戻り値・・・テーブルのセル範囲（Range オブジェクト）

HeaderRowRange プロパティ

ワークシート上のテーブル（リスト）の見出し部分のセル範囲を取得します。

【書式】

＜取得＞
object.HeaderRowRange

引数・戻り値

object ・・・対象となる ListObject オブジェクトを指定します。
戻り値・・・テーブルの見出し部分のセル範囲（Range オブジェクト）

DataBodyRange プロパティ

ワークシート上のテーブル（リスト）の見出し部分を除いたセル範囲を取得します。

【書式】

＜取得＞
object.DataBodyRange

引数・戻り値

object ・・・対象となる ListObject オブジェクトを指定します。
戻り値・・・テーブルの見出し部分を除いたセル範囲（Range オブジェクト）

ListObject オブジェクトのプロパティ（Range、HeaderRowRange、DataBodyRange）使用例

サンプルVBAソース

　
Sub Sample_ListObject01()

    Sheets("Sheet5").Activate
    
    Dim mysheet As Worksheet
    Dim mytbl As ListObject
    Dim str As String
    
    Set mysheet = ActiveWorkbook.ActiveSheet
    
    On Error GoTo ErrH
    
    Set mytbl = mysheet.ListObjects.Item("成績表02")
    
    str = "テーブル範囲：" & mytbl.Range.Address(rowabsolute:=False, columnabsolute:=False) & vbCrLf
    str = str & "見出し範囲：" & mytbl.HeaderRowRange.Address(rowabsolute:=False, columnabsolute:=False) & vbCrLf
    str = str & "データ範囲：" & mytbl.DataBodyRange.Address(rowabsolute:=False, columnabsolute:=False)
    
    MsgBox str
    
    Exit Sub
    
ErrH:
    MsgBox "テーブル（リスト）がありません"

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

　

Sub Sample_ListObject01()

Sheets("Sheet5").Activate

Dim mysheet As Worksheet

Dim mytbl As ListObject

Dim str As String

Set mysheet = ActiveWorkbook.ActiveSheet

On Error GoTo ErrH

Set mytbl = mysheet.ListObjects.Item("成績表02")

str = "テーブル範囲：" & mytbl.Range.Address(rowabsolute:=False, columnabsolute:=False) & vbCrLf

str = str & "見出し範囲：" & mytbl.HeaderRowRange.Address(rowabsolute:=False, columnabsolute:=False) & vbCrLf

str = str & "データ範囲：" & mytbl.DataBodyRange.Address(rowabsolute:=False, columnabsolute:=False)

MsgBox str

Exit Sub

ErrH:

MsgBox "テーブル（リスト）がありません"

End Sub

　

実行結果

- リスト・テーブル ListObject オブジェクト, ListObject.DataBodyRange プロパティ, ListObject.HeaderRowRange プロパティ, ListObject.Range プロパティ, VBA基本, エクセルVBA, リスト・テーブル

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: リスト・テーブル（ListObjects オブジェクト）

リスト・テーブル（ListObjects オブジェクト）ワークシート内のすべて …

: リスト・テーブルの行（ListRows, ListRow）

ListRows プロパティ ListRows コレクションは、テーブル・リスト …

: リスト・テーブルの並べ替え（Sort オブジェクト,Sort プロパティ）

リスト・テーブルを並べ替えるテーブル（リスト）を並べ替えるには、Sort メソ …

: リスト・テーブルの列（ListColumns, ListColumn）

ListColumns プロパティ ListColumns コレクションは、テー …

: フィルタ解除して全データを表示（ShowAllData メソッド）

ShowAllData メソッド AdvancedFilter メソッドや A …

: ListObject のプロパティ（ShowTotals プロパティ）

ShowTotals プロパティテーブル（リスト）の集計行の表示、非表示を設定 …

: リスト・テーブル（ListObject オブジェクト）

リスト・テーブル（ListObject オブジェクト）を取得【書式】 obje …

: データの抽出（AdvancedFilter メソッド）

AdvancedFilter メソッドワークシート上に記述した抽出条件を元にデ …

PREV: リスト・テーブル（ListObject オブジェクト）
NEXT: リスト・テーブルの列（ListColumns, ListColumn）