本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。
64bit版Excel移行で失敗しない：Declare PtrSafeとLongPtrによるWin32 API完全対応マニュアル
【背景と目的】
Officeの64bit化に伴い、従来のWin32 API宣言でコンパイルエラーが発生する課題を解決し、32bit/64bit両対応の堅牢なコードを構築します。
Office 2016以降、64bit版Officeの標準インストールが進んだことで、過去に作成したVBAマクロ内のAPI呼び出し（Declare 構文）で「コンパイル エラー: 64 ビット システムでは、Declare ステートメントの更新が必要です」と表示され、システム全体が停止するトラブルが多発しています。
【処理フロー図】
graph TD
A["マクロ実行開始"] --> B{"VBAバージョン判定
#If VBA7"}
B -- True --> C["PtrSafe属性 + LongPtr型でAPI宣言"]
B -- False --> D["従来のDeclare + Long型でAPI宣言"]
C --> E["画面描画停止 / 高速化初期化"]
D --> E
E --> F["API関数実行: ポインタ/ハンドルの処理"]
F --> G["エラー処理 / 描画再開"]
G --> H["正常終了"]
【実装：VBAコード】
以下のコードは、実務で頻繁に利用される「ミリ秒単位の待機（Sleep）」および「Excelウィンドウハンドルの取得（FindWindow）」を、32bit/64bit双方のOffice環境で安全に動作させる実装例です。
Option Explicit
' ==============================================================================
' Win32 API 宣言部（32bit / 64bit 両対応の条件付きコンパイル）
' ==============================================================================
#If VBA7 Then
' VBA7 (Office 2010以降): PtrSafeキーワードを付与し、ポインタ/ハンドルにはLongPtrを使用
Private Declare PtrSafe Sub Sleep Lib "kernel32" ( _
ByVal dwMilliseconds As Long _
)
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As LongPtr
#Else
' VBA6以前 (Office 2007以前) または 32bitレガシー環境
Private Declare Sub Sleep Lib "kernel32" ( _
ByVal dwMilliseconds As Long _
)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) As Long
#End If
' ==============================================================================
' 業務ロジック：APIを利用した安全な高速処理テンプレート
' ==============================================================================
Public Sub ExecuteWin32ApiProcess()
' 高速化設定
On Error GoTo ErrorHandler
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
' 1. ウィンドウハンドルの取得（LongPtr型変数で受け取る）
Dim hWnd As LongPtr
hWnd = FindWindow("XLMAIN", Application.Caption)
If hWnd = 0 Then
MsgBox "Excelウィンドウハンドルの取得に失敗しました。", vbExclamation, "警告"
Else
' 実務ではウィンドウ制御やログ記録等に活用
Debug.Print "取得したウィンドウハンドル (Hex): &H" & Hex(hWnd)
End If
' 2. 高精度スリープ処理の実行（ミリ秒指定）
Dim i As Long
For i = 1 To 5
' 処理の合間に100ミリ秒待機
Sleep 100
DoEvents ' OSに制御を一時的に戻す
Next i
MsgBox "API処理が正常に完了しました。", vbInformation, "完了"
CleanUp:
' 高速化設定の復元（例外発生時も必ず通過）
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "システムエラー"
Resume CleanUp
End Sub
【技術解説】
VBA7コンパイラ定数 Office 2010以降（VBA バージョン7.0以上）では、環境が32bitか64bitかにかかわらずVBA7定数がTrueになります。これにより、レガシーなOffice 2007以前との互換性を保ちながら最新の構文を適用できます。PtrSafeキーワード 64bit版VBAに対して「このAPI呼び出しは64bit環境向けに検証済みである」と宣言するキーワードです。64bit版VBAでは、PtrSafeがないDeclare文はコンパイルエラーとなります。LongPtr型の挙動LongPtrは真のデータ型ではなく、コンパイル環境に応じて動的に型が切り替わるエイリアス型です。32bit環境：
Long（4バイト整数）として動作64bit環境：
LongLong（8バイト整数）として動作
メモリアドレス（ポインタ）やウィンドウハンドル（HWND、HDCなど）を扱う引数・戻り値には、必ずLongではなくLongPtrを割り当てます。
型選択の原則
変更すべきもの：ポインタ（
LPCTSTR,void*）、ハンドル（HWND,HANDLE） $\rightarrow$LongPtr変更してはならないもの：ミリ秒、カウンタ、フラグ（
DWORD,int,BOOL） $\rightarrow$Longのまま保持
【注意点と運用】
引数の過剰な
LongPtr化によるクラッシュ 数値データ（例:Sleepの待機時間）までLongPtrに変更すると、64bit環境で引数のスタックサイズが8バイトになり、API仕様（4バイト要求）と不整合を起こしてExcelがクラッシュします。C言語の型定義（ヘッダーファイル）を確認して正しくマッピングしてください。構造体（ユーザー定義型）のアライメント問題 APIに渡す構造体内部にポインタが含まれる場合、64bit環境では8バイト境界のアライメント（パディング）が発生し、構造体サイズが変動します。
LenB関数によるサイズ検証を必ず実施してください。エラーハンドリングによる状態復元 API実行中にエラーが発生した場合でも、
ScreenUpdatingやCalculationを確実に元に戻すため、Resume CleanUpパターンを採用してください。
【まとめ】
条件分岐の標準化：
#If VBA7を用い、最新環境では必ずPtrSafe宣言を記述する。型の厳密な使い分け：ポインタ・ハンドルのみ
LongPtrとし、通常の数値型（Long）と混同しない。安全設計の徹底：API呼び出しは例外時にプロセスごと強制終了するリスクがあるため、入力値の検証と
On Error処理をセットで実装する。
