Параметры динамического .PivotFields

Question

Я работаю над макросом, чтобы автоматически расширять определенное поле в сводной таблице. У меня есть макрос, чтобы работать, как я этого хочу.

Есть ли способ сделать для него определенную часть переменной, так что, поскольку изменения месяца, которые необходимо развернуть, я могу быстро обновить или создать пользовательскую форму для ее обновления?

Вот код, как он стоит:

For Each pt In ws1.PivotTables 
pt.PivotFields(_ 
    "[Date].[ByCalendar].[Calendar Month]").PivotItems(_ 
    "[Date].[ByCalendar].[Calendar Month].&[2015]&[4]").DrilledDown = True 
Next pt 

той части Я хочу, чтобы установить в качестве переменной .&[2015]&[4] мне нужно, чтобы быть в состоянии изменить его быстро, чтобы сказать .&[2015]&[5] и т.д., не нужно всегда идти в кода и вручную изменить эту часть. У меня около 20 таблиц, которые обновляются.

Answer 1

Если вы хотите, чтобы он обновлялся на каждый новый месяц. Вы хотите изменить

"[Date].[ByCalendar].[Calendar Month].&[2015]&[4]" 

в

"[Date].[ByCalendar].[Calendar Month].&[" & year(now) & "]&[" & month(now) & "]" 

становится "сейчас" от системных часов. Поэтому, если вы хотите протестировать его, измените дату на системных часах, а затем обновите ее.