如何编写给数据透视表字段执行某种筛选的代码？

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

楼主
水星钓鱼

Q：如图所示的数据透视表，如果想编写筛选“销售地区”字段为“北京”的VBA代码，该如何操作呢？

A：如果直接录制从“销售地区”字段的筛选列表中选择“北京”的宏，则代码如下：

Sub 宏1()
With ActiveSheet.PivotTables("数据透视表1").PivotFields("销售地区")
.PivotItems("杭州").Visible = False
.PivotItems("南京").Visible = False
.PivotItems("山东").Visible = False
.PivotItems("上海").Visible = False
End With
End Sub

根据这个录制的宏要对某字段执行筛选某个值的操作，需要遍历所有字段项目，比较繁琐。
如果录制对“销售地区”字段执行“标签筛选”的宏，则代码简单易移植。
代码如下：

Sub xyf()
ActiveSheet.PivotTables("数据透视表1").PivotFields("销售地区").PivotFilters.Add Type:=xlCaptionEquals, Value1:="北京"
End Sub

其中PivotFilters对象代表对数据透视表执行的筛选，包括标签筛选、日期筛选、数值筛选等。

2楼
yjzstar

谢谢版主分享，学习了！

3楼
纵鹤擒龙水中月

谢谢！学习一下

免责声明

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

评论列表