Excel制作空气指数仪表盘

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