如何在不提及pivotitems各个项目名字的前提下，将所有items设为隐藏

努力的兔子

请问如何将指定pivotfields 下的所有items设为隐藏？
通常在为一个数据透视表的生成的过程录制宏后，可以发现，程序默认特定pivotfields下所有pivotitems为显示，然后将需要隐藏的items，通过语句
.pivoitems("该item的名字“）.visible=False,将需要隐藏的item隐藏起来。
可是这个过程有一个缺点，就是需要将该程序应用于表的数据源时，如果该数据源没有当时录制时数据源里，包含的任意一个被隐藏起来的item，程序运行即会出错。
所以希望改变程序逻辑，先把指定pivotfields下的所有items都隐藏起来，同时不提及这些items的具体名字，这样在下次运行时即不会出错。然后再将要显示的item显示出来。

就是怎样使橘色字过程避免绿色字过程中提到 具体item 的缺陷。

努力的兔子

这是我根据上面的问题做的ＶＢＡ，我改用逻辑为遍历所有ｉｔｅｍｓ，并对比他们与我需要的ｉｔｅｍｓ的值，如果不是将这些ｉｔｅｍｓ都隐藏起来。
Sub Macro2()
'
' Macro2 Macro
' 宏由 微软用户 录制，时间: 2011-3-26
'

'
    ActiveWorkbook.Names.Add Name:="database1", RefersToR1C1:= _
        "=OFFSET(Sheet1!R1C1,0,0,COUNTA(Sheet1!C1),3)"
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "database1").CreatePivotTable TableDestination:="", TableName:="数据透视表2", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("数据透视表2").PivotFields("Name")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表2").PivotFields("Sex")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("数据透视表2").AddDataField ActiveSheet.PivotTables("数据透视表2" _
        ).PivotFields("Score"), "求和项:Score", xlSum
    Dim i As Integer, j As Integer
    i = 1
    j = ActiveSheet.PivotTables("数据透视表2").PivotFields("Sex").PivotItems.Count
    For i = 1 To j
    If ActiveSheet.PivotFields("Sex").PivotItems(i).Value <> "F" And ActiveSheet.PivotFields("Sex").PivotItems(i).Value <> "M" Then
        With ActiveSheet.PivotTables("数据透视表2").PivotFields("Sex")
        .PivotItems(i + 1).Visible = False
        End With
    End If
    Next
End Sub
问题是运行时显示橘色这部分，对象不支持该属性或方法，错误为４３８．我想是不是Ｐｉｖｏｔｉｔｅｍｓ（ｉ）．ｖａｌｕｅ＜＞＂Ｆ＂，　不该这么表达呢？

lg_0

不知道你解决没有，我正好也碰到此问题

tiange1228

没有附件，正常应该可以通过 Items(1) to Items(i)的循环来隐藏

fanwu

PivotItems(i).Visible只接受文本 ，你要将变量赋值时转换成文本。
即：用PivotItems(“” & i).Visible  这种形式即可将变量赋值给PivotItems.Visible
当然前提也是PivotItems中存在变量的值。具体方法自己想吧。

freeffly

先取消第一個以後的
然後再選擇想要的項目
再取消第一個
這樣代碼應該比較少

1. Dim i As Long
   
2. .PivotItems(1).Visible = True
   
3. For i = 2 To .PivotItems.Count
   
4.     .PivotItems(i).Visible = False
   
5. Next

复制代码

nowich

我也有这个问题  数据源有3w多行
直接界面选择只显示一个item很快
但用代码就很慢   

写诗读

我也遇到同样的问题 有没有大大解决了 来分享下经验

写诗读

我用elseif解决了
With ActiveSheet.PivotTables("数据透视表2").PivotFields("Sex ")
        S = .PivotItems.Count
        For i = 1 To S
            If .PivotItems(i).Name = "M" Then
                .PivotItems(i).Visible = True
            ElseIf .PivotItems(i).Name = "F" Then
                .PivotItems(i).Visible = True
            Else
                .PivotItems(i).Visible = False
            End If
        Next i
    End With

kkkrin

写诗读 发表于 2016-11-10 16:45
我用elseif解决了
With ActiveSheet.PivotTables("数据透视表2").PivotFields("Sex ")
        S = .Pivo ...

.PivotItems(i).Name = "M" 可以用通配符吗