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