格式化数据透视表数据

此示例更改/设置给定数据透视表的数据范围区域(DataBodyRange)中的多种格式。可以使用标准 Range 中的所有可格式化参数。格式化数据仅影响数据透视表本身,而不影响数据透视表缓存。

注意:该属性名为 TableStyle2,因为 TableStyle 属性不是 PivotTable 的对象属性的成员。

Dim thisPivot As PivotTable
Dim ptSheet As Worksheet
Dim ptField As PivotField

Set ptSheet = ThisWorkbook.Sheets("SheetNameWithPivotTable")
Set thisPivot = ptSheet.PivotTables(1)

With thisPivot
    .DataBodyRange.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* "-"??_);_(@_)"
    .DataBodyRange.HorizontalAlignment = xlRight
    .ColumnRange.HorizontalAlignment = xlCenter
    .TableStyle2 = "PivotStyleMedium9"
End With