使用if语句重新调整Pivot数据

Question

目前在单独的标签中有每个月的数据（例如，标签“1月”中的1月数据...）在最后几个标签中预先格式化了数据透视表。 First Tab有一个下拉列表，其中包含所有月份。用户选择一个月，VBA宏使用所选月份选项卡中的数据填充数据透视表。

• 如果从下拉菜单中选择“1月”
• 然后使用“1月”标签数据
格式化数据透视表

如何构建VBA代码的任何帮助将不胜感激。谢谢。

Answer 1

如果每个月份表中的数据都有命名范围，则可以在第一个选项卡上选择月份后使用以下代码：

Sheet("YourPivotTableSheet").PivotTables("PivotTable1").changePivotcache 
ActiveWorkbook.Pivotcaches
  .create(SourceType:=xlDatabase, SourceData:="YourNewNamedRange", Version:=6)