

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除了控制时间以外,还有个Calculate。