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")