如何使用Excel中的VBA将多个数据透视表字段从默认的函数总和更改为函数计数
时间:2023-01-29 01:03:32
本文将讲述如何在Excel中批量更改数据透视表所有的汇总字段的格式。如何使用Excel中的VBA将多个数据透视表字段从默认的函数总和更改为函数计数。
手动更改数据透视表字段的汇总方式
通过VBA更改更改数据透视表字段的汇总方式
假设您已经创建了包含数据的数据透视表。默认情况下,数据透视表是用来对所有的数字字段求和操作,如果你想默认的求和方式改为计数。您可以使用值字段设置选项更改每个列的汇总方式,也可以使用VBA宏一次更改所有值字段。
手动更改数据透视表字段的汇总方式
如果要更改多个数据透视表字段,可以在“值字段设置”中更改该功能,只需执行以下步骤:
步骤1:在数据透视表中选择一个字段,然后右键单击它,然后从下拉菜单列表中选择“值字段设置”。 “值字段设置”对话框将打开。
步骤2:在“值字段汇总方式”框中选择“计数”计算类型,然后单击“确定”按钮。
步骤3:您会看到求和项字段已经更改为所选计算计算类型。
步骤4:您需要重复上述步骤来更改数据透视表的其他字段。
通过VBA更改更改数据透视表字段的汇总方式
您还可以使用Excel中的VBA宏将选定数据透视表中的所有字段转换为计数功能或其他功能。只需执行以下步骤即可运行宏:
步骤1:选择要转换字段的数据透视表
步骤2:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。
步骤3:然后将出现“Visual Basic编辑器”窗口。
步骤4:单击“插入” – >“模块”以创建新模块。
步骤5:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。
Public Sub PivotFieldsToCount() Dim pf As PivotField With Selection.PivotTable .ManualUpdate = True For Each pf In .DataFields With pf .Function = xlCount .NumberFormat = "#,##0" End With Next pf .ManualUpdate = False End With End Sub
Public Sub PivotFieldsToCount()
Dim pf As PivotField
With Selection.PivotTable
.ManualUpdate = True
For Each pf In .DataFields
With pf
.Function = xlCount
.NumberFormat = "#,##0"
End With
Next pf
.ManualUpdate = False
End With
End Sub
Public Sub PivotFieldsToCount() Dim pf As PivotField With Selection.PivotTable .ManualUpdate = True For Each pf In .DataFields With pf .Function = xlCount .NumberFormat = "#,##0" End With Next pf .ManualUpdate = False End With End Sub
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
iCloud 钥匙串是什么?iCloud 钥匙串有什么用?
![](https://img.aspxhome.com/file/2023/7/46247_0s.jpg)
如何解决Word发送错误报告
excel中如何使用martArt制作更精美图表的方法(图文)
![](https://img.aspxhome.com/file/2023/0/43110_0s.jpg)
iOS12.5.2发布,建议所有老苹果用户安装
![](https://img.aspxhome.com/file/2023/2/46042_0s.png)
文档分节--Word 2007书籍排版完全手册8
EXCEL表格在复制粘贴时怎么保持列宽不变?
![](https://img.aspxhome.com/file/2023/0/41670_0s.jpg)
excel最大值函数怎么用?
![](https://img.aspxhome.com/file/2023/2/55222_0s.gif)
如何修改Word“文档”和“模板”等默认自动保存路径
Excel最近位置的历史记录怎样清除?
![](https://img.aspxhome.com/file/2023/8/37478_0s.jpg)
Word一键制作语文考试作文纸,原来是这般简单,现在总算是知道了
![](https://img.aspxhome.com/file/2023/0/16990_0s.png)
怎样在Excel中隐藏计算公式 Excel中隐藏计算公式教程
![](https://img.aspxhome.com/file/2023/4/42444_0s.jpg)
Win7安装Office2010提示需要MSXML 6.10.1129.0组件怎么办?
![](https://img.aspxhome.com/file/2023/5/16035_0s.jpg)
怎么更新Win10创意者?Win10创意者更新方法
![](https://img.aspxhome.com/file/2023/9/51779_0s.png)
iOS 16 “安全检查”功能是什么?有什么作用?
![](https://img.aspxhome.com/file/2023/4/45054_0s.png)
word文档如何让段落空两格
![](https://img.aspxhome.com/file/2023/8/31698_0s.png)
excel中给单元格.行或列填充颜色
![](https://img.aspxhome.com/file/2023/8/38168_0s.jpg)
WPS怎么放大文字
![](https://img.aspxhome.com/file/2023/8/a163908_0s.png)
Word如何制作电子签名 Word制作电子签名的方法
![](https://img.aspxhome.com/file/2023/4/22634_0s.png)
如何在word 2010中添加MathType按钮
![](https://img.aspxhome.com/file/2023/0/35850_0s.png)