Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос для обновления сводной. Ссылка на ячейку с датой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для обновления сводной. Ссылка на ячейку с датой (Макросы/Sub)
Макрос для обновления сводной. Ссылка на ячейку с датой
ex Дата: Воскресенье, 31.07.2022, 23:31 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день!

Есть отчет с большим кол-во сводных таблиц, который я регулярно перестраиваю. Соответственно, мне надо зайти в фильтр каждой сводной и поменять дату на новую. Решил попробовать делать это макросом. Записал его через функцию "Запись макроса" (пример для одной сводной ниже, в данном случае я меняю дату на 31.07.22). Мне бы хотелось, чтобы новую дату макрос брал из ячейки А1 на листе "Даты", этот лист находится в той же книге. Т.е. мне не надо будет вносить изменения в макрос, а просто потребуется поменять дату в ячейке A1. Подскажите, пожалуйста, как это прописать в макросе. Заранее спасибо!
Файл не прикладываю, поскольку сводная из отчета все равно не будет работать без подключения.

[vba]
Код
Sub Макрос5()
'
' Макрос5 Макрос
'

'
ActiveSheet.PivotTables("Сводная таблица4").PivotFields( _
"[DimDate].[Year-Month-Date].[Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("Сводная таблица4").PivotFields( _
"[DimDate].[Year-Month-Date].[Month]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("Сводная таблица4").PivotFields( _
"[DimDate].[Year-Month-Date].[Date]").VisibleItemsList = Array( _
"[DimDate].[Year-Month-Date].[Date].&[2022-07-31T00:00:00]")
End Sub
[/vba]
 
Ответить
СообщениеДобрый день!

Есть отчет с большим кол-во сводных таблиц, который я регулярно перестраиваю. Соответственно, мне надо зайти в фильтр каждой сводной и поменять дату на новую. Решил попробовать делать это макросом. Записал его через функцию "Запись макроса" (пример для одной сводной ниже, в данном случае я меняю дату на 31.07.22). Мне бы хотелось, чтобы новую дату макрос брал из ячейки А1 на листе "Даты", этот лист находится в той же книге. Т.е. мне не надо будет вносить изменения в макрос, а просто потребуется поменять дату в ячейке A1. Подскажите, пожалуйста, как это прописать в макросе. Заранее спасибо!
Файл не прикладываю, поскольку сводная из отчета все равно не будет работать без подключения.

[vba]
Код
Sub Макрос5()
'
' Макрос5 Макрос
'

'
ActiveSheet.PivotTables("Сводная таблица4").PivotFields( _
"[DimDate].[Year-Month-Date].[Year]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("Сводная таблица4").PivotFields( _
"[DimDate].[Year-Month-Date].[Month]").VisibleItemsList = Array("")
ActiveSheet.PivotTables("Сводная таблица4").PivotFields( _
"[DimDate].[Year-Month-Date].[Date]").VisibleItemsList = Array( _
"[DimDate].[Year-Month-Date].[Date].&[2022-07-31T00:00:00]")
End Sub
[/vba]

Автор - ex
Дата добавления - 31.07.2022 в 23:31
Pelena Дата: Понедельник, 01.08.2022, 07:24 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 18483
Репутация: 4182 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
Попробуйте эту часть[vba]
Код
"[DimDate].[Year-Month-Date].[Date].&[2022-07-31T00:00:00]"
[/vba]записать
[vba]
Код
"[DimDate].[Year-Month-Date].[Date].&[" & Sheets("Даты").Range("A1") & "T00:00:00]"
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Попробуйте эту часть[vba]
Код
"[DimDate].[Year-Month-Date].[Date].&[2022-07-31T00:00:00]"
[/vba]записать
[vba]
Код
"[DimDate].[Year-Month-Date].[Date].&[" & Sheets("Даты").Range("A1") & "T00:00:00]"
[/vba]

Автор - Pelena
Дата добавления - 01.08.2022 в 07:24
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для обновления сводной. Ссылка на ячейку с датой (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!