请选择 进入手机版 | 继续访问电脑版
楼主: taopangpang
890 0

[问答] 求助 VBA新增数据透视表筛选出错 [推广有奖]

  • 0关注
  • 0粉丝

学前班

70%

还不是VIP/贵宾

-

威望
0
论坛币
10 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
33 点
帖子
2
精华
0
在线时间
2 小时
注册时间
2019-7-10
最后登录
2019-7-11

taopangpang 发表于 2019-7-10 11:22:58 |显示全部楼层 |坛友微信交流群
相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
在表单中有一个数据透视表2,现在想通过VBA来实现对数据透视表2第一个字段的值进行匹配筛选。但是每次使用ADD函数时,总会报错

Private Sub Worksheet_Activate()

Dim pvt As PivotTable

Set pvt = ActiveSheet.PivotTables("数据透视表2")
    pvt.AllowMultipleFilters = True

    With pvt.PivotFields(1)
        .ClearAllFilters
        .PivotFilters.Add Type:=xlValueEquals, DataField:=ActiveSheet.PivotTables("数据透视表2").PivotFields(1), Value1:="张三"

    End With

End Sub


微信截图_20190710111914.png


二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:数据透视表 透视表 筛选出 VBA worksheet

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-29 18:10