Vba运算结束显示运算时间

在VBA中，如果你想在宏运算完成后显示所用的时间，通常可以使用 `Now()` 函数获取当前日期和时间，然后在开始操作前记录一个起始时间，操作结束后对比两个时间点来计算差值。下面是一个简单的示例，展示了如何在VBA中测量代码执行时间：

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

Sub MeasureExecutionTime()
    Dim startTime As Long
    Dim endTime As Long
    Dim elapsedTime As Double
    Dim strElapsedTime As String
    
    ' 获取初始时间戳
    startTime = GetTickCount
    
    ' 开始执行你的操作
    ' ...

    ' 执行完毕后再次获取时间戳
    endTime = GetTickCount
    
    ' 计算并转换到秒
    elapsedTime = (endTime - startTime) / 1000
    
    ' 格式化并显示结果
    strElapsedTime = Format(elapsedTime, "0.00") & "秒"
    
    MsgBox "运算时间：" & strElapsedTime
End Sub

在这个例子中，`GetTickCount` 返回自上次系统启动以来的毫秒数，我们将其减去初始值得到的时间差就是实际运行时间。请注意，这个方法可能受到操作系统调度和其他因素的影响，不是非常精确，仅作为估算。