Excel2000 VBA マクロ実行の所要時間をMsgBoxに表示

Excel2000 VBA　マクロ実行の所要時間をMsgBoxに表示

マクロの開始時刻と終了時刻を記録して、所要時間を割り出しMsgBoxに表示する

参考にしたサイト　http://www.asahi-net.or.jp/~zn3y-ngi/YNxv214.html#8-2

Sub　test()

start_time = Time

Application.ScreenUpdating=False '画面更新の抑制　マクロ実行の高速化

ここに実行マクロを書く、またはマクロを呼び出す

end_time = Time
run_time = (end_time - start_time) * 24 * 60 * 60
MsgBox "開始時刻　" & start_time & vbCrLf & "終了時刻　" & end_time & vbCrLf & "所要時間　" & Format(run_time, "###.#")

Application.ScreenUpdating=True '抑制の解除

End sub

タグ：Excel2000 VBA