2010年5月25日火曜日

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秒で終了します。

0 件のコメント:

コメントを投稿