基于单元格值的VBA透视筛选器

Question

我正在尝试创建sub，它将根据特定的单元格值过滤透视表。透视表被放置在工作表“成本”上，并且表的名称也是“成本”。筛选器应基于的目标单元格位于工作表"Dashboard“、单元格"D9”上。

一旦单元格D9的值改变，工作表成本上的筛选器也会改变。

下面的代码有问题，因为它什么也不做，我不知道问题出在哪里。你能帮帮我吗？下面的代码放在Sheet3(仪表板)上。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim pt As PivotTable
Set pt = Worksheets("Costs").PivotTables("Costs")

If Target.Row = 9 And Target.Column = 4 Then
    pt.PivotFilters("ProjectID").CurrentPage = Worksheets("Dashboard").Range("D9").Value
End If

End Sub

非常感谢大家的建议！

Answer 1

我认为正确的语法是

 pt.PivotFields("ProjectID").CurrentPage = Worksheets("Dashboard").Range("D9").Value

此外，清除之前的所有过滤器也是一个好主意

 pt.PivotFields("ProjectID").ClearAllFilters