VBAが「何も起こらない」ときは、エラーではなく「そもそも実行されていない・条件に合っていない・結果が見えていない」の3パターンが大半です。チェックリスト順に確認することで、原因を素早く特定して対処できます。
この記事では、次の内容を順番に解説します。
- マクロが実行されない原因（有効化・ファイル形式）
- 起動方法のミス（ボタン・ショートカット）
- 処理は動いているが結果が見えていないケース
- On Error Resume Nextによるエラーの隠れ
- 条件分岐で処理がスキップされているケース
マクロが有効になっているかを確認するには？
最初に確認すべき基本中の基本です。マクロが無効になっていると、コードが正しくても一切動きません。
| 確認項目 | 確認方法 |
|---|---|
| コンテンツの有効化 | ファイルを開いたとき上部に「セキュリティの警告」が出たら「コンテンツの有効化」をクリックする |
| ファイル形式 | ファイルが .xlsm（マクロ有効ブック）または .xlsb で保存されているか確認する |
| マクロの設定 | 「ファイル」→「オプション」→「トラストセンター」→「マクロの設定」で「VBAマクロを有効にする」を選択する |
注意：.xlsx 形式で保存するとVBAのコードが削除されます。マクロを使うファイルは必ず .xlsm で保存してください。
マクロが正しく実行されているかを確認するには？
コードが正しくてもマクロが起動されていなければ何も起きません。ボタン・ショートカット・マクロ名の不一致が多いです。
手動で実行して確認する手順：
- 「開発」タブ→「マクロ」ボタンをクリックする
- 実行したいマクロ名を選択する
- 「実行」ボタンを押す
手動実行で動けば、ボタンやショートカットの設定ミスが原因です。
| よくある起動ミス | 確認方法 |
|---|---|
| ボタンに別のマクロが割り当てられている | ボタンを右クリック→「マクロの登録」で確認する |
| プロシージャ名のスペルミス | マクロ一覧（Alt+F8）で正しい名前を確認する |
| 別のブックのマクロを実行している | マクロ一覧の「マクロの保存先」を「作業中のブック」に変更する |
処理は動いているが結果が見えていない場合を確認するには？
エラーなく実行が終わるのに画面が変わらない場合、処理自体は動いていますが「見える変化」がないコードになっている可能性があります。
'これは変数に値をセットするだけで、画面には何も変わらない
Sub Sample()
Dim r As Range
Set r = Range("A1")
End Sub
'MsgBoxやセル書き込みを加えると確認できる
Sub SampleFixed()
Dim r As Range
Set r = Range("A1")
MsgBox "A1の値：" & r.Value '← これで確認できる
End Sub
動作確認中は MsgBox や Debug.Print を使って、処理が実際に走っているか確認するクセをつけましょう。
On Error Resume Nextでエラーが隠れていないかを確認するには？
On Error Resume Next が入っているコードは、エラーが起きても処理を続けてしまいます。「何も起こらない」のではなく「エラーが隠れて見えていない」状態です。
'On Error Resume Nextがあるとエラーを無視して進む
Sub HiddenError()
On Error Resume Next
Dim ws As Worksheet
Set ws = Sheets("存在しないシート") 'エラーが出るはずだが…
ws.Range("A1").Value = "テスト" 'wsがNothingなのにここも実行される
MsgBox "完了" '← エラーなく表示されてしまう
End Sub
デバッグ中は On Error Resume Next の行を一時的にコメントアウトして、エラーを表示させましょう。
'デバッグ中はコメントアウトする
Sub DebugMode()
' On Error Resume Next '← デバッグ中はコメントアウト
Dim ws As Worksheet
Set ws = Sheets("存在しないシート") 'エラーが表示されるようになる
End Sub
条件分岐で処理がスキップされていないかを確認するには？
If文の条件が満たされていないと、その中の処理は一切実行されません。「動いているのに何も起こらない」というときはまずここを疑います。
'A1に「開始」と入っていないと何も起こらない
Sub ConditionalSample()
If Range("A1").Value = "開始" Then
MsgBox "処理を開始します"
End If
End Sub
条件が満たされているか確認するには、条件式を一時的に MsgBox で表示させる方法が手軽です。
'条件の中身を確認する
Sub DebugCondition()
MsgBox "A1の値：[" & Range("A1").Value & "]" '空白や半角スペースも見える
If Range("A1").Value = "開始" Then
MsgBox "条件に合いました"
End If
End Sub
値の前後に余分なスペースが入っていたり、全角・半角が混在していたりするケースもよくあります。
動かない原因を素早く切り分けるには？
「動かない」と気づいたときの確認手順をまとめます。この順番でチェックすると原因を最短で特定できます。
| 順番 | 確認内容 | チェック方法 |
|---|---|---|
| 1 | ファイルが .xlsm 形式か | タイトルバーのファイル名の拡張子を確認 |
| 2 | マクロが有効化されているか | 「コンテンツの有効化」をクリックしたか確認 |
| 3 | 手動実行（Alt+F8）で動くか | マクロ一覧から直接実行してみる |
| 4 | On Error Resume Nextがあるか | コードを検索（Ctrl+F）して確認・コメントアウト |
| 5 | 条件が満たされているか | 条件の値をMsgBoxで表示して確認 |
| 6 | 結果が出る処理になっているか | MsgBoxやDebug.Printを追加して実行を確認 |
まとめ
- 「何も起こらない」の原因はエラーだけではない。有効化・形式・起動方法・条件・エラー隠れの5パターンを順番に確認する
- .xlsx 形式ではマクロが保存されないため、必ず .xlsm で保存する
- まず Alt+F8で手動実行して動くか確認する。動けばボタン・ショートカットの設定ミスが原因
On Error Resume Nextはデバッグ中はコメントアウトしてエラーを表示させる- 条件分岐の値確認は
MsgBoxで値を表示すると、スペースや全角・半角の違いにも気づける
よくある質問
「開発」タブが表示されていません
「ファイル」→「オプション」→「リボンのユーザー設定」→右側の一覧から「開発」にチェックを入れてOKを押すと表示されます。
マクロ一覧（Alt+F8）を開いても何も表示されません
コードがVBEの標準モジュールではなく、シートモジュールやThisWorkbookに書かれている場合、マクロ一覧に表示されないことがあります。また Private Sub として宣言されているプロシージャも一覧に出ません。VBEでモジュールを直接確認してみてください。
コードを変更したのに古い動作をしています
変更後に保存（Ctrl+S）していないか、別のブックに同名のマクロがあって混在している可能性があります。マクロの保存先を「作業中のブック」に指定して実行してみてください。
マクロは実行されているようだが対象セルに何も書かれません
シート名やセル番地が実際のシート構成と合っていない可能性があります。MsgBox ActiveSheet.Name でどのシートに対して実行されているか確認し、意図しないシートが対象になっていないか確認してください。
前はちゃんと動いていたのに急に動かなくなりました
Excelのアップデートによるマクロセキュリティ設定の変更、シート名・列構成の変更、ネットワークドライブから開いたことによる制限など、環境の変化が原因のことが多いです。まずマクロを有効化し直し、手動実行で動くか確認するところから始めてみてください。
動画で学びたい方へ
「記事を読んでも、実際に自分で書けるか不安…」という方には、動画で基礎からじっくり学べる講座がおすすめです。
VBAが初めての方を前提に、つまずきやすいポイントを先回りして解説しています。サンプル動画は無料でご覧いただけます。
