Alt F11开发者工具

左侧【工程栏】中，双击刚插入的【模块1】，然后在右侧的代码窗口输入以下代码：

Sub Macrol()

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

Calculate

End Sub

模块1代码

然后双击【工程栏】中的【ThisWorkbook】，在右侧的代码窗口输入以下代码：

Private Sub workbook_open()

Macrol

End Sub

ThisWorkbook代码

最后点击F5，在弹出的宏窗口中，点击运行

F5运行

关闭开发者工具页面，就会出现一个动态的倒计时！

最后把倒计时的格式和文字调整为自己喜欢的，就大功告成！

PS：这里来个个小提示，在保存Excel时，弹出一个窗口，点击【否】，保存类型选择“Excel启用宏的工作簿”，即可保存。