格式化資料透視表資料

此示例更改/設定給定資料透視表的資料範圍區域（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