イベント処理

VBA でマクロを作成する際、「セルの値が変更されたら自動で処理を実行したい」「ブックを開いたときに初期設定を行いたい」といった要求は非常に多くあります。こうした「特定の操作が行われたときに自動的に処理を実行する」仕組みが**イベント処理（イベントプロシージャ）**です。

この記事では、VBA のイベント処理の基本的な仕組みから、実務で頻繁に使用される主要なイベントの活用方法まで詳しく解説します。

イベント処理とは

イベント処理とは、ユーザーの操作や Excel の状態変化をきっかけ（トリガー）にして、VBA のコードを自動的に実行する仕組みです。通常のマクロは手動で実行しますが、イベントプロシージャを使えば、特定の条件が満たされたときに自動で処理を走らせることができます。

イベント処理が必要となるシチュエーション

実務では、以下のような場面でイベント処理が必要になります：

• 入力データの自動チェック: セルに値が入力されたときに、即座にバリデーションを実行する
• 自動計算・連動更新: あるセルの値が変更されたとき、関連するセルを自動で更新する
• 初期設定の自動実行: ブックを開いたときに、特定のシートを表示したり、初期値を設定する
• 操作ログの記録: ユーザーの操作履歴をログとして自動記録する
• UI の動的制御: シートの切り替え時にボタンの表示/非表示を制御する

イベントの種類

VBA のイベントは、主に以下の 3 つのレベルに分類されます：

ワークシートイベント

ワークシートイベントは、特定のシート上で発生する操作に対して処理を実行します。対象シートのコードモジュールに記述します。

イベントプロシージャの作成方法

1. VBE（Visual Basic Editor）を開く（Alt + F11）
2. プロジェクトエクスプローラーから対象のシートをダブルクリック
3. コードウィンドウ上部の左側ドロップダウンで「Worksheet」を選択
4. 右側ドロップダウンから目的のイベントを選択

Worksheet_Change - セルの値が変更されたとき

最も使用頻度の高いイベントです。ユーザーがセルの値を変更したときに発生します。

Private Sub Worksheet_Change(ByVal Target As Range)
    ' A列のセルが変更されたときだけ処理を実行
    If Target.Column = 1 Then
        MsgBox "A列のセル " & Target.Address & " が変更されました。"
    End If
End Sub

特定のセル範囲を監視する

Intersect 関数を使うことで、特定のセル範囲が変更されたときだけ処理を実行できます。

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 監視対象のセル範囲を定義
    Dim watchRange As Range
    Set watchRange = Me.Range("B2:D10")

    ' 変更されたセルが監視対象に含まれるか確認
    If Intersect(Target, watchRange) Is Nothing Then
        Exit Sub
    End If

    ' 変更されたセルごとに処理を実行
    Dim cell As Range
    For Each cell In Intersect(Target, watchRange)
        ' 数値以外が入力された場合にエラーメッセージを表示
        If Not IsNumeric(cell.Value) And cell.Value <> "" Then
            MsgBox "セル " & cell.Address & " には数値を入力してください。", vbExclamation
            Application.Undo
            Exit Sub
        End If
    Next cell
End Sub

イベントの再帰を防ぐパターン

Private Sub Worksheet_Change(ByVal Target As Range)
    ' A列の入力を大文字に自動変換する例
    If Target.Column <> 1 Then Exit Sub

    ' イベントを一時的に無効化
    Application.EnableEvents = False

    Dim cell As Range
    For Each cell In Target
        If Not IsEmpty(cell.Value) Then
            cell.Value = UCase(cell.Value)
        End If
    Next cell

    ' イベントを再度有効化
    Application.EnableEvents = True
End Sub

エラーハンドリングと組み合わせた安全なパターン

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub

    On Error GoTo ERROR_HANDLER
    Application.EnableEvents = False

    ' セルの値に基づいてステータスを自動更新
    Dim cell As Range
    For Each cell In Intersect(Target, Me.Range("A:A"))
        Select Case cell.Value
            Case "完了"
                cell.Offset(0, 1).Value = Now
                cell.Interior.Color = RGB(200, 255, 200)
            Case "未着手"
                cell.Offset(0, 1).Value = ""
                cell.Interior.Color = RGB(255, 255, 200)
            Case "進行中"
                cell.Interior.Color = RGB(200, 220, 255)
        End Select
    Next cell

