数据透视表-取消选择小于一个值 [英] Pivot table - deselect less than a value

问题描述

在我的数据透视表上(选中的所有项目).我需要取消选择所有低于11

On my pivot table (all items selected). I need to deselect everything lower than 11

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

我当前正在使用(如下)

Im currently using (below)

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

...-可以，但是如果定义的值之一不可用，则不起作用.

... - it works, But if one of the values defined are not available, this doesnt work.

是否有更简便的方法来取消选择小于特定值的项目?

Is there an easier way to deselect items less than a particular value?

示例: = if "8"在列表中-then取消选择它，else忽略. 也许

example: = if "8" is on the list - then deselect it, else ignore. or perhaps

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

推荐答案

尝试一下

    On Error Resume Next

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

    On Error GoTo 0

这篇关于数据透视表-取消选择小于一个值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！