原因は、VBAが未宣言の変数を自動的に作ってしまう仕組みにあります。スペルミスに気づけず、バグの特定に何時間もかかることも珍しくありません。

そんなトラブルを防いでくれるのが Option Explicit です。この記事では、VBA Option Explicitの意味・設定方法・実践コードをまとめて紹介します。

NOTE

VBEの起動方法や画面の見方は「VBE画面の見方」で解説しています。Alt + F11 でVBEを起動し、「挿入」→「標準モジュール」でコードを書く準備ができます。

VBA Option Explicitとは？

Option Explicit は、モジュール内のすべての変数に Dim などの宣言を必須にする命令です。

モジュールの先頭（宣言セクション）に1行書くだけでOK。宣言なしの変数があると コンパイルエラー になるので、スペルミスや未宣言の変数を即座に検出できます。

Option Explicit  '← モジュールの先頭に書くだけ

Sub SampleMacro()
    Dim sName As String '--- 変数を宣言してから使う ---
    sName = "田中太郎"
    MsgBox sName
End Sub

TIP

Option Explicitはモジュール単位で適用されます。プロジェクト内のすべてのモジュールに記述するか、後述の自動設定を有効にしておきましょう。

Option Explicitがないとどうなる？（スペルミスバグの実例）

「Option Explicitなしでも動くなら、なくていいのでは？」と思うかもしれません。でも実務では、これが原因で見つけにくいバグが発生します。

タイプミスで別変数が作られる

次のコードを見てください。total と書くべきところを totla とタイプミスしています。

Sub CalcWithoutOptionExplicit()
    Dim total As Long '--- 合計金額 ---
    total = 1000

    '--- タイプミスに気づかない ---
    totla = totla + 500  '← total ではなく totla

    MsgBox "合計: " & total  '--- 結果は 1000（500が加算されていない）---
End Sub

このコードを実行すると、エラーは出ません。totla が新しいVariant型変数として自動作成され、total には500が加算されないまま処理が進みます。結果は「合計: 1000」と表示されます。

金額計算でこのバグが混入すると、集計結果が数十万円ずれることもあります。しかもエラーが出ないので、数字を見比べるまで間違いに気づけません。

Option Explicitありなら一瞬で発見

同じコードにOption Explicitを付けると、結果はこう変わります。

Option Explicit

Sub CalcWithOptionExplicit()
    Dim total As Long '--- 合計金額 ---
    total = 1000

    '--- タイプミスに気づかない ---
    totla = totla + 500  '← ここでコンパイルエラーが発生
End Sub

F5キーで実行した瞬間、「コンパイル エラー: 変数が定義されていません。」と表示されます。totla がハイライトされるので、スペルミスの場所が一目瞭然です。

Option Explicitなしで起きる3つのトラブル

NOTE

数百行のマクロでこのバグが発生すると、原因の特定に何時間もかかります。Option Explicitを設定しておけば一瞬で見つかりますよ。変数の値をリアルタイムで追跡したいときは「ローカルウィンドウ」も合わせて使うと効率的です。

Option Explicitの基本的な使い方

宣言セクションに記述する

Option Explicitは、モジュールの 一番上（宣言セクション）に記述します。

Option Explicit

Sub SampleMacro()
    Dim sName As String '--- 氏名 ---
    sName = "田中太郎"
    MsgBox sName
End Sub

Option Explicit と Sub の間に区切り線が自動表示されます。宣言セクションとプロシージャの境目です。

動作確認してみよう

宣言した変数名と違う名前を使うとどうなるか、試してみましょう。

Option Explicit

Sub TestWithOptionExplicit()
    Dim sName As String '--- 氏名 ---
    sName = "田中太郎"

    '--- わざとスペルミスをする ---
    MsgBox sNaem  '← ここでコンパイルエラーが発生
End Sub

このコードをF5キーで実行すると sNaem がハイライトされます。スペルミスを即発見できますね。

比較として、Option Explicitがない場合も見てみましょう。

Sub TestWithoutOptionExplicit()
    Dim sName As String '--- 氏名 ---
    sName = "田中太郎"

    '--- わざとスペルミスをする ---
    MsgBox sNaem  '← エラーにならず空白のメッセージが表示される
End Sub

こちらはエラーが出ません。空のメッセージボックス が表示されるだけです。sNaem がVariant型変数として自動作成され、値はEmpty（空）になります。

Option Explicitを自動入力する設定方法

