Pivot table - 取消选择小于一个值

Question

在我的支点上 table（已选择所有项目）。我需要取消选择低于 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

Pivot table - 取消选择小于一个值

Pivot table - deselect less than a value

excel

vba

pivot

pivot-table