Excel制作空气指数仪表盘

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

2、01-250中度污染心脏病和肺病患者症状显著加剧，运动耐受力降低，健康人群中普遍出现症状。老年人和心脏病、肺病患者应当停留在室，并减少体力活动。251-300中度重污染精彩文档实用标准文案>300重污染健康人运动耐受力降低，有明显强烈症状，提前出现某些疾病。老年人和病人应当留在室，避免体力消耗，一般人群应避免户外活动制作步骤:1、 规划仪表盘刻度在Excel输入下表所示数据:A3c1刻度表盘200330450053061000730815009301020001130122500133014300015301635001730184000193020450021吗122刻度：仪表上显示的

3、刻度值表盘：表盘的数据是插入环形图使用的，表盘度数的和是360度，每30度位一个刻度，最后一个刻度单位是 90度，0度是占位符，用于标注刻度。2、 制作仪表盘精彩文档实用标准文案选中B2:B21数据插入圆环图（为了美观删除了图例），调整圆环图的大小达改第一扇区起始角度为225,修改后环线图形为90的区域转到正下方；圆环图径大小可根据需要调整，这里设置为 70%精彩文档实用标准文案选中圆环图右键“选择数据”选“添加”，在编辑数据系列窗口中系列名称处输入“刻度”，系列值选中数精彩文档实用标准文案据表中的表盘数据 B2:B21“确定”按钮后进入选择数据源窗口，按“上移”按钮将“刻度”图例项上移。选“

4、编辑”按钮，在轴标签区域输入刻度列数据，注意，数据个数要与表盘个数一致精彩文档实用标准文案A2T1刻度24D表盘1(-0G6150093。L0200011301225001330- 430001530L6350017304000L930ZO450U21匕吗-,三士9Q227按“确定”按钮，选环图形，右键”添加数据标签”再选环图形，右键”设置数据标签格式”，在“设置数据标签格式”窗口中 设置标签选项，在标签包括选项处只选“类别名称”，这样刻度就会显示在仪表 盘上。精彩文档实用标准文案右键选择环，设置形状填充设为无填充颜色， 形状轮廓设为无轮廓，表盘刻度就绘制好了设置外环的图形颜色，根据空气质量指

5、数围设置颜色0-100绿色101-200 黄色精彩文档实用标准文案201-300 橙色>300红色选择外环相应的区域设置“形状填充”和“形状轮廓”，外环数据为90的区域设置为“无填充颜色”。以0-50区域为例，鼠标选中该区域（小伙伴们要注意，不是整个图形呦）精彩文档实用标准文案3、 制作指针“插入”“形状”中选择喜欢的图形来做指针，作者比较喜欢三角形，就选择插入三角形，调整三角形的形状使其像指针，“格式” “形状样式”设置外观。指针转动是用vba实现。该方法中图形的转动是围绕图形的中心点转动, 为了解决这个问题可以在复制一个指针，将两个指针组合成一个图形。精彩文档实用标准文案美化指针：选

6、择组合图形的下三角型，将其形状填充设为无填充颜色,形状轮廓设为无轮廓。精彩文档实用标准文案形状样式匕Z插入一个圆形，调整大小，设置形状样式，放到指针中心位置，并与指针图形组合精彩文档实用标准文案将做好的指针移动到仪表盘中心位置上， 细致调整到位，否则指针转动后位置会偏移影响效果精彩文档实用标准文案在“设置形状格式”窗口修改“旋转”度数为 225精彩文档实用标准文案指针制作完成，效果如下:4、让指针动起来在表格中输入空气指数、质量状况、指针位置三个数值。精彩文档实用标准文案C D E F G H空气指麴1E0质量状况轻度污染指针位置90在表格中输入空气质量表染染染污污污污重染 微度度度污 优良轻

7、轻中申重 o o o o o o O 5 0 5 0 5 0 1 1 2 2 3空气指数：手工输入的空气污染指数。指针位置：表盘的刻度是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、的地址添加：jingyan.baidu./article/046a7b3ed4e832f9c37fa96f.html旋转代码用录制宏生成的，选择“录制宏”精彩文档实用标准文案01 1开发工具忖载顶COM t谭项文件款揖 亩闫Visual Ba5ic 击曾属性插入期甜帛甜代眄3执行无语相代码剧片图表7r：rr-TT精彩文档实用标准文案停止录制宏，点击“宏”按钮进入宏编辑找到刚才录制的宏进行“编辑”，拷贝宏代码，关闭宏精彩文档实用标准文案工1Mq. 3UF§心宏40'去4宏 .AetiviSh“t Sti豆0”. Kar群（Arr*y 3 片M S i 尔.3 h领配5季，艮 l

9、 瑞 t S n =End Sub启动vba编辑器在vba编辑器中“通用”处选“ Worksheet ”，“声明”处选SelectionChange精彩文档实用标准文案为 Microsoft *b isua' Basic for App ictiztns -。-1 支羊石最宾云政去母翼忆量在上图代码粘贴宏代码，并做如下修改:竹 Miero»ft Vi4udl Basic ft>r-ApnSonirBHKR3 ；M文#（D 稿很困任划格式标士ID）运行因 工外搂程序囿«U（W）和的但）, i5 X；国霞，乂 1g的勺】+ 然卷与 QjTri ta<- e

10、Sub Worloshfr > + Jh+n 仃(By耍il T ar 3t M R 1E题门心门亚川CSa酶显-T Microsoft Ek cal itfi IShfaEll OhFUJ5h«A<2 Gh«a<2) 他“d iSUttjii Tki 5MlMI£ T vg：at. JLdra =号E$2" TK<mAciv'eSlie.ei. £b叫u. Ra±Lg.e (Aft-a.y (*Gr ?lip 9*). Seiedt Saltzti an ShiptKmge l«Ut3 0?

11、L = Eim尊E3'】- 135 加磔 HE* ). SelectInd I£Ziid CuL代码的含义:If Target.Address = "$E$2" Then '判断变化的单元格是不是 E2ActiveSheet.Shapes.Range(Array("Group 8").Select ' 选择指针Selection.ShapeRange.Rotation = Range("E3")-'旋转指针'-135是指针起始位置修正参数Range("E2").Select '选中 E2 单元格精彩文档实用标准文案置。End If指针移到代码编写完成，在E2处输入空气指数指针就会转动到相应刻度位5、(1)防止输入错误，空气污染指数是大于 0的整数选才¥E2单元，设置数据有效性。如下图:精彩文档实用标准文案(2)空气污染指数爆表处理，当空气污染指数大于450时仪表盘将无法显示，这时将指针指向最大值450。修改指针位置E3单元的公式为“ =IF(E2>=450,270,E2*0.6)”(3)在仪表盘