VBA中使用计时器的两种方法

VBA中使用计时器的两种方法如下：

1. 使用VBA内置的Timer函数。Timer函数返回自午夜以来的秒数，精确到1/100秒。可以在代码中使用Timer函数来获取当前时间，并计算时间差来实现计时器功能。

例如，下面的代码演示了如何使用Timer函数实现一个简单的计时器：

Sub TimerDemo()
    Dim StartTime As Double
    Dim EndTime As Double
    Dim ElapsedTime As Double

    ' 记录开始时间
    StartTime = Timer

    ' 模拟一些操作
    For i = 1 To 100000
        j = i * 2
    Next i

    ' 记录结束时间
    EndTime = Timer

    ' 计算经过的时间
    ElapsedTime = EndTime - StartTime

    ' 显示结果
    MsgBox "经过了 " & ElapsedTime & " 秒"
End Sub

2. 使用Windows API函数GetTickCount。GetTickCount函数返回自系统启动以来的毫秒数。可以在代码中使用GetTickCount函数来获取当前时间，并计算时间差来实现计时器功能。

例如，下面的代码演示了如何使用GetTickCount函数实现一个简单的计时器：

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub TimerDemo()
    Dim StartTime As Long
    Dim EndTime As Long
    Dim ElapsedTime As Long

    ' 记录开始时间
    StartTime = GetTickCount

    ' 模拟一些操作
    For i = 1 To 100000
        j = i * 2
    Next i

    ' 记录结束时间
    EndTime = GetTickCount

    ' 计算经过的时间
    ElapsedTime = EndTime - StartTime

    ' 显示结果
    MsgBox "经过了 " & ElapsedTime & " 毫秒"
End Sub