excel - excel - 根据单元格值过滤数据透视表

Question

我正在尝试创建一个基于单元格值过滤数据透视表的函数。目标单元格位于 Sheet1 的 C2 上。数据透视表在同一张表中。知道为什么这个子不起作用吗？

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("C2:C3")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

标签： excelvba