作者ohohhb (粉色系)
看板Visual_Basic
标题[VBA ] 产生枢纽分析表RowField小计问题
时间Fri Dec 23 22:19:01 2011
各位高手你好~
有需要用到VBA产生枢纽分析表
目前练习问题如下
http://ppt.cc/9(jM
有需要用到Department 和 Category的RowField
但是Department不需要产生小计
在excel里的操作已经找出来了
在列标签--> Department --> 栏位设定 --> 小计与筛选--> 从自动改为无就好了
但这段语法不太会写
请知道的高手解答 感谢 ^_____^
以下是我参考的网页和程式码
http://blog.xuite.net/crdotlin/excel/7649722
With PT
' 设定栏位
.PivotFields("DEPARTMENT").Orientation = xlRowField
.PivotFields("Category").Orientation = xlRowField
.PivotFields("MONTH").Orientation = xlColumnField
.PivotFields("DIVISION").Orientation = xlPageField
.PivotFields("BUDGET").Orientation = xlDataField
.PivotFields("ACTUAL").Orientation = xlDataField
' 新增计算栏位Variance, 其值为BUDGET减ACTUAL栏位
.CalculatedFields.Add "Variance", "=BUDGET-ACTUAL"
' 将Variance栏位置於资料范围
.PivotFields("Variance").Orientation = xlDataField
' 在MONTH栏上新增计算资料项目Q1,Q2,Q3,Q4等, 其值分别为各计的月份和
With .PivotFields("MONTH")
With .CalculatedItems
.Add "Q1", "= Jan+ Feb+ Mar"
.Add "Q2", "= Apr+ May+ Jun"
.Add "Q3", "= Jul+ Aug+ Sep"
.Add "Q4", "= Oct+ Nov+ Dec"
End With
' 设定Q1,Q2,Q3,Q4计算项目的位置
.PivotItems("Q1").Position = 4
.PivotItems("Q2").Position = 8
.PivotItems("Q3").Position = 12
.PivotItems("Q4").Position = 16
End With
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.135.221.195
1F：推 qsss:有试过把动作录下来看程式码吗? 12/26 09:53