Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » ListObject・テーブル集計行の表示切替を行うExcelマクロ

ListObject・テーブル集計行の表示切替を行うExcelマクロ

対象：Excel2007, Excel2010, Excel2013

「vba listobject 集計行」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

ListObjectオブジェクト（テーブル）の集計行に関するVBA（Visual Basic for Applications）のコードを探していた方による検索です。

ですが、
「vba listobject 集計行」
という検索キーワードだけでは、具体的に何を探していたのかがわかりません。

可能性がいくつか考えられますが、まずは、集計行の表示を切り替えるマクロをご紹介しておきます。

［スポンサードリンク］

アクティブシート上の集計行の表示を切り替えるサンプルマクロ

テーブルの存在するワークシートがアクティブな状態で以下のマクロを実行すると、ワークシート上に存在する一つ目のテーブルの集計行の表示が切り替わります。

Sub テーブルの集計行の表示を切り替える()
　With ActiveSheet.ListObjects(1)
　　.ShowTotals = Not .ShowTotals
　End With
End Sub

集計行の表示状態は、ListObjectオブジェクトのShowTotalsプロパティで取得・設定することができます。

ListObject・テーブル集計行の表示切替を行うExcelマクロ

例えば、
　ActiveSheet.ListObjects(1).ShowTotals = True
というコードなら、集計行が表示され、
　ActiveSheet.ListObjects(1).ShowTotals = False
なら集計行を非表示にできます。

このTrue・Falseの切り替えをNot演算子で行っているのが、上記のマクロです。

以下のようなマクロにすれば、アクティブなブックのすべてのワークシート上の、すべてのテーブルの集計行を非表示にできます。

Sub 全テーブルの集計行を非表示に()
　Dim sh As Worksheet
　For Each sh In Worksheets

　　Dim ls As ListObject
　　For Each ls In sh.ListObjects
　　　ls.ShowTotals = False
　　Next ls

　Next sh
End Sub

全ワークシートに対してFor Each～Nextループを回して、
　For Each sh In Worksheets

更にそのループの中で、全テーブルに対してFor Each～Nextループを回して、
　　For Each ls In sh.ListObjects

ListObjectオブジェクトのShowTotalsプロパティをFalseにしています。
　　　ls.ShowTotals = False

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » ListObjectオブジェクト » ListObject・テーブル集計行の表示切替を行うExcelマクロ

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「ListObjectオブジェクト」の記事一覧