作者homelife (SKY)
看板Office
标题[算表] VBA产生枢纽分析表，"值"的位置
时间Mon Feb 25 18:53:47 2019
软体: 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
--
我查到有人说可以移动的方式是在英文版当中使用
.PivotFields("value").Orientation = xlColumnField
我是用中文版的Excel，所以我尝试了用"value"跟"值"，但是目前都没有成功。
请问有什麽其他可行的方式吗?
谢谢!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.169.254.239
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1551092029.A.807.html
※ 编辑: homelife (1.169.254.239), 02/25/2019 19:05:51
1F：→ soyoso: 要加的那行改以 02/25 19:30
2F：→ soyoso: .datapivotfield.orientation= xlcolumnfield 02/25 19:30
您好，照着您的方式成功了! 谢谢!
※ 编辑: homelife (1.169.254.239), 02/25/2019 19:38:37