VBA引用動態透視項

Question

這應該是一個簡單的問題 - 我如何選擇透視篩選器的值，而不管它是在實際的單元格？換句話說，我有一個數據透視表，帶有一個標記爲「月」的報表過濾器，其值從一月到十二月。我可以使用哪些代碼來選擇當前月份？我在哪裏可以從這個去：

Dim Pt As PivotTable 
Dim PtPageField As PivotField 
Dim PtItem As PivotItem 

Set Pt = Sheets("Pivot").PivotTables(1) 
Set PtPageField = Pt.PageFields("Month") 

我不能用簡單的Pt.PageRange.Select因爲這將選擇「月」細胞和「一月」細胞（例如）兩種。我也不想手動編碼，選擇'1月'，'2月'等，並希望有一個更有效的解決方案，它可以選擇當前選擇的任何值。

Answer 1

您想確定選擇了哪個值？

PtPageField.DataRange.Value 

您想將值設置爲當前月嗎？

ptPage.DataRange.Value = Format(Now, "mmmm")