利用VBA，完成自动运行任务

【分享成果，欢喜正能量】愚蠢的人常常觉得环境对自己不公平，认为自己的才华不被赏识，聪明的人常常认为环境时时考验自己，才能创造未来。。

《VBA经典应用69例》是我推出的第九套教程。教程专门针对初中级学员在学习VBA过程中可能遇到的与“实战”相关的案例进行“战术总结”，以便大家能够很好地应用。本教程的目的是要求大家在实际工作中用好VBA。本套自学课程共三册，69个专题。今天的内容是教程8：使用VBA完成自动运行任务预设。

在本节中，我们将介绍如何使用VBA预设自动运行的任务。这里提到的内容在VBA中也相当有用，可以实现动画等效果，并且可以在某个时间自动执行各种想要的任务。我们主要使用ApplicationOnTime来完成这个设置。

OnTime与ApplicationWait方法非常相似。通过这两种方法，您可以设计一个任务（流程）在某个时间运行。OnTime和Wait的一个主要区别是，使用Wait方法，Excel的操作将被中断，但OnTime不会冻结您的计算机。运行OnTime语句后，您可以继续使用Excel工作簿。

1ApplicationOnTime方法介绍

语法：ApplicationOnTime(EarliestTime,Procedure,LatestTime,Schedule)此方法将安排进程在未来的特定时间运行（可以在特定指定的时间或在指定的时间段之后）。

范围：

1)EarliestTimerequiredVariant您希望此进程运行的时间。有时，Excel可能在“最早的时间”忙于其他任务（例如正在运行的任何宏）。当Excel准备就绪时，程序立即启动。

2)procedure需要String要执行的进程的名称。

3）LatestTime任何Variant可以运行相应进程的最晚时间。例如，如果将LateTime设置为EarliestTime30，并且由于另一个进程正在运行，MicrosoftExcel在EarliestTime未处于就绪、复制、剪切或查找模式，则Excel会等待30秒，以便第一个进程完成该进程。如果Excel在30秒内未处于就绪模式，则该过程将不会运行。如果省略此参数，Excel将等待该进程可以运行。这个参数可以认为如果当前时间超过这个时间，程序就不会运行。

4)如果Scheduleanyvariant为True，则调度新的OnTime进程。如果为False，则清除先前设置的进程。默认值是true。

2预设某个进程（宏）在15秒后运行

我们首先使用ApplicationOnTime方法完成一个简单的预设：在用户点击按钮后15秒提示用户。首先，我们看一下我提供的代码：

submynzA()

ApplicationOnTimeNowTimeValue('00:00:15'),'mynz'

结束子

子目录()

MsgBox'自您单击按钮以来已经过去了15秒'

结束子

代码截图：

代码解释：

ApplicationOnTimeNowTimeValue('00:00:15'),'mynz'代码中的“NowTimeValue('00:00:15')”表示某个应用程序从现在开始运行到15秒后。哪个程序会被执行呢？是“mynz”。

以下是代码运行结果。当然，点击后15秒就会出现代码：

>

请参阅本讲座的程序文件：Application008xlsm

我20多年的VBA实践经验总结在以下教程中：

【分享成果，享受正能量】谣言不是偶然，而是你内心阴暗面的反映。俗话说：“人被恶意欺骗，就会受到伤害，所以要避免”。。