[算表] VBA產生樞紐分析表,"值"的位置

作者: homelife (SKY)   2019-02-25 18:53:47
軟體: Office 365 Excel
正在嘗試使用VBA進行樞紐分析,有成功的產生樞紐分析表,
但是有一個自動產生的項目:"值" 現在是在"列"的項目下面,我希望把它移動到
"欄"的項目下面,但是目前嘗試了一些語法都沒有成功。
樞紐分析中的畫面截圖:https://imgur.com/YcIZYe0
附上目前使用的語法:
Dim PTCache As PivotCache
Dim PT As PivotTable
Set PTCache = ThisWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:=ActiveSheet.Range(Cells(1, 1), Cells(workingRow,
workingColumn)))
Set PT = PTCache.CreatePivotTable _
(TableDestination:="", _
TableName:="PivotTable2")
With PT
.PivotFields("AAA").Orientation = xlDataField
.PivotFields("BBB").Orientation = xlDataField
.PivotFields("CCC").Orientation = xlRowField
.PivotFields("DDD").Orientation = xlRowField
'網路上查到可能可以用下面這行來移動"值",但如果加了下面這行就會錯誤
'.PivotFields("值").Orientation = xlColumnField
End With
作者: soyoso (我是耀宗)   2019-02-25 19:30:00
要加的那行改以.datapivotfield.orientation= xlcolumnfield

Links booklink

Contact Us: admin [ a t ] ucptt.com