我正在尝试添加一个数据透视过滤器字段，但我不知道我的代码有什么问题

Question

我正在尝试在我的数据透视表上选择一个过滤器，但我不知道为什么它不能正确读取我的代码。

它说“无法获取 PivotField 类的 PivotItems 属性”

Sub Filter_MasterCode()

    Dim pt As PivotTable
    Dim pf As PivotField
    Dim sField As String

    Set pt = ActiveSheet.PivotTables("PivotTable3")
    sField = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

    For Each pf In pt.PageFields
        If pf.Name <> "Values" Then
            pf.Orientation = xlHidden
        End If
    Next pf

    For Each pf In pt.DataFields
        If pf.Name <> "Values" Then
            pf.Orientation = xlHidden
        End If
    Next pf

    pt.PivotFields(sField).Orientation = xlPageField

    With ActiveSheet.PivotTables("PivotTable3").PivotFields(sField)
      .PivotItems("0").Visible = False
      .PivotItems("1").Visible = True
    End With

    Select Case sField
        Case Is = "Apple"
          With ActiveSheet.PivotTables("PivotTable3").PivotFields("2017")
              .Orientation = xlDataField
          End With
    End Select

.PivotItems("0").Visible = False 处显示错误

谢谢

Answer 1

在我看来，您正在尝试获取集合中的第一个 PivotItem。

PivotItem 对象的索引从 1 开始。您正在尝试访问 0 索引。改变它，看看它是否有效。

With ActiveSheet.PivotTables("PivotTable3").PivotFields(sField)
  .PivotItems(1).Visible = False
  .PivotItems(2).Visible = True
End With