毎回手入力するのは手間ですよね。VBEの設定を変更すれば、新規モジュール作成時に自動で入力されるようになります。

VBEのオプションで「変数の宣言を強制する」を有効にする

1. VBEのメニューバーから [ツール] → [オプション] を開く
2. [編集] タブの「変数の宣言を強制する」にチェックを入れる
3. [OK] をクリック

これで、新しくモジュールを挿入するたびに Option Explicit が自動挿入されます。

既存モジュールへの反映

注意点がひとつあります。この設定は 新規モジュールにのみ 適用されます。

設定を有効にする前に作成したモジュールには反映されません。既存モジュールには手動で先頭に Option Explicit を追記してください。

TIP

まだ設定していない方は、この記事を読んでいる今がチャンスです。VBEを開いて [ツール] → [オプション] から設定しておきましょう。

変数の型宣言と組み合わせてVBAの品質を上げる

Option Explicitを設定すると、変数の型を意識する習慣が自然につきます。適切な型を指定すれば、処理速度とメモリ効率が改善しますよ。

よく使う型とメモリ比較

Variant型は便利ですが、Long型の4倍以上のメモリを消費します。大量データのマクロでは体感できるほど差が出ます。

型宣言を活かした実務コード

Rangeで最終行まで処理するコードを例に見てみましょう。

Option Explicit

Sub SpeedOptimizedMacro()
    Dim ws As Worksheet '--- 対象シート ---
    Dim i As Long '--- 行カウンター ---
    Dim lLastRow As Long '--- 最終行 ---
    Dim sResult As String '--- 処理結果 ---

    Set ws = ThisWorkbook.Sheets("Sheet1")
    lLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    '--- A列の値を順番に処理する ---
    For i = 2 To lLastRow
        If ws.Range("A" & i).Value <> "" Then
            sResult = sResult & ws.Range("A" & i).Value & vbCrLf
        End If
    Next i

    MsgBox "処理結果:" & vbCrLf & sResult
End Sub

すべての変数に型を指定しているので、スペルミスも型の曖昧さも発生しません。Do Loopを使う場合も同様に、ループ変数を Long で宣言しておくのがおすすめです。

定数（Const）との併用パターン

Option Explicitと合わせて、変更しない値は定数（Const）で宣言するのがおすすめです。

Option Explicit

'--- 定数の宣言 ---
Const START_ROW As Long = 2 '--- データ開始行 ---
Const SHEET_NAME As String = "売上データ" '--- 対象シート名 ---

Sub ProcessSalesData()
    Dim ws As Worksheet '--- 対象シート ---
    Dim i As Long '--- 行カウンター ---
    Dim lLastRow As Long '--- 最終行 ---
    Dim dTotal As Double '--- 合計金額 ---

    Set ws = ThisWorkbook.Sheets(SHEET_NAME)
    lLastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    '--- 売上金額を集計する ---
    For i = START_ROW To lLastRow
        dTotal = dTotal + ws.Range("C" & i).Value
    Next i

    MsgBox SHEET_NAME & "の合計金額: " & Format(dTotal, "#,##0") & "円"
End Sub

定数を使うメリットは2つあります。

• 変更が1か所で済む: シート名や開始行を変えたいとき、定数の値を変えるだけでOK
• 誤って値を変更できない: 定数に値を代入しようとするとコンパイルエラーになる

Option Explicitを使い忘れるパターンと対策

「設定したつもりなのに効いていない」というケースもあります。よくある原因を整理しておきましょう。

TIP

プロジェクトエクスプローラーで各モジュールを開き、先頭に Option Explicit があるか1つずつ確認するのが確実です。数が多いときは面倒ですが、一度チェックしてしまえば安心ですよ。

よくあるエラーと対処法

Option Explicitを使い始めると、いくつかのエラーに遭遇することがあります。

NOTE

「変数が定義されていません。」エラーが出たときは慌てなくて大丈夫です。VBEが原因の変数をハイライトしてくれるので、スペルを確認するか Dim 宣言を追加しましょう。

チームでVBAを管理するときのOption Explicit運用ルール

複数人がVBAを編集するプロジェクトでは、Option Explicitの有無がバグの温床になります。個人で使うときより一歩踏み込んだ運用ルールを決めておくと、引き継ぎのトラブルを減らせます。

全モジュールへの一括確認方法

プロジェクトを引き継いだ際は、すべてのモジュールにOption Explicitが書かれているか確認します。VBEのメニューから「編集 → 検索」で Option Explicit を検索し、ヒットしないモジュールを洗い出す方法が手早いです。

