厄介な「停止」サイン
複雑なマクロを完成させるために3時間を費やしたとしましょう。実行ボタンを押し、完成したレポートを期待したその瞬間、モーダルボックスがあなたを制止します。実行時エラー '438'。このエラーは、プログラミングにおいて「車に空を飛べ」と命じるようなものです。VBAは操作しようとしているオブジェクト自体は認識していますが、与えられた特定のコマンドをどのように実行すればよいのか、見当もつかない状態です。
通常、これは単純なタイポ（入力ミス）、Excelオブジェクトモデルの誤解、またはライブラリの競合によって発生します。このバグを特定し、完全に解消する方法を解説します。
エラー 438 が発生する理由
- 単純なタイポ：
.Valueの代わりに.Valuと書いたり、.Sheets("Data")の代わりに.Sheet("Data")と書いたりする場合です。一文字足りないだけでもクラッシュの原因になります。 - レイトバインディング（遅延結合）： 変数を
As Objectとして宣言すると、VBAはコードが実際に実行されるまでメソッドが存在するかどうかを確認できません。これにより、エラーが実行の直前まで隠れてしまいます。 - オブジェクトの混同： Worksheetオブジェクトに対してRangeメソッドを使おうとするケースです。例えば、
ActiveSheet.Value = 500は失敗します。ワークシートはセルを含んでいますが、ワークシート自体はセルではないからです。 - バージョンの差異： 最近のOffice 365で導入された
.Uniqueのようなプロパティを、Excel 2013で実行しようとした場合に発生します。
ステップ 1：問題の行を特定する
エラーが表示されたら、デバッグをクリックしてください。VBAが問題のある行を明るい黄色でハイライトします。これが「動かぬ証拠」です。
' このコードはエラー 438 を引き起こします
Sub BrokenMacro()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Data")
' エラー：ワークシートには名前や色がありますが、.Value プロパティはありません
ws.Value = "Monthly Report"
End Sub
このスニペットでは、ws はシート全体を表しています。修正するには、特定のセルをターゲットにする必要があります：ws.Range("A1").Value = "Monthly Report"。
ステップ 2：レイトバインディングの問題を修正する
開発者は、異なるバージョンのOfficeでマクロを動作させるためにレイトバインディングをよく使用します。しかし、これによりインテリセンス（入力候補メニュー）が無効になり、ミスを見逃しやすくなります。次の例を見てみましょう：
Dim app As Object
Set app = CreateObject("Excel.Application")
app.Visble = True ' タイポ：正しくは .Visible
VBAは、コードを実行するまで .Visble をエラーとしてフラグを立てません。開発中はこれを防ぐために、一時的に**アーリーバインディング（事前結合）**に切り替えてください：
- VBAエディタで ツール > 参照設定 を開きます。
- Microsoft Excel 16.0 Object Library（バージョン番号は異なる場合があります）を探してチェックを入れます。
- 宣言を
As ObjectからAs Excel.Applicationに変更します。
これで、app の後にドットを入力するとすぐにドロップダウンメニューが表示されます。そのリストにプロパティがなければ、VBAはその操作をサポートしていません。
ステップ 3：階層構造を守る
Excelには厳格な指揮系統があります：Application > Workbook > Worksheet > Range。エラー 438 は、間違ったレベルの階層に対して命令を下そうとしたときに頻繁に発生します。
' 誤り：ブック全体をクリアすることはできません
ActiveWorkbook.ClearContents
' 正解：どのシートのどのセルをクリアするかを VBA に指示する必要があります
ActiveWorkbook.Sheets(1).UsedRange.ClearContents
オブジェクトの正体が不明な場合は、イミディエイトウィンドウ（Ctrl + G）を使用してください。?TypeName(YourVariable) と入力してEnterキーを押すと、操作しているオブジェクトの正確な種類が表示されます。
ステップ 4：バージョンの互換性を確認する
自分のマシンでは動くのに、同僚のコンピュータでは失敗するということはありませんか？最新の機能を使用している可能性があります。例えば、ActiveWorkbook.Queries プロパティはPower Queryをサポートするために追加されました。このコードをExcel 2010で実行すると、Excel 2010には「Query」オブジェクトという概念がないため、エラー 438 が発生します。
修正内容を確認する方法
- こまめにコンパイルする： デバッグ > VBAProject のコンパイル を実行します。これにより、マクロ全体を実行しなくても、構文エラーやサポートされていないメソッドをスキャンできます。
- 変数の宣言を強制する： モジュールの最上部に
Option Explicitを追加します。これにより、すべての変数を定義する必要が生じ、一般的なオブジェクトエラーの90%を防ぐことができます。 - ステップ実行 (F8)： F8キーを使用して、コードを1行ずつ実行します。ローカルウィンドウを開いたままにして、変数がリアルタイムで変化する様子を観察してください。
今後のクラッシュを防ぐためのプロのヒント
- 「ドット」を信頼する： ドットを入力しても目的のプロパティが自動補完リストに表示されない場合は、入力を止めてください。おそらく間違ったオブジェクトタイプを使用しています。
- 'ActiveSheet' を避ける：
ActiveSheetはワイルドカードのようなものです。ユーザーが標準のワークシートではなくグラフを選択している場合、ActiveSheet.Range("A1")はクラッシュします。安定性を高めるために、常にWorksheets("SheetName")を使用してください。 - マクロ記録されたコードを整理する： マクロ記録機能は
Selectionに大きく依存しています。これは非常に壊れやすいことで知られています。Selectionを特定の変数に置き換えることで、堅牢なコードになります。