VBAでコードの実行速度を測定

　コピペして使いまわしやすいようにモジュール化してみた。

　計測したい処理の前で"TimerStart"をコールし、処理が終了したら"TimerStop"をコールする。

Public StartTime As Double
Public EndTime As Double

Sub TimerStart()
    StartTime = Timer
End Sub

Sub TimerStop()
    EndTime = Timer
    MsgBox (EndTime - StartTime & " 秒")
End Sub

Sub Sample01()
    Call TimerStart         '---- 測定開始
    
    '計測対象のコード
    
    Call TimerStop          '---- 測定終了, 結果表示
End Sub

　Sample01を実行したら、当然0秒で終了します。