Excel之VBA常用功能应用篇：倒计时的制作

一寸光阴一寸金，寸金难买寸光阴。浪费时间就等于浪费生命，所以时间的重要性不言而喻。我们经常会为一些重要的日子倒计时，准备着重要时刻的来临，例如考试，纪念日等。

#excel技巧#

实例1

高考倒计时

• 距离高考还有**天，=INT("2022-6-7"-NOW())&"天"

1、如图所示：表格内输入相应文字另一单元格输入=INT("2022-6-7"-NOW())&"天"

=INT("2022-6-7"-NOW())&"天"

2、如果要精确到秒：则如图输入=”2022-6-7”-now()后设定单元格样式为Hh小时mm分ss秒；

=”2022-6-7”-now()

设定单元格样式

3、此时你会发现倒计时并不动，这需要启用宏；ALT+F11调出VBA窗体，然后点插入模块，输入Sub Macro1()
Application.OnTime Now + TimeValue("00:00:01"),"Macro1"
Calculate
End Sub
Private Sub workbook_open()
Macro1
End Sub

在模块1内输入

然后双击ThisWorkbook输入：

Private Sub workbook_open()
Call Macro1
End Sub

再保存，若出现下图所示：

ThisWorkbook输入，保存时选否

点否，另存为xlsm格式；

再次重新打开，会出现警示提示启用宏，点启用就可以了；

• 实例2 元旦倒计时

• 在Excel中怎么计算精确到秒，并动态更新呢？

• 

• 步骤：

• 1、原始数据信息：

• 

• (1)单元格A2输入“2021年元旦”，B2中输入2021年1月1日；

• (2)单元格A3输入“现在时间”，B3中输入公司“=now()”；

• (3)设置B2、B3单元格格式：选择B2、B3单元格，右键“设置单元格格式”，“数字”标签－“分类”框中“自定义”－“类型”框中输入yyyy"年"m"月"d"日"hh"时"mm"分"ss"秒"，则B2、B3单元格显示为年、月、日、时、分、秒的数值；

• 

• (4)设计A2：B3单元格格式。

• 2、倒计时牌设计：

• 

• (1)合并A5、B5单元格，输入“2021年元旦倒计时”；

• (2)合并A6、A7单元格，输入“距离2021年元旦还剩”，并按Alt+回车换行；

• (3)设计A5：B7格式。

• 3、倒计时计算：

• (1)天数计算：B6单元格中输入函数“=INT(B2-B3)&"天"”；

• (2)时分秒计算：B7单元格中输入函数“=TEXT((B2-B3)-INT(B2-B3),"h时m分s秒")”。

• 4、动态更新时间：

• (1)按Alt+F11调出宏编辑器，单击“插入”－“模块”，在弹出的代码编辑区输入下列代码后，退出；

• 

• Sub Olympic()

• ActiveSheet.Calculate

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

• End Sub

• 5、隐藏第2、第3行原始数据。

• ※函数释义：

• 1、Now：返回当前系统日期和时间；

• 2、Int：取整数；

• 3、Text：将数值转化为文本格式。

• ※小贴士：

• 用VBA编辑器实现动态更新，当重新打开文件后即实时更新倒计时数据。

• 实例3 国庆倒计时

• 1，在c2单元格输入=INT("2020-10-1"-NOW())&"天"

• 这个函数公式的含义：里面的"2020-10-1"-NOW()，意思就是我们指定的日期减去现在的时间，NOW()返回的是现在的时间，然后在利用INT进行取整，最后用连接符&和天进行连接。

• 2，在d2单元格输入 ="2020-10-1"-NOW()

• 3，按鼠标右键设置单元格格式，选择hh"时"mm"分"ss"秒"，按确定，就可以精确到小时，分钟，秒了。

• 4，现在是静止的时间，那么想要设置动态显示时间呢？可以通过设置宏来得到。下面是全部gif图片显示出来，大家学习一下：

• 按下快捷键ALT+F11进入宏，在模块中输入如下代码

• Sub Macro1()

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

• Calculate

• End Sub

• 在左边"ThisWorkbook"输入代码

• Private Sub workbook_open()

• Macro1

• End Sub

• 然后按F5运行，另存为宏格式的excel表格，这样就可以一打开，就可以显示 动态的倒计时时间了，现在你学会了吗？