条件付きコンパイル（32ビット64ビットの互換性）
条件付きコンパイルは、
VBAの特定のコードブロックを選択してコンパイルします、VBAの他の部分は無視されます、
条件付きコンパイルステートメントは、実行時ではなくコンパイル時に実行されます。
#If...Then...#Else ディレクティブを使用します。
（ディレクティブという言い方をするだけで、特段気にする必要はありません）
Decrareステートメント
モジュール定数・変数の宣言
プロシージャ内のステートメント
これら全てに有効なものです。
したがって、32ビットと64 ビットで、処理ロジックを変えることも可能です。
デバッグ時と本番を切り替えたりにも使いますが、
一番よく使われるのは、
Excel32ビットとExcel64 ビットの互換性を保つ為に、共通のVBAソースコードにする場合です。
具体的には、Win32APIを使用しているとき、
Excel32ビットとExcel64 ビットでは、Declareステートメントを変えなければなりません。
※Excel32ビット
Excel2007以前の32ビットになります。
Excel2010以降では、32ビットのExcelでも、も64 ビットの記述で問題ありません。
Office 2010 の 32 ビット バージョンと 64 ビット バージョンとの互換性
64 ビット Visual Basic for Applications の概要
コンパイラ定数
Declare Function GetActiveWindow Lib "user32" () As Long
この記述では、64ビットでは実行時エラーとなります。
Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
この記述では、32ビットでは、コンパイルエラーとなります。
VBA7では、
APIのDeclare ステートメントを更新して、64 ビット バージョンで動作するようにしなければなりません。
これらのステートメントで使われているアドレス ポインターおよび表示ウィンドウ ハンドルを更新することも必要です。
64ビットでは、以下の機能が追加されています。
LongPtr
変数型エイリアスLongPtr が追加されています。
LongPtr が解決される実際のデータ型は、実行しているOfficeのバージョンによって決まります。
32 ビット版ではLongPtはLongに解決され、64 ビットではLongPtrはLongLongに解決されます。
LongPtrはポインターおよびハンドラーに使用します。
LongLong
LongLong データ型は符号付きの 64 ビット整数であり、64 ビットでのみ使用できます。
PtrSafe
PtrSafe キーワードは、Declare ステートメントが 64 ビット版の Office で実行しても安全であることを示します。
64 ビット版のOfficeで実行するときは、
すべてのDeclareステートメントにPtrSafeキーワードが含まれている必要があります。
PtrSafeをDeclareステートメントに追加しただけではDeclareステートメントが64 ビットを対象にしていることを示しているだけです。
64 ビットを格納する必要があるステートメント内のすべてのデータ型を、64 ビットの大きさを保持するように変更する必要がります。
APIのDeclare ステートメントを更新して、64 ビット バージョンで動作するようにしなければなりません。
これらのステートメントで使われているアドレス ポインターおよび表示ウィンドウ ハンドルを更新することも必要です。
64ビットでは、以下の機能が追加されています。
変数型エイリアスLongPtr が追加されています。
LongPtr が解決される実際のデータ型は、実行しているOfficeのバージョンによって決まります。
32 ビット版ではLongPtはLongに解決され、64 ビットではLongPtrはLongLongに解決されます。
LongPtrはポインターおよびハンドラーに使用します。
LongLong データ型は符号付きの 64 ビット整数であり、64 ビットでのみ使用できます。
PtrSafe キーワードは、Declare ステートメントが 64 ビット版の Office で実行しても安全であることを示します。
すべてのDeclareステートメントにPtrSafeキーワードが含まれている必要があります。
PtrSafeをDeclareステートメントに追加しただけではDeclareステートメントが64 ビットを対象にしていることを示しているだけです。
64 ビットを格納する必要があるステートメント内のすべてのデータ型を、64 ビットの大きさを保持するように変更する必要がります。
このDecrareステートメントを、
32ビット、64 ビットのどちらでも、実行可能なVBAコードにするには、
条件付きコンパイルを使用して、
#If Vba7 Then
Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
#Else
Declare Function GetActiveWindow Lib "user32" () As Long
#End If
このように、
#If...Then...#Elseディレクティブ
を使用します。
64ビットでは、コンパイルエラーの赤字にはなりません。
Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
がコンパイルされ、
32ビットでは、
Declare Function GetActiveWindow Lib "user32" () As Long
がコンパイルされます。
の部分を、
#If VBA7 And Win64 Then
としてサンプルが書かれているものをよく見かけますが、64ビット版のOfficeでは、VBAのバージョンが7を使用しているということで、
Vba7、Win64のどちらで判断しても、今回の場合は同じことになります。
Vba7条件付きコンパイラ定数は、
コードがバージョン7のVBエディター(Office2010以降に付属するVBAのバージョン)で実行するかどうかを判別するために使用されます。
Win64条件付きコンパイル定数は、
実行しているOfficeの版 (32ビットまたは64ビット) を特定するために使用されます。
使用できるコンパイラ定数は以下になります。
| 定数 | 説明 |
| Vba6 | 開発環境が、Visual Basic for Applications Version 6.0 互換の場合に True、以外は False |
| Vba7 | 開発環境が、Visual Basic for Applications Version 7.0 互換の場合に True、以外は False |
| Win16 | 開発環境が、16 ビット互換の場合に True、以外は False |
| Win32 | 開発環境が、32 ビット互換の場合に True、以外は False |
| Win64 | 開発環境が、64 ビット互換の場合に True、以外は False |
| Mac | 開発環境が、Macintoshである場合に True、以外は False |
とくに難しいこともありません。
ただ、個人的には、
32ビットで、Decrareが赤字のコンパイルエラーになってしまうのは、どうも気色が悪いですね。
ただ、Excelのバージョンも2010以降が主力になりつつあるので、
このような問題も、今後は無くなってくると思います。
同じテーマ「マクロVBA技術解説」の記事
オブジェクトとプロパティについて、解説をします。対象は、VBA中級以上になると思いますが、初級の方でも、VBAって奥が深いんだなーと感動位は出来ると思います。（笑） ただし、あまり役には立たないかもしれませんので、あしからず。
オブジェクト式について・オブジェクト式の書き方 ・オブジェクトは直接指定できない ・オブジェクト式の書き始めは何か ・メソッドとプロパティの違いについて ・オブジェクト式の最後に
オブジェクトの探索方法（オートシェイプのTextを探して）・オブジェクト探索の説明で使う例題 ・自動記録を使ってオートシェイプの概要を知る ・ローカルウィンドウでオートシェイプのテキストを調べる ・オートシェイプの位置移動について ・VBAを完成させる ・オブジェクトブラウザーを使いさらにオブジェクトを調べる ・ウォッチウィンドウについて
条件付きコンパイル（32ビット64ビットの互換性）ドキュメントプロパティ（BuiltinDocumentProperties,CustomDocumentProperties）
・組み込みドキュメントプロパティ（BuiltinDocumentProperties） ・組み込みドキュメントプロパティを一覧出力 ・組み込みドキュメントプロパティの値を変更する ・組み込みドキュメントプロパティを消去する ・ ・ユーザー設定のドキュメントプロパティを一覧出力 ・ユーザー設定のドキュメントプロパティを追加する ・ユーザー設定のドキュメントプロパティを削除する
VBAでファイルを既定のアプリで開く方法・実行テストメイン ・Shell関数 ・batファイル（コマンド プロンプト） ・WScript.Shell ・Shell.Application ・FollowHyperlink ・最後に
Excelアドインの作成と登録について・Excelアドインについて ・アドインファイルのフォルダ ・アドインの作り方 ・アドインの登録と有効化 ・ ・アドインで保存するVBA ・アドインを登録するVBA ・アドインを有効化するVBA ・登録されているアドインを確認するVBA ・アドインマネージャーを表示するVBA ・アドイン配布時に自動登録するVBA ・個人用マクロブックについて
VBAでのタイマー処理（SetTimer,OnTime）・Application.OnTime メソッド ・WindowsAPI:SetTimer関数 ・最後に
マクロでShift_JIS文字コードか判定する・文字コードについて ・UnicodeにあってShift_JISにない文字の具体例 ・シート構成 ・配列数式での判定 ・Shift_JIS文字コードか判定するマクロVBA全コード ・最後に
Byte配列と文字コード関数について・文字列をByte配列に入れる ・文字コードについて ・文字列をByte配列に入れて、文字列に戻す ・文字列をByte配列に入れて、自力で文字列に戻す ・文字列をSJISに変換してからByte配列にいれて、自力で文字列に戻す ・最後に
Applicationを省略できるApplicationのメソッド・プロパティ一覧・Applicationを省略できるかどうかの確認 ・Applicationを省略できるApplicationのメソッド一覧 ・Applicationを省略できるApplicationのプロパティ一覧 ・最後に一言
新着記事NEW ・・・新着記事一覧を見る
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
累計を求める数式あれこれ｜エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE｜エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。｜エクセル雑感(2023-12-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- 条件付きコンパイル（32ビット64ビットの互換性）
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。