作者：绿色风
分类：
时间：2022-08-17
浏览：128
楼主
嘉昆2011 |
声明素材来源：- http://peltiertech.com/images/2012-01/kickstarter-pie-replacement.xlsx
- http://www.get-digital-help.com/2013/01/24/highlight-a-bar-in-a-chart/
图表中数据无实际现实意义。
效果图：
图表意义：
通过对数据的“归一化”处理，使不同数量级别的数据在一张图表中展示；VBA部分在交互选择时高亮显示选取项，抓住注意力。
涉及知识点：
函数：Max，Index
图表图形：条形图+散点图
基础操作：列表（结构化引用），名称定义，条件格式
VBA：Application.Intersect
制作要点：
1，数据“归一化”处理
找出GDP百分比，和人均GDP中的最大值，并设定相应的归一化值的分母：- =MAX(Table2[% GDP])
对GDP百分比，和人均GDP作下列处理，可归一化（在不同级别的数据间留出一列空行）- =C3/C$30
空行：- =1-C33
2，图表图形
a，插入条形图，将空行系列填充颜色设置为空白
b，设置辅助数据，以散点图的方式添加图表的表头和坐标单位说明
3，条件格式
对列表区域使用条件格式- =$B3=$H$52
4，简单VBA实现交互和图表高亮显示所选项- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Not Application.Intersect(Target, Range("Table2")) Is Nothing Then
- [Num] = Target.Row - Range("Table2").Cells(1, 1).Row + 1
- For i = 1 To Range("Table2[Country]").Rows.Count
- If [Num] = i Then
- ChartObjects(1).Chart.SeriesCollection(1).Points(i).Interior.Color = RGB(96, 73, 122)
- ChartObjects(1).Chart.SeriesCollection(3).Points(i).Interior.Color = RGB(226, 107, 10)
- Else
- ChartObjects(1).Chart.SeriesCollection(1).Points(i).Interior.Color = RGB(204, 192, 218)
- ChartObjects(1).Chart.SeriesCollection(3).Points(i).Interior.Color = RGB(252, 213, 180)
- End If
- Next i
- End If
- End Sub
相关图表示例：
1，如何制作交互式产品销售图表
2，动态显示商品评级清单
附件：
 HNBC.rar
祝周末愉快~
|
2楼
滴水穿石 |
 看动态图就感觉很实用！
我要好好学习！
感谢嘉昆分享~~ |
3楼
嘉昆2011 |
谢谢支持
 |
4楼
liuxiuhua |
不错，多谢分享 |
5楼
wh_china2010 |
看起来很复杂，VB还没学习，感觉这是个好帖
|
6楼
芐雨 |
不错 |
7楼
dgxsdr |
思路学习了！ |
8楼
poiuyman5 |
归一化，不错， |
9楼
rongjun |
感谢分享！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一