Excel VBA ListObject
テーブル ListObject
Excel使うなら絶対使うべき機能テーブル！
リストデータに対して、入力規則を自動適用したり
構造化参照を使って数式が管理しやすくなったりいいことたくさん。
さぁ、レッツ Ctrl＋T ！
そのListObjectに関してのメモ書き＆備忘録。
テーブル特定
sample.vba
Activesheet.ListObjects(1).
Range("A1").listobject.
Range("テーブル1").listobject.
*テーブル1＝tablename
テーブル特定部分の指定
テーブル全体
ListObject.vba
Activesheet.ListObjects(1).Range.Select
Range("A1").listobject.Range.Select
ヘッダーのみ
ListObject.vba
Activesheet.ListObjects(1).HeaderRowRange.Select
（ヘッダー除く）データ全体
ListObject.vba
Activesheet.ListObjects(1).DataBodyRange.Select
列
ListObject.vba
Activesheet.ListObjects(1).ListColumns(2).Range.Select
2列目全体を選択
行
ListObject.vba
Activesheet.ListObjects(1).ListRows(3).Range.Select
データの3行目を選択（ヘッダーは含まれない）
集計行
ListObject.vba
Activesheet.ListObjects(1).TotalsRowRange.Select
え、集計行設定してない？ ⇒
Ctrl ＋ Shift ＋ T ね。
データ先頭行(Excel行)取得
ListObject.vba
debug.print Activesheet.ListObjects(1).DataBodyRange.Row
データ行数取得
ListObject.vba
debug.print Activesheet.ListObjects(1).ListRows.Count
データ最終行(Excel行)取得
ListObject.vba
debug.print Activesheet.ListObjects(1).DataBodyRange.Row + Activesheet.ListObjects(1).ListRows.Count - 1
上のデータ先頭行(Excel行)取得してデータ行数取得して、1引くとデータの最終行
おわり
テーブルって管理が楽になるよね
Author And Source
この問題について(Excel VBA ListObject), 我々は、より多くの情報をここで見つけました https://qiita.com/silver2019/items/4b44fbb88fd07d0ee833著者帰属：元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .