excel VBA批量更改数据透视表数据字段值汇总方式
发布时间：2023-05-10 12:43:24
标签：字段,数据,更改,汇总,Excel函数
如果需要更改Excel数据透视表数值区域中字段的值汇总方式，在字段较多的情况下，手动逐一更改显得有些繁琐。用下面的VBA代码可快速批量更改全部数据字段的值汇总方式。例如要将当前工作表中第一个数据透视表的所有数据字段值汇总方式改为“求和”，方法如下：
按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下列代码：
Sub SumDataFields()
Dim ptField As PivotField
For Each ptField In ActiveSheet.PivotTables(1).DataFields
With ptField
.Function = xlSum
.Caption = "求和项:" & .SourceName
End With
Next
End Sub
关闭VBA编辑器，返回Excel工作表界面，按Alt+F8，打开“宏”对话框，选择“SumDataFields”宏执行即可。
0
投稿猜你喜欢
制作PPT幻灯片多多少少是个跟设计沾边的活儿。提到设计，把各种创意划拉到一块修修改改总少不了。这种时候，“撤销操作”绝对是个好帮手。通常，对- 在Excel中因为输入过多的数据而一时半会找不出自己想要的数据，这时我们可以借助Excel自带的功能帮我们查找数据。下面让小编为你带来200
- excel是一款功能强大的电子表格软件，很多朋友都在使用excel，但是很多朋友不知道mid函数怎么使用，为了让大家更好的使用excel，下
- 有些小伙伴会在使用电脑的时候不小心删除掉原本有管理员权限的账号，导致自己只剩下普通权限的账号，那么遇到这种情况要怎么办呢？下面就和小编一起来
- 如果某些单元格区域中要输入的数据很有规律，如学历(小学、初中、高中、中专、大专、本科、硕士、博士)、职称(技术员、助理工程师、工程师、高级工
- 这篇文章主要介绍了Win7笔记本突然没声音了怎么办？Win7右下角小喇叭不见了怎么？,本文讲解了笔记本突然没声音了解决方法和右下角没有小喇叭
- win10电脑错误代码0xc0000f怎么修复解决？很多用户在win10系统更新后，发现无法进入系统，并且电脑提示错误代码0xc0000f，
- Excel2010的打印预览通常会直接显示在“Backstage”视图中，如果不习惯这种显示方法，而希望像Excel 2007一样全屏显示打
- WinXP系统出现代码0x00000077的原因及解决方法。雨林木风WinXP系统电脑蓝屏，显示错误代码0x00000077，这是什么原因？
- 根据最近的一些新消息，win10 5月的新系统版本2004修复了磁盘占用率过高的问题，解决了一些电脑在使用过程中会卡死的问题，快来看看最新的
- 信很多用户都这么认为更新显卡驱动，那么分辨率就会变得更高，屏幕也能变得更加清晰。其实这么认为倒是没错，可是有些电脑系统更新显卡之后不仅没有提
- Excel中经常需要制作双斜线表头，双斜线具体该如何制作呢?接下来是小编为大家带来的excel2003制作双斜线表头的方法，供大家参考。ex
- Excel工作表中隔行插入空白行的方法1、在工作表的数据区域外的一个列的开始单元格中输入数字“1”和“2”，如图1所示。同时选择这2个单元格
- win7电脑出现问题之后就会需要重装系统而使用U盘安装是个很好的方法，不过很多用户还不会，今天就为他们带来了win7u盘安装系统教程，一起看
- originos系统发布后出现了很多惊艳的特点，不少的小伙伴就很好奇这个系统是不是安卓系统了呢？下面就给你们带来了originos系统是不是
- 我们在更新win10系统的时候，出现了win10更新一直安装失败无法更新的情况，这个情况该如何解决呢？进入小编整理了相关的内容，大家一起来看
- 升级到win10后，我发现无法切换win10输入法，按Shift + Ctrl几乎没有响应。 键盘坏了吗？ 实际上，由于Windows Si
- 大家编辑文档，有时候经常忘了保存，要是突然电脑重启死机或者断电，一下子就头大了，怎么办呢，不要着急，有办法补救，下面小编就为大家详细介绍一下
- WPS是有自动备份存档功能的，当我们误删或者忘记保存的时候备份功能可以减少很多不必要的麻烦。下面就来学习一下如何在WPS中查看备份文件吧。第
- 这篇文章主要介绍了快速清理Windows垃圾和注册表的方法的相关资料,需要的朋友可以参考下如何快速清理Windows垃圾和注册表
