Excel VBA 異なるExcelバージョンやファイル形式で正しく動作するか確認

以下のシーンで利用します。

1. 異なるExcelバージョン（例: 2007, 2013, 2016, 2019, 365）で動作確認する。

2. 「.xlsm」「.xls」「.xlsx」などのファイル形式の制約を確認する。

3. VBAの新機能が旧バージョンでは使えないかどうかをチェックする。

4. マクロが無効になる環境（例: Mac版ExcelやWeb版Excel）での対策を考える。

Option Explicit

Sub CheckExcelVersion() '標準モジュール
    MsgBox "現在のExcelバージョン: " & Application.Version, vbInformation, "バージョン情報"
End Sub

マクロ対応形式（.xlsm）かどうかをチェック
VBAが実行可能な形式 (.xlsm など) で保存されているかを判定できます。

Option Explicit

Sub CheckMacroEnabledWorkbook() '標準モジュール
    If ThisWorkbook.FileFormat = xlOpenXMLWorkbookMacroEnabled Then
        MsgBox "このファイルはマクロ有効ブック（.xlsm）です。", vbInformation, "互換性チェック"
    Else
        MsgBox "このファイルはマクロ無効ブック（.xlsx）です！マクロを実行できません。", vbExclamation, "互換性チェック"
    End If
End Sub

古いExcelバージョンで動作しない関数をチェック
例えば、Application.TextJoin はExcel 2019以降で導入されたため、古いバージョンではエラーになります。
バージョンごとに処理を分岐させるには、以下のようにします。

Option Explicit

Sub CheckFunctionCompatibility() '標準モジュール
    If Val(Application.Version) < 16 Then
        MsgBox "このバージョンではTEXTJOIN関数は使用できません。", vbExclamation, "互換性チェック"
    Else
        MsgBox "このバージョンではTEXTJOIN関数が使用可能です。", vbInformation, "互換性チェック"
    End If
End Sub

Mac版やWeb版での互換性チェック
MacやWeb版のExcelでは、ActiveXコントロール や Application.FileDialog など一部の機能が動作しません。
Macで実行中かどうかを判定するには、Application.OperatingSystem を使います

Option Explicit

Sub CheckIfMac() '標準モジュール
    If InStr(1, Application.OperatingSystem, "Mac", vbTextCompare) > 0 Then
        MsgBox "このマクロはMacでは動作しない可能性があります。", vbExclamation, "互換性チェック"
    Else
        MsgBox "Windows環境で動作しています。", vbInformation, "互換性チェック"
    End If
End Sub