基於單元格值的VBA數據透視過濾器

Question

我正在嘗試創建可根據特定單元格值過濾數據透視表的子項。 數據透視表放置在工作表“成本”上，表的名稱也為“成本”。 篩選器應基於的目標單元格在工作表“儀表板”的單元格“ D9”上。

一旦單元格D9的值發生變化，工作表成本上的過濾器也會發生變化。

下面的代碼有問題，因為它什么都不做，我也不知道，問題可能出在哪里。 請問你能幫幫我嗎？ 下面的代碼位於Sheet3（Dashboard）上。

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