在切片器选择时钻取透视字段

如何解决在切片器选择时钻取透视字段

我正在尝试在与数据透视表不同的工作表上设置数据透视图。我根据管理层次创建了切片器，一个用于经理，一个用于主管。层次结构是经理>主管>员工。我想要的是当没有过滤器应用于任何一个切片器时，图表钻到“经理姓名”字段，当只过滤经理切片器时钻到“主管姓名”，当主管时钻到“员工姓名”切片器被过滤

Nmae 经理	主管姓名	员工姓名	数据
经理A	主管 1	员工 A1	数据 1
B 经理	主管 2	员工 B2	数据 2

我尝试过的代码：

Private Sub Worksheet_Pivottableupdate(ByVal Target As Pivottable)
' Check to make sure correct table is being worked on
If Target.Name = "DataTable" Then
  If Target.PivotFields("Manager Name").AllItemsVisible Then
     Target.PivotFields("Manager Name").DrillTo _
     "Manager Name"
  Else
    If Target.PivotFields("Supervisor Name").AllItemsVisible Then
       Target.PivotFields("Manager Name").DrillTo _
       "Supervisor Name"
    Else
       Target.PivotFields("Manager Name").DrillTo _
       "Employee Name"
    End If
  End If
End If
End Sub

使用此代码并放置在带有数据透视表的工作表上时，我收到运行时错误“1004”：无法获取数据透视表类的 PivotFields 属性。