【VBA】表に集計行を追加する

シート上の表に…

シート上の表
シート上の表

集計行を追加できます!

集計行を追加
集計行を追加
PR

VBAコード

ここでは例として、
 ・シート「sample」上の表に
 ・集計行を追加
します。

シート「sample」上の表
シート「sample」上の表
Option Explicit

Sub sample()

    Dim ws As Worksheet
    Dim startRange  As Range
    Dim table As ListObject
    
    '対象シート
    Set ws = Worksheets("sample")
    '表の一番左上のセル
    Set startRange = ws.Range("B2")
    
    '表をテーブル化してListObjectを取得
    Set table = ws.listObjects.Add(Source:=startRange.CurrentRegion, XlListObjectHasHeaders:=xlYes)
    '集計行を表示
    table.ShowTotals = True
    'テーブル化を解除
    With table
        .TableStyle = ""
        .Unlist
    End With
    
End Sub

以下を指定します(10~12行目)。
※状況に応じて任意の値を指定してください。

・対象シート
・オートフィルタを設定する表の一番左上のセル

表をテーブル化します(15行目)。
※「ListObjectオブジェクト」を取得します。

「ListObjectオブジェクト」の「ShowTotals」プロパティに「True」を指定することで、集計行を表示します(17行目)。

テーブル化を解除します(19~22行目)。

PR

実行結果

表に集計行を追加できました。

実行結果
実行結果
PR

参考①

上記のVBAコードは以下の記事を参考にして作成しました。

●シート上の表をテーブル化する


●シート上の表のテーブル化を解除する

PR

参考②

上記で使用した以下の詳細は、公式サイトをご確認ください。

●「ListObjectオブジェクト」の「ShowTotals」プロパティ

タイトルとURLをコピーしました