モジュールの種類ごとに確認する優先度は次の通りです。

新規モジュール作成時のミスを防ぐ

VBEの「ツール → オプション → 変数の宣言を強制する」にチェックを入れると、新しいモジュールを作成するたびにOption Explicitが自動挿入されます。チームメンバー全員にこの設定を徹底するのが最も確実な予防策です。

既存モジュールには自動設定の効果はないため、過去に作成されたファイルは手動で追記が必要です。VBAの変数宣言とデータ型の基礎も合わせて確認しておくと、Dim宣言の追加作業がスムーズです。

プロシージャをまたいだ変数に注意する

Option Explicitを後から追加した際にエラーになりやすいのが、プロシージャの外（モジュールレベル）に書かれた変数です。複数のSubやFunctionが同じ変数を共有している場合、その変数の宣言箇所を見落とすとエラーが出続けます。

Option Explicit

' モジュールレベル変数（全プロシージャから参照可）
Private wsTarget As Worksheet
Private lastRow As Long

モジュールレベル変数はPrivateで宣言し、必要な場合のみPublicにするのがプロジェクト・モジュール構成の基本です。

Option Explicitのよくある質問（FAQ）

Q1. Option ExplicitはすべてのモジュールタイプでDimを要求する？

はい。標準モジュール、クラスモジュール、UserFormのコードビハインド、オブジェクトモジュール（Sheet1やThisWorkbookなど）のいずれでも、Option Explicitを記述するとそのモジュール内のすべての変数にDim/Public/Private/Staticいずれかの宣言が必要になります。

モジュールをまたいだ設定（プロジェクト全体への一括設定）はできません。VBEのオプションで「変数の宣言を強制する」を有効にしておくと、新しく作ったモジュールに自動挿入されます。

Q2. Option ExplicitとOption Compareは何が違う？

別の機能です。

• Option Explicit: 変数宣言を強制する（未宣言変数のコンパイルエラー検出）
• Option Compare Text / Binary: 文字列比較の大文字・小文字の扱いを設定する

Option Compare Textを設定すると「A」と「a」を同一として比較します。Option Compare Binary（デフォルト）はバイナリ比較なので「A」≠「a」です。Option Explicitとは目的がまったく異なりますが、同じ宣言セクションに複数記述できます。

Option Explicit
Option Compare Text

Q3. On Error Resume Nextと組み合わせると効果が薄まる？

その通りです。On Error Resume Next をコード中に記述するとエラーが発生しても処理が続行されます。Option Explicitのコンパイルエラーは実行前に検出されるため影響を受けませんが、実行時エラーについてはOn Errorで回避されます。

デバッグをしやすくするためにも、On Error Resume Nextの使用箇所は最小限にとどめ、エラー処理は On Error GoTo ErrorHandler パターンで明示的に書くのがVBAのベストプラクティスです。

Q4. Option ExplicitなしでDimだけを使えばよいのでは？

Dimを書いても、書き忘れた変数（タイプミスで生まれた変数）はVariant型として自動作成されます。Option Explicitがないと「宣言した変数名と違う名前」を使ってもエラーにならないのが問題です。

Option ExplicitはDimの書き忘れと同時に「宣言していない変数へのアクセス」を禁止するので、スペルミス由来のバグを確実に防げます。両方を組み合わせて使うことに意味があります。

Q5. 後からOption Explicitを追加すると既存コードは壊れる？

Option Explicitを追加した時点で、そのモジュール内に未宣言の変数があればコンパイルエラーになります。ただし「壊れる」のではなく「未宣言だった変数が可視化される」というのが正確です。

追加後にF5キーで実行すると、コンパイルエラーで未宣言変数がハイライトされます。表示された変数を確認しながら順番にDim宣言を追加していけばOKです。既存コードが多い場合は、一気に修正しようとせず、エラー1件ずつ対処するのがやりやすいですよ。

まとめ

Option Explicitは、VBAの品質を底上げしてくれる設定です。この記事の内容を振り返っておきましょう。

まだ設定していない方は、今すぐVBEを開いて設定してみてください。たった1回の操作でデバッグ時間が大幅に減りますよ。

関連記事

VBAの基礎を固めたい方は、こちらの記事もあわせてどうぞ。

• VBE画面の見方
• 変数の使い方とルール
• Rangeの使い方
• Do Loopの使い方
• ローカルウィンドウの使い方
• Like演算子の使い方