Excel vba实现倒计时功能

暂停程序，直到指定时间继续，此时所有的Excel行为，包括手工交互操作，都将被挂起。这个到时功能，我们主要用到 Application.Wait 来指定时间
摘自-小妖（Office中国）
计算某日离某日还乘多少时间，绝难不倒有点函数基础的同学：

1486715154375925.jpg

由于公式中使用了Now函数，所以计算出来的时间是与当前系统时间一致的，可是Now函数有个更新的问题，如果不按F9，它不会自动更新，所以这个倒计时，要想实现每秒跳一下，于是得使用Application，代码依然很传统地写在模块里：

1486715154513670.jpg

倒计时VBA代码：
Sub Sample()
Do While range("d2") > Now '活动时间未过期即不断循环
Application.Wait Now + TimeSerial(0, 0, -1) '控制时间
Application.Calculate  '计算工作表
Loop
MsgBox "时间到！"
End Sub以上代码里Application除了控制时间以外，还有个Calculate。