VBA引用动态数据透视图

Question

这应该是一个简单的问题 - 如何选择枢轴滤波器的值，而不管其所在的实际单元格？换句话说，我有一个带有标记为“月”的报表过滤器的数据透视表，其值从1月到12月。我可以用什么代码来选择当月？我从哪里开始：

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，因为这会选择'Month'单元格和'January'单元格（例如）。我也不想手动编写它选择“1月”，“2月”等的代码，并且想要一个更有效的解决方案，它选择当前选择的任何值。

Answer 1

您想确定选择了哪个值？

PtPageField.DataRange.Value

您想将值设置为当前月份吗？

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