0

いくつかのピボットテーブル (すべてではない) のフィルターを変更するマクロを作成しようとしていますが、ピボットフィールドでエラーが発生します。コードのサンプルを次に示します。

Sheets("Sheet1").PivotTables("PivotTable" & pivot_counter).PivotFields( _
"[year].[year].[year]").VisibleItemList = Array("")

私の質問は次のとおりです。

1- VisibleItemList を使用するときに PivotFields("[年].[年].[年]") を使用するのはなぜですか? なぜそれを繰り返さなければならないのか、それが何を意味するのか、それについてはどこにも何もありませんでした.

2- このコードの何が間違っていると思われますか? 私のピボット テーブルには「年」というフィールドがあり、フィルターは特定の年 (2013 年としましょう) に設定されています。

4

1 に答える 1

1 
Sub Tester()
    ShowAll ActiveSheet.PivotTables("PivotTable1").PivotFields("Year")
End Sub


Sub ShowAll(pf As PivotField)
    Dim pi As PivotItem
    Application.ScreenUpdating = False
    For Each pi In pf.PivotItems
        pi.Visible = True
    Next pi
    Application.ScreenUpdating = True
End Sub
于 2013-08-23T18:04:08.657 に答える