FINALLY:
    Application.EnableEvents = True
    Exit Sub

ERROR_HANDLER:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
    Resume FINALLY
End Sub

Worksheet_SelectionChange - セルの選択が変更されたとき

ユーザーが別のセルを選択したときに発生するイベントです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 選択されたセルの行をハイライト表示する
    Cells.Interior.ColorIndex = xlNone

    If Target.Row > 1 Then
        Target.EntireRow.Interior.Color = RGB(230, 240, 255)
    End If
End Sub

Worksheet_BeforeDoubleClick - セルをダブルクリックしたとき

セルをダブルクリックしたときに、通常の編集モード（F2 キー）に入る代わりに、独自の処理を実行できます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' A列をダブルクリックしたときにチェックマークを切り替える
    If Target.Column = 1 Then
        Cancel = True  ' 通常の編集モードをキャンセル

        If Target.Value = "✓" Then
            Target.Value = ""
        Else
            Target.Value = "✓"
        End If
    End If
End Sub

Worksheet_BeforeRightClick - セルを右クリックしたとき

セルを右クリックしたときに発生するイベントです。カスタムメニューの表示などに活用できます。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' 特定の範囲で右クリックメニューを無効化
    If Not Intersect(Target, Me.Range("A1:D20")) Is Nothing Then
        Cancel = True
        MsgBox "この範囲では右クリックメニューは使用できません。", vbInformation
    End If
End Sub

Worksheet_Activate / Worksheet_Deactivate - シートの切り替え

Private Sub Worksheet_Activate()
    ' シートがアクティブになったときの処理
    Application.StatusBar = "シート「" & Me.Name & "」が選択されました"
    Me.Range("A1").Select
End Sub

Private Sub Worksheet_Deactivate()
    ' シートが非アクティブになったときの処理
    Application.StatusBar = False
End Sub

Worksheet_Calculate - シートの再計算時

ワークシートの再計算が完了したときに発生します。数式の結果に基づいた処理を行いたい場合に使用します。

Private Sub Worksheet_Calculate()
    ' 合計セルの値が予算を超えたら警告
    If Me.Range("E1").Value > 1000000 Then
        Me.Range("E1").Interior.Color = RGB(255, 200, 200)
        Application.StatusBar = "警告: 合計金額が予算を超過しています！"
    Else
        Me.Range("E1").Interior.ColorIndex = xlNone
        Application.StatusBar = False
    End If
End Sub

ワークブックイベント

ワークブックイベントは、ブック全体に関わる操作に対して処理を実行します。VBE の「ThisWorkbook」モジュールに記述します。

Workbook_Open - ブックを開いたとき

ブックが開かれたときに一度だけ実行されるイベントです。初期設定や環境構築に最適です。

Private Sub Workbook_Open()
    ' 初期設定
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic

    ' 特定のシートを表示
    Sheets("メニュー").Activate

    ' ステータスバーに起動メッセージ
    Application.StatusBar = "ブックが正常に読み込まれました - " & Format(Now, "yyyy/mm/dd hh:nn:ss")

    ' 3秒後にステータスバーをリセット
    Application.OnTime Now + TimeValue("00:00:03"), "ResetStatusBar"
End Sub

Workbook_BeforeClose - ブックを閉じる前

ブックが閉じられる前に発生するイベントです。保存確認やクリーンアップ処理に使います。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim answer As VbMsgBoxResult
    answer = MsgBox("ブックを閉じてもよろしいですか？", vbYesNo + vbQuestion)

    If answer = vbNo Then
        Cancel = True  ' 閉じる操作をキャンセル
        Exit Sub
    End If

    ' クリーンアップ処理
    Application.StatusBar = False
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Workbook_BeforeSave - ブックを保存する前

ブックが保存される前に発生するイベントです。保存前のバリデーションや自動処理に活用できます。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 保存前にすべての入力データを検証
    Dim ws As Worksheet
    Set ws = Sheets("データ入力")

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = 2 To lastRow
        If IsEmpty(ws.Cells(i, 1).Value) Then
            MsgBox "行 " & i & " にデータが不足しています。保存前に入力してください。", vbExclamation
            Cancel = True
            ws.Cells(i, 1).Select
            Exit Sub
        End If
    Next i

    ' 最終更新日時を記録
    ws.Range("Z1").Value = "最終保存: " & Format(Now, "yyyy/mm/dd hh:nn:ss")
