VBA巧用Application.OnTime函数实现代码的暂停执行

        经常编写VBA程序的人可能会遇到这样的问题，就是程序代码采取分段执行是没有问题的，但如果把所有代码放在同一个sub过程中执行，得到的结果竟然大相径庭，并不是我们之前分段执行的时候得出的结果，为什么会出现这样的问题？这是因为代码执行的速度太快了，前面的代码还没显示出执行结果，后面的代码就开始执行，而后面的代码需要基于前面代码的执行结果，否则最终结果就会跑偏。

        在对控件和对象进行操作的过程中，我尝试过使用 Application.Wait 延时函数来实现暂停，但并没有得到正确的结果，后来我用Application.OnTime函数完美解决了问题。

一、使用方法

        1. Wait函数：延时
        Application.Wait (Now + TimeValue("0:00:01"))   ' 延时1秒后继续执行

        2. OnTime函数：延时调用指定过程
        Application.OnTime Now + TimeValue("00:00:01"), "Sub名称"   ' 1秒后执行指定sub过程

二、两者的区别

       两者在执行路径或线程上是有区别的，Wait函数实现的是原线程的暂停，而OnTime函数并非原线程的暂停，而是相当于开辟了另一线程，也就是说，除非你把后续代码全部放到OnTime函数指定的Sub过程中，否则OnTime后面的代码仍然会继续执行。

       理论上不管我们是直接使用Wait函数，还是将Wait函数后面的代码全部放到OnTime函数指定的Sub中，效果应该是一样，但实际并非如此。对于Wait函数来说，在全部代码没有执行完毕之前，位于Wait函数前面的代码其执行结果并不会显现，延时结束后再继续执行也不会得到正确的结果。而对于OnTime函数来说，如果其后面没有其他代码，则系统会认为当前线程执行到此已经结束并会显示出当前的执行结果，此时OnTime函数再继续执行，这样才会得到正确的结果。两者在使用效果上区别还是蛮大的，在使用过程中我们可以尝试不同的方法来处理，这样你才会体会到他们之间的不同之处。