Question

以下是我使用的代码。我要修复此图表以及我创建的其他图表的图表编号，以便以后格式化。另外，如果有人可以建议如何缩短代码。

'Declare Variables
Dim PCache7 As PivotCache
Dim PTable7 As PivotTable


'Define Data Range
LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)

'Define Pivot Cache
Set PCache7 = ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=PRange). _
CreatePivotTable(TableDestination:=PSheet.Cells(2, 12), _
TableName:="AnalyticsPivotTable7")

'Insert Blank Pivot Table
Set PTable7 = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(2, 12), TableName:="AnalyticsPivotTable7")

'Insert Row Fields
With ActiveSheet.PivotTables("AnalyticsPivotTable7").PivotFields("Issue Type")
        .Orientation = xlRowField
        .Position = 1
End With


'Insert Data Field
With ActiveSheet.PivotTables("AnalyticsPivotTable7").PivotFields("IncidentID")
        .Orientation = xlDataField
        .Position = 1
        .Function = xlCount
        .NumberFormat = "#,##0"

End With
'Insert Data Field
With ActiveSheet.PivotTables("AnalyticsPivotTable7").PivotFields("IncidentID")
        .Orientation = xlDataField
        .Position = 2
        .Function = xlCount
        .Calculation = xlPercentOfTotal
        .NumberFormat = "#0.0%"


End With
'Format Pivot Table
ActiveSheet.PivotTables("AnalyticsPivotTable7").ShowTableStyleRowStripes = True
ActiveSheet.PivotTables("AnalyticsPivotTable7").TableStyle2 =    "PivotStyleMedium9"
Range("N4:N16").Select
    ActiveSheet.PivotTables("AnalyticsPivotTable7").PivotFields("Issue Type"). _
        AutoSort xlDescending, "Count of IncidentID2", ActiveSheet.PivotTables( _
        "AnalyticsPivotTable7").PivotColumnAxis.PivotLines(2), 1

Excel宏-如何为数据透视图设置固定名称？

0 个答案: