如何制作动态的倒计时进度？

1、案例设定：门店开业倒计时图表。

首先，新建一个工作表，并创建各单元格时间设定。

1、选择A1单元格，输入以下公式："=NOW()"，并设置单元格格式为自定义年月日格式（如图所示）；

2、B1单元格输入公式：”=IF(D1<TODAY(),0,INT(D1-A1))"，并设置单元格格式为自定义“距离开业还有”0“天”，“时分秒”（如图所示）；

3、C1单元格输入公式：”=IF(D1<TODAY(),0,D1-A1)"，并设置单元格格式为自定义“时分秒”（如图所示）；

4、在D1单元格输入开业日期，如2015年10月1日。

2、开始创建进度条。

菜单栏选择“插入”——堆积条形图，创建一个空白的。

3、为进度条添加元素。

1、添加数据系列：A1、B1（如下图一所示）；

2、修改坐标轴：设置水平坐标轴格式——选择“数字”——选择“日期”——类型选择自己规定的一种（如下图二所示）。

3、添加数据标签：点击条形图，选择菜单栏“图表工具——设计——快速布局，选择一种能居中显示数据的模板（如下图三所示）。

4、为数据显示添加公式，并美化。

1、选中系列2的文本框（也就是图中蓝色进度条），输入公式“==Sheet5!$B$1:$C$1”

2、美化一下图表：调整大小、文字颜色，删除没用的图例等，自己发挥吧。

5、编写动态VBA代码，实现自动更新进度。

1、Alt+F11，调出VBA编辑器，插入——模块。

2、输入以下代码：

Option Explicit

Sub Auto_Open()

Application.OnTime Now +TimeValue("00:00:01"),"my_Procedure"

End Sub

Sub my_Procedure()

Application.SendKeys("{f9}")

Call Auto_Open

End Sub

保存，打完收工！