VBA执行成功后显示时间

在Excel VBA中，当一个宏或子程序执行完毕后，你可以通过记录执行开始的时间并在结束后再次获取时间，来计算并显示整个过程的运行时间。这通常会帮助你了解代码的效率。这里是一个基本的例子：

Sub ShowExecutionTime()
    ' 定义两个变量来存储开始和结束时间
    Dim startTime As Long
    Dim endTime As Long
    
    ' 获取当前时间作为开始时间
    startTime = Timer

    ' 你的VBA代码在这里
    '例如：
    MsgBox "Hello, World!" ' 或者是更复杂的代码段

    ' 在代码执行完后获取结束时间
    endTime = Timer

    ' 计算执行时间并显示
    Dim executionTime As Double
    executionTime = (endTime - startTime) / 86400 ' 转换成天，因为Timer单位是秒
    MsgBox "该操作耗时：" & executionTime & "天"

End Sub

上面的代码会在显示消息框的同时显示执行时间，如果需要精确到毫秒或秒，只需将`executionTime = (endTime - startTime)`这一行中的除法系数改为1000或1。