VBA Pivot Field

Question

我正在尝试使用嵌套的if语句编辑数据透视表。

基本上，如果单元格（3,2）是“匹配客户”，我希望从枢轴项中删除“TBC”。如果单元格（3,2）是“不匹配”，我想选择“TBC”。如果两者都不是，我想要列出所有项目。

这是我的代码

Private Sub CommandButton1_Click()

    Dim xlsht As Worksheet
    Dim PF3 As PivotField
    Dim xlshtDash As Worksheet
    Dim PT As PivotTable

    For Each PT In xlshtDash.PivotTables
        Set PF3 = PT.PivotFields("SF Customer - Matched Customer")


        If xlsht.Cells(3, 2).Value = "Matched Customer" Then
            PF3.PivotItems("TBC").Visible = False
        Else
            If xlsht.Cells(3, 2).Value = "Unmatched" Then
                PF3.CurrentPage = "TBC"
            Else
                PF3.CurrentPage = "(All)"
            End If
        End If

    Next PT

当代码到达嵌套的If。

时，我收到错误

非常感谢任何帮助！

非常感谢！