<p><style_prompt> 【執筆作法：業務ドキュメント・テクニカルライティング】</style_prompt></p> <ul class="wp-block-list"> <li><p>結論から記述する（PREP法）</p></li> <li><p>専門用語は平易に解説するか、文脈で補完する</p></li> <li><p>コードブロックは「実務での再利用性」を最優先する</p></li> <li><p>曖昧な表現を避け、具体的な数値や型を提示する </p></li> </ul> <p>本記事は<strong>Geminiの出力をプロンプト工学で整理した業務ドラフト（未検証）</strong>です。</p> <h1 class="wp-block-heading">VBA高速化の鍵：Win32 APIを用いたミリ秒単位の処理時間計測</h1> <h2 class="wp-block-heading">【背景と目的】</h2> <p>VBAのボトルネック特定には、標準のTimer関数では精度が不足します。APIを活用し、ミリ秒単位で正確な実行時間を可視化・最適化します。（63文字）</p> <h2 class="wp-block-heading">【処理フロー図】</h2> <div class="wp-block-merpress-mermaidjs diagram-source-mermaid"><pre class="mermaid"> graph TD A["計測開始：GetTickCount取得"] --> B["画面更新・自動計算の停止"] B --> C["メイン処理：配列を用いたデータ加工等"] C --> D["画面更新・自動計算の再開"] D --> E["計測終了：GetTickCount取得"] E --> F["差分計算：ミリ秒単位で結果表示"] </pre></div> <h2 class="wp-block-heading">【実装：VBAコード】</h2> <pre data-enlighter-language="generic">Option Explicit ' --- Win32 API 宣言 (64bit/32bit 両対応) --- #If VBA7 Then ' システム起動後の経過時間をミリ秒単位で取得 Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long #Else Private Declare Function GetTickCount Lib "kernel32" () As Long #End If ''' <summary> ''' 高速処理と精密な時間計測を両立したサンプルマクロ ''' </summary> Public Sub MeasureProcessingTime() Dim startTime As Long Dim endTime As Long Dim processTime As Double ' 1. 計測開始 startTime = GetTickCount() ' 2. 高速化設定（お約束の最適化） With Application .ScreenUpdating = False ' 画面更新停止 .Calculation = xlCalculationManual ' 自動計算停止 .EnableEvents = False ' イベント抑止 End With On Error GoTo ErrorHandler ' 3. メイン処理（例：大量のセル転記を配列で高速化） Dim dataArray() As Variant Dim i As Long Const MAX_ROW As Long = 100000 ReDim dataArray(1 To MAX_ROW, 1 To 1) For i = 1 To MAX_ROW dataArray(i, 1) = "Sample_" & i Next i ' セルへの一括書き出し ActiveSheet.Range("A1").Resize(MAX_ROW, 1).Value = dataArray ' 4. 計測終了 endTime = GetTickCount() ' 5. 後処理（設定の復元） With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True End With ' 実行時間の算出 (ミリ秒 -> 秒) 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 </pre> <h2 class="wp-block-heading">【技術解説】</h2> <ol class="wp-block-list"> <li><p><strong>GetTickCountの活用</strong>: 標準の <code>Timer</code> 関数は「午前0時からの経過秒数」を返すため、日付をまたぐ処理や、1秒未満の精密な計測（分解能 約15.6ms）には不向きです。APIを使用することでミリ秒単位の精度が得られます。</p></li> <li><p><strong>PtrSafe 宣言</strong>: 64bit版Officeでは API 宣言に <code>PtrSafe</code> が必須です。条件付きコンパイル（<code>#If VBA7</code>）を用いることで、旧環境との互換性を維持しています。</p></li> <li><p><strong>配列処理による高速化</strong>: <code>Range</code> オブジェクトへの個別アクセスは非常に低速です。メモリ上の配列（<code>Variant</code>型）で一括処理してからセルに書き戻すことで、API計測の恩恵を感じるレベルの高速化が実現します。</p></li> </ol> <h2 class="wp-block-heading">【注意点と運用】</h2> <ul class="wp-block-list"> <li><p><strong>49.7日の壁</strong>: <code>GetTickCount</code> は戻り値が32ビット符号付き整数（Long）の範囲を扱うため、PCを起動し続けて約49.7日が経過すると、カウントがリセット（オーバーフロー）されます。サーバー稼働環境では注意が必要です。</p></li> <li><p><strong>フロー制御の徹底</strong>: <code>ScreenUpdating</code> などを停止した場合、エラー発生時に <code>True</code> に戻さないと、Excelがフリーズしたように見えます。必ず <code>On Error GoTo</code> で復旧処理を記述してください。</p></li> <li><p><strong>高精度が必要な場合</strong>: さらに高い精度（マイクロ秒単位）が必要な場合は、<code>QueryPerformanceCounter</code> APIの使用を検討してください。</p></li> </ul> <h2 class="wp-block-heading">【まとめ】</h2> <ol class="wp-block-list"> <li><p><strong>ミリ秒計測</strong>は Win32 API (<code>GetTickCount</code>) を使い、ボトルネックを正しく把握する。</p></li> <li><p><strong>計測の前提条件</strong>として、画面更新停止や配列処理などの高速化手法を併用する。</p></li> <li><p><strong>例外処理</strong>を組み込み、万が一の際もExcelの設定（画面更新等）を確実に復旧させる。</p></li> </ol>

graph TD
A["計測開始：GetTickCount取得"] --> B["画面更新・自動計算の停止"]
B --> C["メイン処理：配列を用いたデータ加工等"]
C --> D["画面更新・自動計算の再開"]
D --> E["計測終了：GetTickCount取得"]
E --> F["差分計算：ミリ秒単位で結果表示"]

Option Explicit

' --- Win32 API 宣言 (64bit/32bit 両対応) ---
#If VBA7 Then

    ' システム起動後の経過時間をミリ秒単位で取得
    Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
#Else

    Private Declare Function GetTickCount Lib "kernel32" () As Long
#End If

''' <summary>
''' 高速処理と精密な時間計測を両立したサンプルマクロ
''' </summary>
Public Sub MeasureProcessingTime()
    Dim startTime As Long
    Dim endTime As Long
    Dim processTime As Double

    ' 1. 計測開始
    startTime = GetTickCount()

    ' 2. 高速化設定（お約束の最適化）
    With Application
        .ScreenUpdating = False         ' 画面更新停止
        .Calculation = xlCalculationManual ' 自動計算停止
        .EnableEvents = False           ' イベント抑止
    End With

    On Error GoTo ErrorHandler

    ' 3. メイン処理（例：大量のセル転記を配列で高速化）
    Dim dataArray() As Variant
    Dim i As Long
    Const MAX_ROW As Long = 100000

    ReDim dataArray(1 To MAX_ROW, 1 To 1)
    For i = 1 To MAX_ROW
        dataArray(i, 1) = "Sample_" & i
    Next i

    ' セルへの一括書き出し
    ActiveSheet.Range("A1").Resize(MAX_ROW, 1).Value = dataArray

    ' 4. 計測終了
    endTime = GetTickCount()

    ' 5. 後処理（設定の復元）
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With

    ' 実行時間の算出 (ミリ秒 -> 秒)
    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