使用Excel制作倒计时牌

使用Excel制作倒计时牌，操作方法如下：

1、假设假期结束日期为2024年12月2日0时，在C2单元格输入以下公式，得到剩余的整数天数。

=INT("2024-12-2"-NOW())&"天"

2、设置D2单元格自定义格式为： hh小时mm分ss秒

然后在D2单元格中输入以下公式：

="2024-12-2"-NOW()

3、按组合键打开VBE编辑器，依次单击【插入】→【模块】命令，在【工程资源管理器】中单击选中刚刚插入的“模块1”，在右侧的代码窗口中输入以下代码。

Sub Macro1()
Application.OnTime Now + TimeValue("00:00:01"),"Macro1"
Calculate
End Sub

Private Sub workbook_open()
Macro1
End Sub

代码中的”00:00:01″，表示刷新时间为1秒，实际使用时可根据需要设置。例如要设置刷新时间为1分钟，可将此部分修改为”00:01:00″。

4、 在【工程资源管理器】中单击选中“ThisWorkbook”，在右侧的代码窗口中输入以下代码，然后按F5键，即可在单元格中实现倒计时效果。

Private Sub workbook_open()
Call Macro1
End Sub

5、最后将文件保存为Excel启用宏的工作簿，即xlsm格式。 再次打开文件时，如果出现如图 所示的安全警告，点击【启用内容】按钮。