Question

正如标题中所提到的，我正在尝试将过滤器应用于我的工作簿中的数据透视表作为宏的一部分。我已经尝试过来自互联网的几十种不同的解决方案但无济于事。

这是我到目前为止所做的，它成功地清除了旧的过滤器，所以我只需要一条线来将过滤器“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

我发布了一张桌子的图片，但显然我需要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将过滤器应用于数据透视表

1 个答案: