ピボットテーブル

取得

　ピボットテーブル

　　１つめ

シート.PivotTables(1)

列

　取得

　　値フィールド

ピボットテーブル.DataField("列名")

　行フィールド

ピボットテーブル.RowFields("列名")

　セル

　　取得

列.DataRange

　列名

列.Name

更新

ピボットテーブル.RefreshTable

フィルタ機能

　セット

Dim item As PivotItem

For Each item In ピボット列.PivotItems
    If 条件 Then
        item.Visible = True
    Else
        item.Visible = False
    End If
Next

　リセット

Dim val As PivotItem

With ピボット列
    For Each val In .PivotItems
        val.Visible = True
    Next

    .CurrentPage = "(All)"
End With