マクロの処理時間を計測したい時に以下の二行で挟む。
Dim 計測開始 As Double: 計測開始 = Timer
■■計測したい処理■■
Call 計測終了(計測開始)
呼び出すプロシージャ
Sub 計測終了(計測開始 As Double)
Dim endTime As Double: endTime = Timer
Dim processTime As Double
processTime = endTime - 計測開始
MsgBox "処理時間:" & processTime
End Sub
部分的に時間を計測してみて
どこの処理で一番時間がかかっているのかを突き止める時に使う。
スポンサーリンク