动态.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) & "]"

它从系统时钟“现在”。因此，如果您想测试它，请更改系统时钟上的日期，然后进行更新。