Excel制作空气指数仪表盘方法

1、Excel制作空气指数仪表盘方法鞍山市师范学院 张福利 2015.12.12仪表盘刻度制作方法参考网络上他人文章，在此表示感谢！仪表盘制作分为五个步骤，分别是规划仪表盘刻度、制作仪表盘、制作指针、让指针动气来、完善仪表盘功能。 下表是空气污染指数范围表（互联网拷贝，数据准确性有待考证），根据下表数据利用EXCEL2010制作一个仪表盘显示空气指数表。空气污染指数API空气质量状况对健康的影响建议采取的措施0-50优可正常活动。51-100良101-150轻微污染易感人群症状有轻度加剧，健康人群出现刺激症状。心脏病和呼吸系统疾病患者应减少体力消耗和户外活动。151-200轻度污染201-250中

2、度污染心脏病和肺病患者症状显著加剧，运动耐受力降低，健康人群中普遍出现症状。老年人和心脏病、肺病患者应当停留在室内，并减少体力活动。251-300中度重污染>300重污染健康人运动耐受力降低，有明显强烈症状，提前出现某些疾病。老年人和病人应当留在室内，避免体力消耗，一般人群应避免户外活动制作步骤：1、 规划仪表盘刻度在Excel输入下表所示数据：刻度：仪表上显示的刻度值表盘：表盘的数据是插入环形图使用的，表盘度数的和是360度，每30度位一个刻度，最后一个刻度单位是90度，0度是占位符，用于标注刻度。2、 制作仪表盘选中B2:B21数据插入圆环图（为了美观删除了图例），调整圆环图的大小达

3、到满意的效果，如作品完成再调整大小会很麻烦！选中圆环图右键“设置数据系列格式”，在“设置数据系列格式”窗口中修改第一扇区起始角度为225，修改后环线图形为90的区域转到正下方；圆环图内径大小可根据需要调整，这里设置为70%。选中圆环图右键“选择数据”选“添加”，在编辑数据系列窗口中系列名称处输入“刻度”，系列值选中数据表中的表盘数据B2:B21。“确定”按钮后进入选择数据源窗口，按“上移”按钮将“刻度”图例项上移。选“编辑”按钮，在轴标签区域输入刻度列数据，注意，数据个数要与表盘个数一致。按“确定”按钮，选内环图形，右键“添加数据标签”再选内环图形，右键“设置数据标签格式”，在“设置数据标签格

4、式”窗口中设置标签选项，在标签包括选项处只选“类别名称”，这样刻度就会显示在仪表盘上。右键选择内环，设置形状填充设为无填充颜色，形状轮廓设为无轮廓，表盘刻度就绘制好了。设置外环的图形颜色，根据空气质量指数范围设置颜色。0-100 绿色101-200黄色201-300 橙色>300 红色选择外环相应的区域设置“形状填充”和“形状轮廓”，外环数据为90的区域设置为“无填充颜色”。以0-50区域为例，鼠标选中该区域（小伙伴们要注意，不是整个图形呦），如下图，然后设置“形状填充”和“形状轮廓”为“绿色”。按上述方法设置其它区域颜色，所有区域颜色设置好后，仪表盘就制作成功了。小伙伴们看到下图有没有

5、成就感？3、 制作指针“插入”à“形状”中选择喜欢的图形来做指针，作者比较喜欢三角形，就选择插入三角形，调整三角形的形状使其像指针，“格式”à“形状样式”设置外观。指针转动是用vba实现。该方法中图形的转动是围绕图形的中心点转动，为了解决这个问题可以在复制一个指针，将两个指针组合成一个图形。美化指针：选择组合图形的下三角型，将其形状填充设为无填充颜色，形状轮廓设为无轮廓。插入一个圆形，调整大小，设置形状样式，放到指针中心位置，并与指针图形组合。将做好的指针移动到仪表盘中心位置上，细致调整到位，否则指针转动后位置会偏移影响效果。选中指针，在页面布局菜单下选“旋转”à

6、“其它旋转选项”。在“设置形状格式”窗口修改“旋转”度数为225。指针制作完成，效果如下：4、 让指针动起来在表格中输入空气指数、质量状况、指针位置三个数值。在表格中输入空气质量表空气指数：手工输入的空气污染指数。指针位置：表盘的刻度是0-450之间，而仪表盘转动的角度是0-270度之间，空气污染指数与仪表盘刻度之间存在比例关系，1个单位的空气污染指数对应270/450单位仪表盘刻度，用公式表示就是1污染指数=0.6仪表盘刻度。E3单元格输入公式“=E2*0.6”。质量状况：根据空气污染指数值得到的空气质量状况用Vlookup函数获得，G2单元输入公式“=VLOOKUP(E2,J2:K8,2)

7、”。开发工具选项下的“Visual Base”进入vba编辑器，如果没有开发工具菜单可参考下面的地址添加：旋转代码用录制宏生成的，选择“录制宏”开始录制宏之后选中仪表盘中指针右键“大小和属性”修改“旋转”角度，角度值可以任意输入（不要大于360度）。停止录制宏，点击“宏”按钮进入宏编辑找到刚才录制的宏进行“编辑”，拷贝宏代码，关闭宏。启动vba编辑器在vba编辑器中“通用”处选“Worksheet”，“声明”处选“SelectionChange”。在上图代码粘贴宏代码，并做如下修改：代码的含义：If Target.Address = "$E$2" Then '判断变

8、化的单元格是不是E2 ActiveSheet.Shapes.Range(Array("Group 8").Select '选择指针Selection.ShapeRange.Rotation = Range("E3") - 135 '旋转指针 '-135是指针起始位置修正参数 Range("E2").Select '选中E2单元格End If指针移到代码编写完成，在E2处输入空气指数指针就会转动到相应刻度位置。5、 完善仪表盘功能（1）防止输入错误，空气污染指数是大于0的整数选择E2单元，设置数据有效性。如下图：（2）空气污染指数爆表处理，当空气污染指数大于450时仪表盘将无法显示，这时将指针指向最大值450。修改指针位置E3单元的公式为“=IF(E2>=450,270,E2*0.6)”（3）在仪表盘上显示空气污染指数和质量状况在仪表盘下面位置插入两个文本框，较小的文本框显示空气污染指数，对应