我在根据活动单元格过滤数据透视表时有什么错误

Question

我的目标是根据项目仪表板工作表上选择的活动单元格筛选数据透视表3。NewCat 的范围设置为"U10"，但我希望选择的任何活动单元格都作为过滤器的驱动程序。

NewCat = 工作表("项目破折号"(。范围("U10"(。价值

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("U8:U37")) Is Nothing Then Exit Sub
Dim pt As PivotTable
Dim Field As PivotField
Dim NewCat As String
Set pt = Worksheets("mPIVOTS").PivotTables("PivotTable3")
Set Field = pt.PivotFields("Project")
NewCat = Worksheets("Project Dash").Range("U10").Value
With pt
Field.ClearAllFilters
Field.CurrentPage = NewCat
pt.RefreshTable
End With
End Sub

Answer 1

我不确定我是否正确理解它，但是如何更改此行：

NewCat = Worksheets("Project Dash").Range("U10").Value

对此：

NewCat = Target.Value