如何用VBA批量修改数据透视表中的公式？

作者：绿色风分类：时间：2022-08-17 浏览：107

楼主水星钓鱼	Q：如何用VBA批量修改数据透视表中的公式？ A：当在数据透视表中添加了计算项后，如果想要修改数据透视表中的公式，需要一个一个修改，不能批量修改。借助VBA，可以实现批量修改。如下图所示：在数据透视表中添加了计算项“发货合计”，现在需要将“大区”为“发货合计”，”类型“为“回款”的所有月份的公式改为“=0” 在数据透视表所在的工作表模块的代码窗口中输入以下的VBA代码可以实现批量修改公式。 Sub xyf() Dim oPT As PivotTable Dim i As Long Dim sPF As String Set oPT = Me.PivotTables(1) With oPT For i = 1 To .PivotFields("月度").PivotItems.Count sPF = "发货合计回款 '" & .PivotFields("月度").PivotItems(i).Name & "'=0" .PivotFormulas.Add sPF Next i End With End Sub 附件如下： 1.rar
2楼 mn860429	录制个宏后明白了
3楼亡者天下	通过录制宏可以了解代码的内容，是学习的一种方法

免责声明

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

评论列表