关于excel：尝试使用VBA根据单元格D2和E2中的年份和期间值过滤我的数据透视表

Trying to use VBA to filter my Pivot Table based on Year and Period values in cells D2 and E2

我正在尝试使用 VBA 过滤我的数据透视表，因此它将分别根据单元格 D2 和 E2 中的期间和年份进行过滤。我有下面的代码，它按年份过滤，并且在列中没有会计期间的情况下工作，但是当我将会计期间放在列中时，它会在 Field.ClearAllFilters 和 Field.CurrentPage = Year 行进行调试。有人可以帮我解决这个问题吗？

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Worksheets("CY PT").Range("E2")) Is Nothing Then Exit Sub

Dim PT As PivotTable
Dim Field As PivotField
Dim Year As String

Set PT = Worksheets("CY PT").PivotTables("CY PT")
Set Field = PT.PivotFields("Fiscal Year")
Year = Worksheets("CY PT").Range("E2").Value

With PT
Field.ClearAllFilters
Field.CurrentPage = Year
PT.RefreshTable
End With

End Sub