用于alignment数据透视表的VBA

我正在使用VBA生成数据透视表。

我想中心alignment我的数据透视表中的值，我使用下面的行，在我的代码中，我得到对象所需的错误。

我在网上研究，到处都是一样的，我们使用

DataLabel.Horizo​​ntalAlignment = xlCenter

下面是代码，我正在使用生成我的数据透视表，并试图alignment数据值的单元格中心，有人可能会build议，我哪里出错了，我怎么能纠正它。

Sub sum2017() Dim ws9 As Worksheet Dim pc9 As PivotCache Dim pt9 As PivotTable Dim ct9 As Integer Set ws9 = Sheets("Sum2017") Set pc9 = ActiveWorkbook.PivotCaches.Create(xlDatabase, "'Result'!R1C1:R1048576C6") Set pt9 = pc9.CreatePivotTable(ws9.Range("A3")) pt9.AddDataField pt9.PivotFields("Overdue"), "Sum of Overdue", xlSum pt9.AddDataField pt9.PivotFields("OK"), "Sum of OK", xlSum pt9.AddDataField pt9.PivotFields("Total"), "Sum of Total", xlSum pt9.AddDataField pt9.PivotFields("Overdue %"), "Sum of Overdue %", xlSum pt9.AddDataField pt9.PivotFields("OK %"), "Sum of OK %", xlSum ws.pt9.PivotSelect "Sum of overdue", xlDataOnly DataLabel.HorizontalAlignment = xlCenter End Sub 

Answer 1

下面的代码将您的PivotTable与中心alignment。

 pt9.TableRange2.HorizontalAlignment = xlCenter 

如果只想alignmentPivotTable某个部分，则可以使用下面的代码结合“ Offset和“ Resize命令。

Answer 2

数据透视表字段可以以与常规单元相同的方式居中alignment。

例如，如果您的数据透视表正在填充单元格A3：C5，您将执行如下操作：

 Range("A3:C5").HorizontalAlignment = xlCenter