时间戳

首页 > 解决方案 > 如何过滤具有多个项目的数据透视表？

excel - 如何过滤具有多个项目的数据透视表？

问题描述

我正在尝试从数据透视表中过滤数据。为什么第一个设置有效而第二个设置无效？错误是“无法在 PivotItem 类中设置可见属性”我应该以不同的方式执行此操作吗？最终我想根据字符串进行过滤并应用正确的设置进行过滤。


Sub Macro11()
'

    ActiveSheet.PivotTables("PivotTable1").PivotFields("Brand").CurrentPage = _
        "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Brand")
   .PivotItems("BK").Visible = False
        .PivotItems("CV").Visible = True
        .PivotItems("CV R").Visible = True
        .PivotItems("GC").Visible = False
        .PivotItems("OS").Visible = False
        .PivotItems("CL").Visible = False
        .PivotItems("CL R").Visible = False

    End With




    ActiveSheet.PivotTables("PivotTable1").PivotFields("Brand").CurrentPage = _
        "(All)"
  With ActiveSheet.PivotTables("PivotTable1").PivotFields("Brand")
   .PivotItems("Bk").Visible = False
        .PivotItems("CV").Visible = False
        .PivotItems("CV R").Visible = False
        .PivotItems("GC").Visible = False
        .PivotItems("OS").Visible = False
        .PivotItems("CL").Visible = True
        .PivotItems("CL R").Visible = True

    End With

End Sub

标签： excelvbapivot-table

解决方案

看起来这行得通...

Sub Macro11()

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Brand")
        .ClearAllFilters
        .EnableMultiplePageItems = True
        .PivotItems("BK").Visible = False
        .PivotItems("CV").Visible = True
        .PivotItems("CV R").Visible = True
        .PivotItems("GC").Visible = False
        .PivotItems("OS").Visible = False
        .PivotItems("CL").Visible = False
        .PivotItems("CL R").Visible = False

    End With


  With ActiveSheet.PivotTables("PivotTable1").PivotFields("Brand")
        .ClearAllFilters
        .EnableMultiplePageItems = True
        .PivotItems("Bk").Visible = False
        .PivotItems("CV").Visible = False
        .PivotItems("CV R").Visible = False
        .PivotItems("GC").Visible = False
        .PivotItems("OS").Visible = False
        .PivotItems("CL").Visible = True
        .PivotItems("CL R").Visible = True

    End With

End Sub

推荐阅读