在office vba宏中使用计时器

对于我们这些深入研究VB.NET的人来说，回到VB6的旅程可能是一次令人困惑的旅行。在VB6中使用计时器就是这样。同时，向代码中添加定时进程对于VBA宏的新用户来说并不明显。...

对于我们这些深入研究VB.NET的人来说，回到VB6的旅程可能是一次令人困惑的旅行。在VB6中使用计时器就是这样。同时，向代码中添加定时进程对于VBA宏的新用户来说并不明显。

Stopwatch appearing out of Laptop computer screen

新手计时器

编写Word VBA宏以自动计时用Word编写的测试是使用计时器的典型原因。另一个常见的原因是查看代码的不同部分占用了多少时间，这样您就可以对缓慢的部分进行优化。有时，您可能希望在计算机似乎处于空闲状态时查看应用程序中是否发生了任何事情，这可能是一个安全问题。计时器可以做到这一点。

启动计时器

您可以通过编写OnTime语句来启动计时器。此语句是在Word和Excel中实现的，但根据所使用的语法不同，它有不同的语法。Word的语法为：

表达式.OnTime（时间、名称、公差）

Excel的语法如下所示：

expression.OnTime（最早的时间、过程、最晚的时间、时间表）

两者都有共同的第一个和第二个参数。第二个参数是达到第一个参数中的时间时运行的另一个宏的名称。实际上，编写此语句就像用VB6或VB.NET术语创建事件子例程一样。事件正在到达第一个参数中的时间。事件子例程是第二个参数。

这与VB6或VB.NET中的编码方式不同。首先，第二个参数中命名的宏可以在任何可访问的代码中。在Word文档中，Microsoft建议将其放入普通文档模板中。如果将其放在另一个模块中，Microsoft建议使用完整路径：Project.module.Macro。

表达式通常是应用程序对象。Word和Excel文档说明，如果对话框或其他进程阻止事件宏在特定时间内运行，则第三个参数可以取消事件宏的执行。在Excel中，您可以在发生这种情况时安排新的时间。

对时间事件宏进行编码

Word中的此代码适用于希望显示测试时间已过的通知并打印测试结果的管理员。

Public Sub TestOnTime（）Debug.Print“报警将在10秒后熄灭！”Debug.Print（“在OnTime之前：&amp；现在）alertTime=Now+TimeValue（“00:00:10”）Application.OnTime alertTime，“EventMacro”Debug.Print（“在OnTime之后：&amp；现在）End Sub EventMacro（）Debug.Print（“执行事件宏：&amp；现在”）End Sub

这将在即时窗口中生成以下内容：

警报将在10秒后响起！OnTime之前：12/25/2000 7:41:23 PM OnTime之后：12/25/2000 7:41:23 PM执行事件宏：2/27/2010 7:41:33 PM

其他office应用程序的选项

其他Office应用程序不能按时实现。对于这些，您有几个选择。首先，你可以使用Timer函数，它只返回你电脑上从午夜开始的秒数，然后自己计算，或者你可以使用WindowsAPI调用。使用Windows API调用具有比计时器更精确的优点。下面是Microsoft建议的一个例程，可以实现这一点：

私有声明函数getFrequency Lib“kernel32”\别名“QueryPerformanceFrequency”（cyFrequency作为货币）作为LongPrivate声明函数getTickCount Lib“kernel32”\别名“QueryPerformanceCounter”（cyTickCount作为货币）作为LongSub TestTimeAPICalls（）Dim dTime As DoubledTime=MicroTimerDim StartTime As SingleStartTime=timer对于i=1到10000000 Dim j As Doublej=Sqr（i）NextDebug.Print（“使用的微动计时器时间：”&amp；微动计时器-dTime）结束子功能微动计时器（）As Double“”返回秒数。Dim cyTicks1作为货币静态cyFrequency作为货币'MicroTimer=0'获取频率。如果cyFrequency=0，则getFrequency cyFrequency'Get ticks.getTickCount cyTicks1'seconds如果cyFrequency，则MicroTimer=cyTicks1/cyFrequencyEnd函数