【VBA】マクロの処理時間を計測する方法！記事中コードをコピーするだけ！

この記事では、エクセルVBAの処理時間を計測する方法をご紹介していきます。

処理の高速化を行う際などに、ぜひご活用ください。

それでは早速やっていきます！

計測される側のマクロを準備しておく
処理時間計測用マクロを記述する
サンプルマクロの実行結果
おわりに

計測される側のマクロを準備しておく

この記事では、マクロ処理にかかる時間を計測していきますので、まずは適当な計測される側のマクロを記述しておきましょう。

今回は、以下のマクロの処理時間を計測してみます。

Sub test1()
    Dim i As Integer
    For i = 1 To 500
        If i Mod 2 = 1 Then
            Sheets(1).Activate
            Cells(i, 1) = i
            Sheets(3).Activate
        Else
            Sheets(2).Activate
            Cells(i, 1) = i
            Sheets(3).Activate
        End If
    Next
End Sub

無駄にシートを500回繰り返し、あえて処理に時間がかかるように記述しています。

このtest1というマクロの処理時間を別のマクロを作って計測していきます。

処理時間計測用マクロを記述する

計測対象のマクロを準備できたら、いよいよこの記事の本題である処理時間を計測するマクロを記述していきましょう。

以下が処理時間を計測するマクロです。

◆サンプルコード

Sub time_measurement()
    Dim start_time As Single, end_time As Single
    Dim duration_time As Single
    start_time = [Now() ]
    Call test1
    end_time = [Now() ]
    duration_time = end_time - start_time
    MsgBox Round(duration_time * 86400, 3) & "秒"
End Sub

基本的にやっていることは、先ほど記述したtest1というマクロを実行する直前と直後に時刻を測定しておき、それらの差をとることで処理時間を計測しているだけです。

ですので、もしあなたが記述済みのマクロの処理時間を計測したい場合は、上記のコードのtest1の部分を計測したいマクロ名に書き換えるだけでＯＫです。

「なんで８６４００をかけてるの？」

と思っている人は多いと思います。

その答えは以下の記事で紹介しています。

【VBA】指定時間だけ待つ方法！１秒以下（ミリ秒）でも指定可能！

この記事を読めばなぜこんなことをしているのか理解できるはずです。

ぜひあわせてご覧ください。