VBA ピボットテーブルの小計を一括非表示

ピボットテーブルの小計を一括非表示

Sub test()
' ピボットテーブルの小計を一括非表示

    Dim Pvt As PivotTable
    Dim pf As PivotField
    
    Set Pvt = ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1")
    

　　’ 　行ラベルのすべての小計をオフにする
    For Each pf In Pvt.RowFields
        pf.Subtotals(1) = False
    Next pf　
    
End Sub

Sub test2()
' ピボットテーブルの小計を一括再表示

    Dim Pvt As PivotTable
    Dim pf As PivotField
    
    Set Pvt = ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1")
    

　　’ 　行ラベルのすべての小計を再表示する
    For Each pf In Pvt.RowFields
        pf.Subtotals(1) = True
    Next pf　
    
End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA　ピボットテーブルの作成』

『VBA　セル範囲に名前の定義をする』

『VBA　ピボットテーブルの削除』

『VBA　ピボットテーブル　元データ範囲の自動取得』

『VBA　ピボットテーブルの更新』