ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2107|回复: 15

[求助] 请教大佬:动态柱形图能否实现通过控件隐藏或者显示某个系列?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-8-18 11:39 | 显示全部楼层 |阅读模式
各位好
目的:我想做产品与上年同期的对比柱状图,但是想加入一行上年全年数。一般情况下想不显示,通过控件来决定是否显示。
请问:我该如何设置图表,可以实现我在选择隐藏上年全年数这一选项时,可以完全隐藏上年全年数?
目前显示的状态:
image.png
我目前达到的隐藏的状态:
image.png
可以看到图例仍然在,柱形图上仍然有留给上年全年数的位置。
我想达到的状态:
image.png
我想做到在隐藏上年全年数时,整个系列完全消失,包括上年全年数和柱形图上该系列的位置。
请问各位大佬,通过何种操作可以达到?

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-18 15:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
大佬们没有好办法吗

TA的精华主题

TA的得分主题

发表于 2020-8-18 18:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 Datous 于 2020-8-19 08:34 编辑

目前别的办法没想到,使用代码配合activeX控件隐藏系列

代码参考

ChartObjects(1),是图表
SeriesCollection(3),是要隐藏的数据系列
CheckBox1,是ActiveX复选框控件
主要注意 FullSeriesCollection 和 SeriesCollection 的区别使用

  1. Private Sub CheckBox1_Click()
  2. With Me.ChartObjects(1).Chart
  3.     If Me.CheckBox1.Value Then
  4.         .SeriesCollection(3).IsFiltered = True
  5.     Else
  6.         .FullSeriesCollection(3).IsFiltered = False
  7.     End If
  8. End With
  9. End Sub
复制代码



20200818-代码隐藏数据系列.7z

21.53 KB, 下载次数: 13

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-19 08:27 | 显示全部楼层
Datous 发表于 2020-8-18 18:11
目前别的办法没想到,使用代码配合activeX控件隐藏系列

代码参考

大佬优秀啊,我去操作看看。谢谢谢谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-19 08:36 | 显示全部楼层
Datous 发表于 2020-8-18 18:11
目前别的办法没想到,使用代码配合activeX控件隐藏系列

代码参考

大佬太秀,完全可行

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-19 10:11 | 显示全部楼层
Datous 发表于 2020-8-18 18:11
目前别的办法没想到,使用代码配合activeX控件隐藏系列

代码参考

哥,请教一下:数据透视表能否通过activeX控件进行字段的筛选?某些表通过数据透视图做成,用您上次指教的代码不能实现显示或隐藏的操作。请不吝赐教,谢谢

TA的精华主题

TA的得分主题

发表于 2020-8-19 10:31 | 显示全部楼层
yf1993313 发表于 2020-8-19 10:11
哥,请教一下:数据透视表能否通过activeX控件进行字段的筛选?某些表通过数据透视图做成,用您上次指教 ...

上附件。。。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-19 11:14 | 显示全部楼层
本帖最后由 yf1993313 于 2020-8-19 11:16 编辑
Datous 发表于 2020-8-19 10:31
上附件。。。。。

哥,附件已上传,请您指教

问题.zip

14.79 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-19 11:15 | 显示全部楼层
问题如下:

问题.zip

14.79 KB, 下载次数: 8

TA的精华主题

TA的得分主题

发表于 2020-8-19 14:12 | 显示全部楼层

大致这个意思,ActiveX CheckBox1

  1. Private Sub CheckBox1_Click()
  2.     PivotTables(1).PivotFields(1).PivotItems(3).Visible = Not CheckBox1.Value
  3. End Sub
复制代码

评分

1

查看全部评分

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

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 03:08 , Processed in 0.044613 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表