End Sub

Workbook_NewSheet - 新しいシートが追加されたとき

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    ' 新しいシートに標準フォーマットを適用
    With Sh
        .Range("A1:Z1").Font.Bold = True
        .Range("A1:Z1").Interior.Color = RGB(200, 200, 200)
        .Columns("A:Z").ColumnWidth = 15
    End With

    MsgBox "新しいシート「" & Sh.Name & "」の書式を設定しました。", vbInformation
End Sub

Workbook_SheetChange - 全シート共通の変更検知

個別のシートではなく、ブック内のすべてのシートに対して変更を検知したい場合に使用します。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' すべてのシートの変更ログを記録
    Dim logSheet As Worksheet

    On Error Resume Next
    Set logSheet = Sheets("変更ログ")
    On Error GoTo 0

    If logSheet Is Nothing Then Exit Sub

    Dim nextRow As Long
    nextRow = logSheet.Cells(logSheet.Rows.Count, 1).End(xlUp).Row + 1

    logSheet.Cells(nextRow, 1).Value = Now
    logSheet.Cells(nextRow, 2).Value = Sh.Name
    logSheet.Cells(nextRow, 3).Value = Target.Address
    logSheet.Cells(nextRow, 4).Value = Target.Value
End Sub

ワークシートイベント一覧

主要なワークシートイベントの一覧です：

ワークブックイベント一覧

主要なワークブックイベントの一覧です：

実践的な活用例

活用例1：データ入力フォームの自動処理

ドロップダウンリストで選択された値に応じて、関連するセルを自動設定する例です。

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 商品コード列（B列）が変更されたときに、商品名と単価を自動設定
    If Intersect(Target, Me.Range("B2:B100")) Is Nothing Then Exit Sub

    On Error GoTo ERROR_HANDLER
    Application.EnableEvents = False

    Dim cell As Range
    For Each cell In Intersect(Target, Me.Range("B2:B100"))
        If cell.Value <> "" Then
            ' 商品マスタシートから情報を取得
            Dim productName As Variant
            Dim unitPrice As Variant

            productName = Application.VLookup(cell.Value, Sheets("商品マスタ").Range("A:C"), 2, False)
            unitPrice = Application.VLookup(cell.Value, Sheets("商品マスタ").Range("A:C"), 3, False)

            If Not IsError(productName) Then
                cell.Offset(0, 1).Value = productName  ' C列に商品名
                cell.Offset(0, 2).Value = unitPrice     ' D列に単価
            Else
                cell.Offset(0, 1).Value = "不明"
                cell.Offset(0, 2).Value = 0
                MsgBox "商品コード「" & cell.Value & "」が見つかりません。", vbExclamation
            End If
        Else
            ' 商品コードがクリアされたら関連セルもクリア
            cell.Offset(0, 1).ClearContents
            cell.Offset(0, 2).ClearContents
        End If
    Next cell

FINALLY:
    Application.EnableEvents = True
    Exit Sub

ERROR_HANDLER:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
    Resume FINALLY
End Sub

活用例2：ブックの初期化と終了処理

' === ThisWorkbook モジュールに記述 ===

Private Sub Workbook_Open()
    ' 画面のちらつきを抑制
    Application.ScreenUpdating = False

    ' メニューシートを表示
    Sheets("メニュー").Activate
    Range("A1").Select

    ' ユーザー名を記録
    Sheets("設定").Range("B1").Value = Application.UserName
    Sheets("設定").Range("B2").Value = Now

    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 未保存の変更がある場合の確認
    If Me.Saved = False Then
        Dim answer As VbMsgBoxResult
        answer = MsgBox("変更を保存しますか？", vbYesNoCancel + vbQuestion)

        Select Case answer
            Case vbYes
                Me.Save
            Case vbNo
                Me.Saved = True  ' 保存せずに閉じる
            Case vbCancel
                Cancel = True    ' 閉じる操作をキャンセル
        End Select
    End If
