Excel制作空气指数仪表盘精编版Word文档下载推荐.docx
《Excel制作空气指数仪表盘精编版Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《Excel制作空气指数仪表盘精编版Word文档下载推荐.docx(18页珍藏版)》请在冰豆网上搜索。
可正常活动。
51-100
良
101-150
轻微污染
易感人群症状有轻度加剧,健康人群出现刺激症状。
心脏病和呼吸系统疾病患者应减少体力消耗和户外活动。
151-200
轻度污染
201-250
中度污染
心脏病和肺病患者症状显著加剧,运动耐受力降低,健康人群中普遍出现症状。
老年人和心脏病、肺病患者应当停留在室内,并减少体力活动。
251-300
中度重污染
>
300
重污染
健康人运动耐受力降低,有明显强烈症状,提前出现某些疾病。
老年人和病人应当留在室内,避免体力消耗,一般人群应避免户外活动
制作步骤:
1、规划仪表盘刻度
在Excel输入下表所示数据:
刻度:
仪表上显示的刻度值
表盘:
表盘的数据是插入环形图使用的,表盘度数的和是360度,每30度位一个刻度,最后一个刻度单位是90度,0度是占位符,用于标注刻度。
2、制作仪表盘
选中B2:
B21数据插入圆环图(为了美观删除了图例),调整圆环图的大小达到满意的效果,如作品完成再调整大小会很麻烦!
选中圆环图右键“设置数据系列格式”,在“设置数据系列格式”窗口中修改第一扇区起始角度为225,修改后环线图形为90的区域转到正下方;
圆环图内径大小可根据需要调整,这里设置为70%。
选中圆环图右键“选择数据”
选“添加”,在编辑数据系列窗口中系列名称处输入“刻度”,系列值选中数据表中的表盘数据B2:
B21。
“确定”按钮后进入选择数据源窗口,按“上移”按钮将“刻度”图例项上移。
选“编辑”按钮,在轴标签区域输入刻度列数据,注意,数据个数要与表盘个数一致。
按“确定”按钮,选内环图形,右键“添加数据标签”
再选内环图形,右键“设置数据标签格式”,在“设置数据标签格式”窗口中设置标签选项,在标签包括选项处只选“类别名称”,这样刻度就会显示在仪表盘上。
右键选择内环,设置形状填充设为无填充颜色,形状轮廓设为无轮廓,表盘刻度就绘制好了。
设置外环的图形颜色,根据空气质量指数范围设置颜色。
0-100绿色
101-200黄色
201-300橙色
300红色
选择外环相应的区域设置“形状填充”和“形状轮廓”,外环数据为90的区域设置为“无填充颜色”。
以0-50区域为例,鼠标选中该区域(小伙伴们要注意,不是整个图形呦),如下图,然后设置“形状填充”和“形状轮廓”为“绿色”。
按上述方法设置其它区域颜色,所有区域颜色设置好后,仪表盘就制作成功了。
小伙伴们看到下图有没有成就感?
3、制作指针
“插入”“形状”中选择喜欢的图形来做指针,作者比较喜欢三角形,就选择插入三角形,调整三角形的形状使其像指针,“格式”“形状样式”设置外观。
指针转动是用vba实现。
该方法中图形的转动是围绕图形的中心点转动,为了解决这个问题可以在复制一个指针,将两个指针组合成一个图形。
美化指针:
选择组合图形的下三角型,将其形状填充设为无填充颜色,形状轮廓设为无轮廓。
插入一个圆形,调整大小,设置形状样式,放到指针中心位置,并与指针图形组合。
将做好的指针移动到仪表盘中心位置上,细致调整到位,否则指针转动后位置会偏移影响效果。
选中指针,在页面布局菜单下选“旋转”“其它旋转选项”。
在“设置形状格式”窗口修改“旋转”度数为225。
指针制作完成,效果如下:
4、让指针动起来
在表格中输入空气指数、质量状况、指针位置三个数值。
在表格中输入空气质量表
空气指数:
手工输入的空气污染指数。
指针位置:
表盘的刻度是0-450之间,而仪表盘转动的角度是0-270度之间,空气污染指数与仪表盘刻度之间存在比例关系,1个单位的空气污染指数对应270/450单位仪表盘刻度,用公式表示就是1污染指数=0.6仪表盘刻度。
E3单元格输入公式“=E2*0.6”。
质量状况:
根据空气污染指数值得到的空气质量状况用Vlookup函数获得,G2单元输入公式“=VLOOKUP(E2,J2:
K8,2)”。
开发工具选项下的“VisualBase”进入vba编辑器,如果没有开发工具菜单可参考下面的地址添加:
旋转代码用录制宏生成的,选择“录制宏”
开始录制宏之后选中仪表盘中指针右键“大小和属性”
修改“旋转”角度,角度值可以任意输入(不要大于360度)。
停止录制宏,点击“宏”按钮进入宏编辑
找到刚才录制的宏进行“编辑”,拷贝宏代码,关闭宏。
启动vba编辑器
在vba编辑器中“通用”处选“Worksheet”,“声明”处选“SelectionChange”。
在上图代码粘贴宏代码,并做如下修改:
代码的含义:
IfTarget.Address="
$E$2"
Then'
判断变化的单元格是不是E2
ActiveSheet.Shapes.Range(Array("
Group8"
)).Select'
选择指针
Selection.ShapeRange.Rotation=Range("
E3"
)-135'
旋转指针
'
-135是指针起始位置修正参数
Range("
E2"
).Select'
选中E2单元格
EndIf
指针移到代码编写完成,在E2处输入空气指数指针就会转动到相应刻度位置。
5、完善仪表盘功能
(1)防止输入错误,空气污染指数是大于0的整数
选择E2单元,设置数据有效性。
如下图:
(2)空气污染指数爆表处理,当空气污染指数大于450时仪表盘将无法显示,这时将指针指向最大值450。
修改指针位置E3单元的公式为“=IF(E2>
=450,270,E2*0.6)”
(3)在仪表盘上显示空气污染指数和质量状况
在仪表盘下面位置插入两个文本框,较小的文本框显示空气污染指数,对应值是E2。
大文本框显示空气质量状况,对应值是G2。
设置文本框内文字居中,形状轮廓为无轮廓。
至此仪表盘就制作完成了,整体效果如下:
小伙伴们,仪表盘制作完成了,不知道你们的感觉如何?
我是有些许成就感,为治理雾霾也算是出一份力。
仪表盘可能还有不完美之处,希望小伙伴们完善哟!