如何用VBA更改数据透视表的汇总方式？

楼主
biaotiger1

Q：如何用VBA更改数据透视表的汇总方式？
A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口输入代码如下：

Sub 改为求和项()
Dim Pvt As PivotFields
Dim I
Set Pvt = Range("K3").PivotTable.PivotFields
With Pvt.Parent.DataLabelRange
.Replace What:="求和项:", Replacement:=" ", LookAt:=xlPart
.Replace What:="计数项:", Replacement:=" ", LookAt:=xlPart
End With
For I = 1 To Pvt.Count
If Pvt(I).Orientation = 0 Then
Pvt(" " & Pvt(I)).Function = xlSum
End If
Next
End Sub

假设在sheet1工作表中K3单元格已经建立了一个数据透视表。则运行以上代码后，所有数据字段的汇总方式将更改为“求和”。
详见附件。

2楼
biaotiger1

上例中的xlsum或者xlcount均属XlConsolidationFunction 枚举变量，其数值及说明如下表：

名称	值	说明
xlAverage	-4106	平均。
xlCount	-4112	计数。
xlCountNums	-4113	只计数数值。
xlMax	-4136	最大值。
xlMin	-4139	最小值。
xlProduct	-4149	乘。
xlStDev	-4155	基于样本的标准偏差。
xlStDevP	-4156	基于全体数据的标准偏差。
xlSum	-4157	总计。
xlUnknown	1000	未指定任何分类汇总函数。
xlVar	-4164	基于样本的方差。
xlVarP	-4165	基于全体数据的方差。

上一篇：如何用VBA添加自定义样式？
下一篇：如何用VBA显示当前工作簿中表的数据区域的地址？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢

评论列表

sitemap