0

Как написать скрипт для обновление даты(берутся из ячеек 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чч:мм:сс")

4
  • & ТЕКСТ(A1;"ГГГГ-ММ-ДДTчч:мм:сс") или & ТЕКСТ(СЕГОДНЯ()-2;"ГГГГ-ММ-ДДTчч:мм:сс"). Ну или в VBA-коде аналогично применить функцию FORMAT().
    – Akina
    16 апр 2018 в 12:48
  • @Akina ту же ошибку выдает (1004) 16 апр 2018 в 13:20
  • ту же ошибку выдает В исходном сообщении про ошибку ничего не было, так что слова "ту же" видеть странно. Вероятно, как-то не так делаете... замените, например, "[Date Reporting].[Calendar YMD].[DT].&[2018-04-02T00:00:00]" на "[Date Reporting].[Calendar YMD].[DT].&[" & Format(ThisWorkbook.Sheets(Статистика).Range("A1").Value;"ГГГГ-ММ-ДДTчч:мм:сс") & "]", есссно заменив A1 на нужный адрес ячейки.
    – Akina
    16 апр 2018 в 13:38
  • @Akina сейчас ругается на ";" что после Value. А проблема может в том что я все это делаю в коде макроса(редактирование макроса)? 16 апр 2018 в 14:03

1 ответ 1

0

нашел "[Date Reporting].[Calendar YMD].[DT].&[" & ThisWorkbook.Sheets("Статистика").Cells(2, 8.Value & "]", _ помогло

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.