Excel VBA
Excel vba实现倒计时功能
2017-02-10 16:25:26

暂停程序,直到指定时间继续,此时所有的Excel行为,包括手工交互操作,都将被挂起。

这个到时功能,我们主要用到 Application.Wait 来指定时间

摘自-小妖(Office中国)

计算某日离某日还乘多少时间,绝难不倒有点函数基础的同学:

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

倒计时VBA代码:Sub Sample()Do While range("d2") > Now '活动时间未过期即不断循环    Application.Wait Now + TimeSerial(0, 0, -1) '控制时间    Application.Calculate '计算工作表LoopMsgBox "时间到!"End Sub

 

以上代码里Application除了控制时间以外,还有个Calculate。