vba - 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，因为这会同时选择“月份”单元格和“一月”单元格（例如）。我也不想手动编码它选择“一月”、“二月”等，并希望有一个更有效的解决方案来选择当前选择的任何值。

Answer 1

您想确定选择了什么值？

PtPageField.DataRange.Value

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

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