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

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

2016/10/06

ShowTotals プロパティ

テーブル（リスト）の集計行の表示、非表示を設定および取得をします。集計方法については、ListColumn オブジェクトの TotalsCalculation プロパティ で設定します。

【書式】

＜取得＞
object.ShowTotals

＜設定＞
object.ShowTotals = boolean

引数・戻り値

object ・・・対象となる ListObject オブジェクトを指定します。
boolean ・・・ブール型（Boolean）の値を指定します。True を指定すると集計行を表示、False を指定すると集計行を非表示にします。

集計行を表示した状態で、Unlist メソッドを実行してテーブルを通常の範囲に戻すと、集計行も範囲に変換されます。集計行が不要な場合は、Unlist メソッドを実行する前に、集計行を非表示に設定します。

ShowTotals プロパティ使用例

サンプルVBAソース

　
Sub Sample_ListObject_ShowTotals()

    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")
    
    '集計行の表示・非表示を切り替える
    mytbl.ShowTotals = Not mytbl.ShowTotals
    
    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

　

Sub Sample_ListObject_ShowTotals()

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")

'集計行の表示・非表示を切り替える

mytbl.ShowTotals = Not mytbl.ShowTotals

Exit Sub

ErrH:

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

End Sub

　

実行結果

サンプルVBAソースを集計行非表示の時に実行

サンプルVBAソースを集計行表示の時に実行

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

Tweet

Message コメントをキャンセル

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

関連記事

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

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

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

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

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

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

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

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

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

ListObject オブジェクトのプロパティ（Range プロパティ、Head …

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

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

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

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

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

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

PREV: リスト・テーブルの並べ替え（Sort オブジェクト,Sort プロパティ）
NEXT: データベース（Access 等）に接続（ADO）