Как написать скрипт для обновление даты(берутся из ячеек H2
I2
J2
) в сводной таблице в excel 2016
С помощью записи макроса получил это
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
"[Date Reporting].[Calendar YMD].[Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
"[Date Reporting].[Calendar YMD].[Month Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("СводнаяТаблица13").PivotFields( _
"[Date Reporting].[Calendar YMD].[DT]").VisibleItemsList = Array("", "", _
"[Date Reporting].[Calendar YMD].[DT].&[ThisWorkbook.Sheets(Статистика).Cells(2, 8).Value]", _
"[Date Reporting].[Calendar YMD].[DT].&[2018-04-02T00:00:00]", _
"[Date Reporting].[Calendar YMD].[DT].&[2018-04-09T00:00:00]")
Данные в ячейки формируются формулой ТЕКСТ(СЕГОДНЯ()-2;"ГГГГ-ММ-ДДTчч:мм:сс")
& ТЕКСТ(A1;"ГГГГ-ММ-ДДTчч:мм:сс")
или& ТЕКСТ(СЕГОДНЯ()-2;"ГГГГ-ММ-ДДTчч:мм:сс")
. Ну или в VBA-коде аналогично применить функциюFORMAT()
."[Date Reporting].[Calendar YMD].[DT].&[2018-04-02T00:00:00]"
на"[Date Reporting].[Calendar YMD].[DT].&[" & Format(ThisWorkbook.Sheets(Статистика).Range("A1").Value;"ГГГГ-ММ-ДДTчч:мм:сс") & "]"
, есссно заменив A1 на нужный адрес ячейки.