Excel制作空气指数仪表盘精编版Word文档下载推荐.docx

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。

设置文本框内文字居中，形状轮廓为无轮廓。

至此仪表盘就制作完成了，整体效果如下：

小伙伴们，仪表盘制作完成了，不知道你们的感觉如何？

我是有些许成就感，为治理雾霾也算是出一份力。

仪表盘可能还有不完美之处，希望小伙伴们完善哟！