End Sub

活用例3：入力値のリアルタイムバリデーション

Private Sub Worksheet_Change(ByVal Target As Range)
    ' メールアドレス列（C列）の入力チェック
    If Intersect(Target, Me.Range("C2:C100")) Is Nothing Then Exit Sub

    On Error GoTo ERROR_HANDLER
    Application.EnableEvents = False

    Dim cell As Range
    For Each cell In Intersect(Target, Me.Range("C2:C100"))
        If cell.Value <> "" Then
            ' 簡易的なメールアドレスチェック
            If InStr(cell.Value, "@") = 0 Or InStr(cell.Value, ".") = 0 Then
                cell.Interior.Color = RGB(255, 200, 200)
                cell.Offset(0, 1).Value = "無効なメールアドレス"
            Else
                cell.Interior.ColorIndex = xlNone
                cell.Offset(0, 1).Value = "OK"
            End If
        Else
            cell.Interior.ColorIndex = xlNone
            cell.Offset(0, 1).ClearContents
        End If
    Next cell

FINALLY:
    Application.EnableEvents = True
    Exit Sub

ERROR_HANDLER:
    Resume FINALLY
End Sub

イベント処理の制御

イベントの一時的な無効化

マクロの処理中にイベントが不要に発火するのを防ぐため、Application.EnableEvents を使用します。

Sub BulkUpdate()
    ' 大量のセル更新時にイベントを無効化してパフォーマンスを向上
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Dim i As Long
    For i = 1 To 1000
        Cells(i, 1).Value = i
    Next i

    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

OnTime メソッドによる時限実行

厳密にはイベントではありませんが、指定した時刻にプロシージャを自動実行する Application.OnTime メソッドも便利です。

Sub StartAutoSave()
    ' 5分ごとに自動保存を実行
    Application.OnTime Now + TimeValue("00:05:00"), "AutoSaveWorkbook"
End Sub

Sub AutoSaveWorkbook()
    ThisWorkbook.Save
    Application.StatusBar = "自動保存完了: " & Format(Now, "hh:nn:ss")

    ' 次の自動保存をスケジュール
    Application.OnTime Now + TimeValue("00:05:00"), "AutoSaveWorkbook"
End Sub

Sub StopAutoSave()
    ' 自動保存を停止
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:05:00"), "AutoSaveWorkbook", , False
    On Error GoTo 0
    Application.StatusBar = False
End Sub

注意点とベストプラクティス

1. EnableEvents の復元を忘れない

Application.EnableEvents = False を設定したら、必ず True に戻してください。エラーハンドリングと組み合わせるのが安全です。

2. イベントプロシージャの処理は軽量に

イベントプロシージャは頻繁に呼び出される可能性があるため、処理は必要最小限にとどめましょう。重い処理が必要な場合は、別のプロシージャに処理を委譲し、ScreenUpdating や Calculation の制御と併用してください。

3. Target の範囲チェックを最初に行う

Worksheet_Change や SelectionChange では、最初に Target がどのセルかを確認し、対象外なら Exit Sub で即座に処理を終了しましょう。

4. 複数セルの同時変更に対応する

削除やペースト操作では、Target が複数セルを含む場合があります。For Each でループ処理を行うか、Target.Count で事前にチェックしてください。

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 複数セルの一括変更にも対応
    If Target.Count > 100 Then
        ' 大量のセル変更（シートクリア等）は処理をスキップ
        Exit Sub
    End If

    Dim cell As Range
    For Each cell In Target
        ' セルごとの処理
    Next cell
End Sub

練習問題

まとめ

• イベント処理を使うと、ユーザーの操作や Excel の状態変化をトリガーにして処理を自動実行できる
• ワークシートイベントはシートモジュールに、ワークブックイベントは ThisWorkbook モジュールに記述する
• Worksheet_Change は最も使用頻度が高いイベントで、Intersect 関数と組み合わせて特定範囲を監視するのが一般的
• イベント内でセルの値を変更する場合は、Application.EnableEvents = False で再帰呼び出しを防止する
• エラーハンドリングと EnableEvents の復元を組み合わせた安全なパターンを常に使用する
• イベントプロシージャの処理は軽量に保ち、パフォーマンスに配慮する