Excel除制作静态图表,亦可以结合函数、VBA制作具备交互效果的动态图表。如下为结合自定义函数、自定义条件格式制作的【鼠标滑过效果动态图表】
绘制步骤:
Step1:准备数据源。
Step2:按“Alt+F11”,进入VBE编辑环境,右键新插入一个模块,输入以下简短代码即可自定义一个函数。
public Function record_id(i As String)
【city】= i
End Function
Step3:自定义函数IFERROR()结合HYPERLINK()函数及自定义格式,模拟鼠标滑过效果。
1.定义名称:首先选中A15单元格,在名称框中输入“city”
2.制作“条形图”纵坐标:Q7单元格输入公式“=IFERROR(HYPERLINK(record_id(C15),C15),C15)”,然后向下填充至Z15单元格;
通过此步操作,当我们把鼠标指到标签时会出现
图标,并且15行单元格出现鼠标所在单元格的值,说明此时已经实现了鼠标滑过的链接文字效果,只是缺交互效果。
3.自定义条件格式,实现鼠标滑过交互效果:选中T15:Z15区域,然后按如下操作设置条件格式;
使用公式确定要设置格式的单元格,为符合此公式的值设置格式:=$T$15=$Z15。
Step4:利用Index()函数制作折线图:在A15“=INDEX(C16:I16,MATCH(city,$C$15:$I$15,0))”,并往下填充值A19单元格,字体选择【微软雅黑】,数据选择【Aril】,字体颜色可以自行设置。
制作折线图: 选中折线图数据源,插入【带数据标记的折线图】,再进一步美化图表,美化后效果如下。
关于图表美化,本期就不再赘述,以后会专门写一遍文章介绍。
至此完成了本期动态图表的制作,如果step1数据源的数据是用随机函数生成的,那么当把鼠标移到标签时,可以欣赏到如上图的魔性动态效果:
关注zhihu@tony,享更多精彩。
最新评论