Question

在我的数据透视表上（选中所有项目）。我需要取消选择低于11

的所有内容

(10,9,8,7,6,5,4,3,2,1,0,(blank),(none))

我目前正在使用（下方）

With ActiveSheet.PivotTables("PivotTable5").PivotFields("Count")
    .PivotItems("10").Visible = False
    .PivotItems("9").Visible = False
    .PivotItems("8").Visible = False
    .PivotItems("7").Visible = False
    .PivotItems("6").Visible = False
    .PivotItems("5").Visible = False
    .PivotItems("4").Visible = False
    .PivotItems("3").Visible = False
    .PivotItems("2").Visible = False
    .PivotItems("1").Visible = False
    .PivotItems("0").Visible = False
    .PivotItems("none").Visible = False
    .PivotItems("(blank)").Visible = False
End With

... - 它可以工作，但是如果定义的其中一个值不可用，那么这不起作用。

是否有更简单的方法取消选择小于特定值的项目？

例如：列表中显示= if "8" - then取消选中，else忽略。或许

 = .PivotItem("<11").Visible = False

Answer 1

试试这个

    On Error Resume Next

    For i = 10 To 0 Step -1
        .PivotItems(i).Visible = False
    Next i

    On Error GoTo 0

数据透视表 - 取消选择小于一个值

1 个答案: