ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[Excel 图表] [第108期]进度频率图[结束]

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-9-1 11:49 | 显示全部楼层
虽然不符合要求,既然做了就发上来~

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-9-16 14:04 | 显示全部楼层
来迟了。控制在6条数据列,还真想不出了,用了8条,可以得出结果,好像时间已经过了,给点财富值也行。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-12-4 12:48 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
近期一直有事耽搁了。
先上传我的答案。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-12-4 13:12 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
说明一下解决思路,我的答案附件。

使用了“簇状柱形图” + “日期坐标轴” 结合的方式,达到了同一系列(即小组)能够实现“遮挡”而又“堆积”进度的效果;
使用 D:I 列作图
D列是坐标轴,设置为日期坐标轴
分别为 E:I 列修改颜色,依次为 绿色、红色、绿、红、绿。

“坐标” 那一列,用于区分不同小组;
“A”那一列,对于不同小组来说,由 进度4 递减至 进度1 ,因为后面的数据点都是遮挡了前面的数据点的。举例来说,如果同时有“进度1”和“进度2”,那么“进度1”就遮挡了“进度2”的属于“进度2”所在位置,实际上两个进度其实是独立的。是日期坐标轴的原因造成的。
“B”这一列,用来 红色 标注。因为 E列 即便是出现重复的进度,也是绿色的。此列用于将重复进度标注为红色。
“C”这一列,用于将“B”列遮挡了未重复的进度重新改为绿色。假设“进度2”重复而“进度1”未重复,那么上一步“进度2”就遮挡了“进度1”,本步骤从新将“进度1”设为绿色。
“D”列和“E”列也是类似思路,分别添加数据点修正颜色。
应该说明白了。
楼上基本都是使用 VBA实现的。如果使用散点图,事先已经逐个通知了,不再考核范围。

TA的精华主题

TA的得分主题

发表于 2014-12-19 16:16 | 显示全部楼层
貌似还没开贴,参合一下应该还能给评分吧~

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

TA的精华主题

TA的得分主题

发表于 2014-12-22 11:07 | 显示全部楼层
——————————————————============————————————
竞赛日期已过,先开帖,争取尽快总结。

TA的精华主题

TA的得分主题

发表于 2014-12-23 16:48 | 显示全部楼层
本帖最后由 jsxjd 于 2014-12-23 21:16 编辑

疑似 wangg913版 分身无术,受 delete_007版 委托,暂且越庖代俎总结如下:

本题参与者有通过 VBA ,也有通过函数实现的,但函数实现要么不符要求,要么未达效果。
VBA基本上通过4系列(堆积)柱形图实现,根据是否重复对不同的柱体进行标色。
学习了 wangg913版 的参考答案,确实见解独到。为了便于大家理解“覆盖”系列的生成,对13楼附件中的4个“覆盖”系列 FGHI 列公式进行了重写。

F列改造后的公式在附件的 M2单元格中:
  1. =IF(AND(D2&E2<>D1&E1,K2>1),E2,"")
复制代码
GHI 列改造为统一的数组公式在 N2 单元格中:
  1. =IF(AND($E2<MAX(IF($D$2:$D$21=$D2,--("0"&M$2:M$21))),IF(MOD(COLUMN(),2),$K2>1,$K2=1)),$E2,"")
复制代码
虽然改造后生成的结果数据与原公式不尽相同,但不影响图表的效果。公式的统一可以简化思路。

评分本着“量化宽松”的原则,初步如下:





如有疑问请与 delete_007 版 或本人沟通。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

点评

感谢总结。  发表于 2018-2-14 12:26
我只能说题目出得逻辑有点怪异...  发表于 2014-12-24 08:38

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-12-23 18:09 | 显示全部楼层
终于开贴了。
不正确?哪里不正确呢?
算了,太长时间,忘了

TA的精华主题

TA的得分主题

发表于 2014-12-23 21:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 jsxjd 于 2014-12-23 21:14 编辑
悠悠的炊烟 发表于 2014-12-23 18:09
终于开贴了。
不正确?哪里不正确呢?
算了,太长时间,忘了

对不起,你的应该是图2,颜色不对

TA的精华主题

TA的得分主题

发表于 2014-12-23 22:31 | 显示全部楼层
本帖最后由 悠悠的炊烟 于 2014-12-23 23:01 编辑
jsxjd 发表于 2014-12-23 21:09
对不起,你的应该是图2,颜色不对


今晚正好有点时间重新验证了一下我的做法是否正确。
验证方法:跟13楼头版的图形比较,两张图表数据源保持一致,用的VBA法,需点按键跑一下程序。做了10遍验证,图形都和头版的图形完全一致。
我用的是10版,难道是版本不同的缘故?劳驾版主用10版打开再看看

当初做这题时仔细研究过其逻辑关系才动手的,对其正确性还是有点信心的
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-21 19:17 , Processed in 0.043809 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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