七転八起SEの備忘録

処理にどれくらい時間がかかるのか、また、どれくらいスピードアップしたのか把握したい場合に、処理時間を計測する方法を知っておくと便利。


処理時間計測プログラム
Option Explicit


Dim startTime
Dim stopTime
Dim speed

startTime = Timer


　' /// 処理内容を記述 ///


stopTime = Timer

speed = stopTime - startTime
msgbox "処理速度：" & speed & "秒",vbSystemModal,"system"