Я хотел бы добавить в макрос возможность использовать самую последнюю дату фильтра PVT. Я знаю, что есть некоторые посты об этом, но никого с моей проблемой.
Я скопировал код из этого поста, потому что у меня была та же проблема, и ответ уже найден. При необходимости, пожалуйста, найдите больше контекста здесь:
Макрос для автоматического выбора самой последней даты в раскрывающемся списке фильтра сводной таблицы
Sub RefreshPivotLatestDate()
' RefreshPivot Macro
Sheets("PVT Y").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable1").PivotFields("Order Date"). _
ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Order Date").CurrentPage _
= ThisWorkbook.Worksheets("PVT Y").Range("B4").Value
End Sub
Однако эта ошибка кода в следующей строке:
ActiveSheet.PivotTables("PivotTable1").PivotFields("Order Date").CurrentPage _
= ThisWorkbook.Worksheets("PVT Y").Range("B4").Value
Я уже могу подтвердить, что:
-Мой лист называется PVT Y
-Мой pvt называется PivotTable1
-Мое поле разворота называется датой заказа и является фильтром в моем PVT. Это не отображается в строке или в столбце.
-В B4 у меня есть формула, извлекающая самую последнюю дату заказа из моего набора данных. Для этого я использую формулу MAX.
Этот код не работает и на самом деле мне очень поможет.
Большое спасибо за человека, который отправил это. И большое спасибо заранее за человека, который мне поможет!
Хорошего дня!