正在获取 VBA 以将过滤器应用于数据透视表 table

Question

因此，如标题中所述，我正在尝试将过滤器作为宏的一部分应用于工作簿中的数据透视表 table。我在互联网上尝试了数十种不同的解决方案，但无济于事。

这就是我到目前为止所得到的，它成功地清除了旧过滤器，所以我只需要一行将过滤器 "z" 分配给数据透视字段 "IP5"

   Sub GetConsign()

    Dim y As Integer 
    Dim z As Integer 
    y = 4

    Worksheets("Master Data").Activate
    Cells(y, 7).Select
    z = Right(ActiveCell, 5)
    Worksheets("Cons Data").Activate

        Sheets("Cons Data").PivotTables("PivotTable3").PivotFields("IP5").ClearAllFilters

        'Need something to go here!

End Sub

我会 post 一张 table 的图像，但显然我需要 10 个声望，没关系。

谢谢，非常感谢我能得到的任何帮助，我快疯了！

Answer 1

试试这个

Sheets("Cons Data").PivotTables("PivotTable3").PivotFields("IP5").CurrentPage = "z"

或

Sheets("Cons Data").PivotTables("PivotTable3").PivotFields("IP5").PivotFilters.Add Type:=xlCaptionEquals, Value1:="z"

正在获取 VBA 以将过滤器应用于数据透视表 table

Getting VBA to apply a filter to a pivot table

vba

pivot-table