2025年09月21日
作者：俞丹 转自：Excel之家ExcelHome
用图表展示项目进度，这个大家一定不会陌生，今天就和大家分享一个别开生面的充电图，不仅可以显示完成进度，还可以根据进度情况自动变色，实用又好玩哦。
话说，自那驴蛋蛋离家出走后，大花自此一蹶不振，茶饭不思，整日游手好闲玩手机。近日听说驴蛋蛋在华山已修炼成为一等一的高手，更收下别人家的美人无数。大花内心澎湃，不由琢磨着：”想我家驴蛋蛋都这么努力，宝宝不该拖后腿啊！”
然后就没有然后了。。。
于是乎，等宝宝丰富的内心戏演完，决定玩一个模仿手机充电。
来，我们看看效果：
特此说明: 此教程使用office2016版本，请2013版本以下朋友谨慎入坑。
（1）点击【开发工具】选项卡下【插入】，找到【表单控件】下的【滚动条】，点击画出一个滚动条。
右键单击滚动条设置控件格式，将单元格链接设置为D2，一气呵成。
2、准备数据源并制图
（1）手机电量B2单元格直接引用D2，这样能使数据系列的值随滚动条变化而变化。
选中B2:B3，插入选项卡下选择堆积条形图。
（2）在绘图区右键选择更改图标类型，选择第二种堆积条形图。
（3）双击坐标轴，在弹出的设置坐标轴格式内，设置最大值100，最小值0。
删除图表标题，坐标轴，网格线等元素，完成整体轮廓。
（4）添加数据标签：
B4=D2&"%"
数据标签使用文本框，引用B4单元格数值，并使用无填充无线条，字体设置为白色。
好吧，这一步我承认我偷懒了。
如果需根据不同数值，显示不同颜色，那么设置条件如下：
则：
使用VBA实现图表的动态填充色。
（vba代码来自donata，万分感谢donata深夜两点帮我写代码，么么哒！）。
Private Sub Worksheet_Calculate()
'重新计算工作表或在图表上绘制更改的数据之后发生的事件
Application.ScreenUpdating = False
'关闭屏幕更新
ActiveSheet.ChartObjects("图表 1").Activate
'激活图表1
With ActiveChart.SeriesCollection(1).Format.Fill
'图表1的第一系列的填充格式,FullSeriesCollection是2013版本才有的,2010版本的代码是SeriesCollection
If Range("b2").Value > Range("b5").Value Then
.ForeColor.RGB = RGB(0, 176, 80)
'前景填充色
Else
.ForeColor.RGB = RGB(225, 204, 105)
End If
If Range("b2").Value <= Range("b6").Value Then
.ForeColor.RGB = RGB(255, 0, 0)
End If
End With
Application.ScreenUpdating = True
End Sub
最后，进行适当美化，完成。