【Excel VBA】Win32 APIによる高精度ミリ秒計測と処理高速化の実装

【背景と目的】

大量のデータ処理や複雑な計算を行うマクロにおいて、標準のTimer関数（約15.6ms単位）では細かなボトルネックの特定が困難です。本稿ではWin32 APIを利用し、ミリ秒単位での精密な計測手法と、Excel VBAの高速化を同時に実現する実装手順を解説します。

【処理フロー図】

graph TD
A["計測開始"] --> B["Win32 APIで開始時刻を取得"]
B --> C["メイン処理実行"]
C --> D["Win32 APIで終了時刻を取得"]
D --> E["差分を計算しミリ秒単位で出力"]
E --> F["終了"]

【実装：VBAコード】

64bit/32bit両環境に対応したPtrSafe宣言を行い、エラーハンドリングによって安全に画面更新や自動計算の復元を行う実戦的なコード例です。

Option Explicit

' --- Win32 API 宣言 (64bit環境を考慮したPtrSafeを使用) ---
#If VBA7 Then
    ' システム起動後の経過時間をミリ秒単位で取得
    Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
#Else
    Declare Function GetTickCount Lib "kernel32" () As Long
#End If

'' 

'' 高精度な処理時間計測と高速化を適用したサンプルプロシージャ
'' 
Sub HighPrecisionMeasure()
    Dim startTime As Long
    Dim endTime As Long
    Dim processTime As Double
    Dim i As Long
    Dim dataArr As Variant

    ' --- エラー時の設定復元を担保するためのトラップ設定 ---
    On Error GoTo ErrorHandler

    ' --- 高速化設定：画面更新と自動計算の停止 ---
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With

    ' 1. 計測開始時刻の取得
    startTime = GetTickCount()

    ' --- メイン処理：ここでは配列を使用したデータ操作の例 ---
    ' セルへの直接アクセスを避け、メモリ上で処理することで高速化
    dataArr = Range("A1:A10000").Value

    For i = 1 To UBound(dataArr, 1)
        ' サンプル処理（例：値を加工）
        dataArr(i, 1) = dataArr(i, 1) * 1.1
    Next i

    Range("B1:B10000").Value = dataArr
    ' --------------------------------------------------

    ' 2. 計測終了時刻の取得
    endTime = GetTickCount()

    ' --- 高速化設定の解除 ---
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With

    ' 3. 結果の計算と表示 (endTime - startTime)
    processTime = (endTime - startTime) / 1000 ' 秒単位に変換

    MsgBox "処理が完了しました。" & vbCrLf & _
           "実行時間: " & Format(processTime, "0.000") & " 秒", vbInformation, "計測結果"
    Exit Sub

ErrorHandler:
    ' --- 異常終了時も必ずアプリケーション設定を復元する ---
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
    
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "実行エラー"
End Sub

【技術解説】

1. GetTickCountの優位性: VBA標準のTimer関数はWindowsのシステム時刻に依存し、精度が不十分（約15.6ms単位）な場合がありますが、GetTickCountはシステム起動時からの経過ミリ秒を直接参照するため、より高精度な計測が可能です。

2. PtrSafe宣言: Officeのビット数（32/64bit）にかかわらず動作させるための必須記述です。

3. ボトルネックの解消: ScreenUpdating（画面更新停止）や配列への一括格納を利用することで、Excel-VBA間のオーバーヘッドを最小化しています。

【注意点と運用】

• オーバーフローの境界: GetTickCountが返すLong型は、システムを約49.7日間連続稼働させると値がループ（0に戻る）します。通常の事務作業端末では問題になりませんが、常時起動サーバー等では注意が必要です。

• デバッグ時の注意: ScreenUpdating = Falseの状態でエラーが発生するとExcelの描画が固まったままになるため、必ずコード例のようにErrハンドラ等で設定を戻す処理を組み込んでください。

【まとめ】

1. ミリ秒単位の可視化: Win32 APIにより、微細なコード修正によるパフォーマンスの変化を数値で捉えることができます。

2. 高速化の定石: 描画停止・自動計算停止・配列処理の3点セットを、安全なエラー処理とともに導入しましょう。

3. 互換性の確保: #If VBA7による条件分岐を使い、あらゆる社内環境で動作する堅牢なツールを目指します。