数据透视表VBAmacros与更改的标题
我一直在努力创build一个数据透视表的macros。 我有它的工作原理，但随着源数据的变化，我需要能够让macros继续工作。 列标题根据当前月份进行更改。 列A到列H总是相同的，所以这些都不是问题，但是列I到O代表当前月份，然后是6个月。 我需要macros使用列O作为数据字段，然后适当地标题。 例如，我现在的macros显示May, 2012到May, 2012 November, 2012 ，并将它们重命名为May和Nov （我使用旧数据来制作这个macros）。 有没有办法让macros创build数据字段与任何标题在列I到O？
Sub CreatePivotTable() ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "CP Monthly Data!R1C1:R451C15", Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="", TableName:="PivotTable1", DefaultVersion _ :=xlPivotTableVersion14 ActiveSheet.PivotTables("PivotTable1").Name = "Resource Requests" With ActiveSheet.PivotTables("Resource Requests") .InGridDropZones = True .AllowMultipleFilters = True .RowAxisLayout xlTabularRow End With With ActiveSheet.PivotTables("Resource Requests").PivotFields("Workgroup Name") .PivotItems("ATG").Visible = False .PivotItems("India - ATG").Visible = False .PivotItems("India - Managed Middleware").Visible = False End With With ActiveSheet.PivotTables("Resource Requests").PivotFields("Workgroup Name") .Orientation = xlPageField .Position = 1 End With With ActiveSheet.PivotTables("Resource Requests").PivotFields("Company name") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("Resource Requests").PivotFields( _ "Probability Status") .PivotItems("X - Lost - 0%").Visible = False .PivotItems("X - On Hold - 0%").Visible = False End With With ActiveSheet.PivotTables("Resource Requests").PivotFields( _ "Probability Status") .Orientation = xlRowField .Position = 2 End With With ActiveSheet.PivotTables("Resource Requests").PivotFields("Project") .Orientation = xlRowField .Position = 3 End With With ActiveSheet.PivotTables("Resource Requests").PivotFields("Project manager" _ ) .Orientation = xlRowField .Position = 4 End With ActiveSheet.PivotTables("Resource Requests").PivotFields("Resource name"). _ PivotFilters.Add Type:=xlCaptionBeginsWith, Value1:="*TBD" With ActiveSheet.PivotTables("Resource Requests").PivotFields("Resource name") .Orientation = xlRowField .Position = 5 End With ActiveSheet.PivotTables("Resource Requests").TableStyle2 = "PivotStyleMedium4" ActiveSheet.PivotTables("Resource Requests").AddDataField ActiveSheet. _ PivotTables("Resource Requests").PivotFields("May, 2012"), "May" _ , xlSum ActiveSheet.PivotTables("Resource Requests").AddDataField ActiveSheet. _ PivotTables("Resource Requests").PivotFields("June, 2012"), _ "June", xlSum ActiveSheet.PivotTables("Resource Requests").AddDataField ActiveSheet. _ PivotTables("Resource Requests").PivotFields("July, 2012"), _ "July", xlSum ActiveSheet.PivotTables("Resource Requests").AddDataField ActiveSheet. _ PivotTables("Resource Requests").PivotFields("August, 2012"), _ "August", xlSum ActiveSheet.PivotTables("Resource Requests").AddDataField ActiveSheet. _ PivotTables("Resource Requests").PivotFields("September, 2012"), _ "September", xlSum ActiveSheet.PivotTables("Resource Requests").AddDataField ActiveSheet. _ PivotTables("Resource Requests").PivotFields("October, 2012"), _ "October", xlSum ActiveSheet.PivotTables("Resource Requests").AddDataField ActiveSheet. _ PivotTables("Resource Requests").PivotFields("November, 2012"), _ "November", xlSum Range("B6").Select ActiveSheet.PivotTables("Resource Requests").PivotFields("Probability Status"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) Range("C7").Select ActiveSheet.PivotTables("Resource Requests").PivotFields("Project").Subtotals _ = Array(False, False, False, False, False, False, False, False, False, False, False, False _ ) Range("D7").Select ActiveSheet.PivotTables("Resource Requests").PivotFields("Project manager"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) Range("A18").Select ActiveSheet.PivotTables("Resource Requests").PivotFields("Company name"). _ Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _ False, False) ActiveSheet.PivotTables("Resource Requests").PivotFields("Probability Status"). _ AutoSort xlDescending, "Probability Status" ActiveSheet.PivotTables("Resource Requests").PivotFields("Resource name"). _ AutoSort xlAscending, "Resource name" End Sub
这将从目前的date运行到6个月后：
Dim DVal As Date Dim DLoop As Integer DVal = Now() ' or whatever date you want to start at For DLoop = 0 To 6 '0=now, to 6 months after ActiveSheet.PivotTables("Resource Requests").AddDataField ActiveSheet.PivotTables("Resource Requests").PivotFields (Format(DateAdd("m", DLoop, DVal), "mmm, yyyy")), _ Format(DateAdd("m", DLoop, DVal), "mmm"), _ xlSum Next DLoop