VBAで処理時間を計測

TimeCounter.cls

Option Explicit

' システム起動後の経過時間をミリ秒で取得する関数。
' VBA標準のNow()とかだと秒までしか取れない。
Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub Main()
    Dim startTime As Long
    Dim endTime As Long

    startTime = GetTickCount()

    Call 時間のかかる処理

    endTime = GetTickCount()

    Application.StatusBar = Format((endTime - startTime) / 1000, "0.00") & "[秒]"
    MsgBox "完了"
    Application.StatusBar = False
End Sub