按关键字过滤枢轴

时间:2016-07-18 10:36:41

标签: excel vba filter macros pivot

我希望我的宏按特定关键字过滤我的数据透视表 - 一个3个字母的字符串(“xxx”)。不幸的是,字符串“xxx”可以位于文本中的任何位置,并且不会出现在特定数量的其他字母之后或之前。

我尝试了以下两种解决方案来以这种方式过滤枢轴,这两种解决方案都不起作用。

对此的任何帮助都将非常感激。

解决方案1 ​​

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("column").ClearAllFilters
        ActiveSheet.PivotTables("PivotTable1").PivotFields("column"). _
        EnableMultiplePageItems = False
        End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("column")
    .PivotItems("*xxx*").Visible = True
    End With

解决方案2

With ActiveSheet.PivotTables("PivotTable1").PivotFields("column").strPattern("*xxx*")

End With

1 个答案:

答案 0 :(得分:0)

ActiveSheet.PivotTables("PivotTable1").PivotFields("TEST").PivotFilters.Add _ Type:=xlCaptionContains, Value1:="123"