先生と生徒の会話形式で理解しよう

生徒

「先生、エクセルのセルに何かを入力した瞬間に、自動でプログラムを動かすことはできますか？」

先生

「もちろんですよ。VBAの Worksheet_Change（ワークシート・チェンジ）という機能を使えば、セルの変化をリアルタイムで見張ることができるんです。」

生徒

「それって、ボタンを押さなくても勝手に動いてくれるっていうことですか？」

先生

「その通りです！入力ミスをその場で指摘したり、自動で日付を入れたりと、使い道はたくさんありますよ。基本から一緒に学んでいきましょう！」

1. Worksheet_Changeとは？セルの変化を捉える魔法

Excel VBAの Worksheet_Change は、特定のワークシートの中にあるセルの値が書き換えられた時に、自動的に実行される特別なプログラムです。これをプログラミングの用語でイベントプロシージャと呼びます。「イベント」とは「何かが起きた」という意味で、ここでは「セルが変更された」という出来事を指します。

通常、VBAのプログラムは「実行ボタン」を押して動かしますが、この Worksheet_Change を使うと、エクセルが常にあなたの操作を見張ってくれるようになります。パソコンを触ったことがない方でも、まるでエクセルの中に専属のアシスタントがいて、あなたが何かを書くたびに手助けしてくれるような、とても便利な機能だとイメージしてください。事務作業の入力漏れ防止や、データの自動更新に非常に役立ちます。

2. プログラムを書く場所を間違えないようにしよう！

この自動検知機能を使うには、プログラムを書く「場所」がとても重要です。VBAの編集画面（VBE）を開くと、左側にシート名（Sheet1など）が並んでいる場所があります。そこにある、見張りたいシートの名前をダブルクリックして開いた画面にコードを記述してください。通常の「標準モジュール」という場所に書いても、自動では動いてくれません。

画面を開いたら、上部にあるプルダウンメニュー（左側）から「Worksheet」を選び、右側から「Change」を選んでみてください。すると、自動的にプログラムの「枠組み」が作成されます。この枠の中に、やりたい処理を書いていくのが基本的なルールです。パソコン初心者の方は、まずは「このシート専用の部屋に書くんだな」と覚えるところから始めましょう。

3. 入力した瞬間に挨拶を表示するシンプルな例

まずは、どのセルでも良いので内容が書き換わった時に、メッセージを表示する簡単なプログラムを作ってみましょう。以下のコードをコピーして、シート専用の画面に貼り付けてみてください。


Private Sub Worksheet_Change(ByVal Target As Range)
    ' セルが書き換わった時にメッセージを表示します
    ' Target（ターゲット）は「変更されたセル」を指します
    MsgBox "セルが書き換えられましたね！"
End Sub

このプログラムを書いた後、エクセルのシートに戻って適当なセルに文字を入力して Enter キーを押してみてください。すると、自動的にメッセージボックスが表示されます。これが「イベント」が動いている証拠です。


（画面に「セルが書き換えられましたね！」と表示されます）

4. Target（ターゲット）の役割！どのセルが変わったか知る

先ほどのコードに出てきた Target（ターゲット）という言葉は、非常に重要です。これは、「今まさに変更された、そのセル自身」を指す変数（情報の入れ物）です。エクセルには数え切れないほどのセルがありますが、パソコンは Target を通じて「どのセルが変更されたのか」を正確に把握しています。

これを利用すれば、「A1セルが変更された時だけ動く」といった限定的な処理が作れます。すべてのセルに反応してしまうと、作業がしにくくなってしまいますから、特定の範囲にだけ魔法をかけるのが実務での設計のコツです。例えば、 Target.Address という命令を使えば、そのセルの住所（番地）を確認することができます。

5. 実務で役立つ！A列に変更があったらB列に現在時刻を入れる

実務で非常によく使われる活用例を紹介します。「A列に商品名や名前を入力した瞬間に、その隣のB列に『入力した時間』を自動で記録する」というプログラムです。これで、いつ誰が入力したかの記録が自動で残ります。


Private Sub Worksheet_Change(ByVal Target As Range)
    ' 変更されたセルが「A列」にあるかどうかを判定します
    ' Column（カラム）は列番号のことで、A列は1番目です
    If Target.Column = 1 Then
        ' 隣のセル（B列）に今の時間を入力します
        ' Offset(0, 1)は「行はそのまま、右に1つずれたセル」という意味です
        Target.Offset(0, 1).Value = Now
    End If
End Sub

これで、A列に何かを書くたびに、B列に「2026/03/11 00:00:00」のような日付と時刻が勝手に刻まれるようになります。手入力する手間が省けるだけでなく、時間の入力ミスもゼロになりますね。


（A列に入力すると、B列に「2026/03/11 12:30:45」のように自動入力されます）

6. Intersect（インターセクト）で監視する範囲を指定する

「列」全体ではなく、特定の「範囲」だけを監視したい時に便利なのが Intersect（インターセクト）という命令です。これは「重なり」という意味で、変更されたセルが特定の範囲に含まれているかどうかをチェックしてくれます。専門用語で少し難しく感じますが、「指定した範囲内での出来事かどうか」を判断するフィルターのようなものだと思ってください。

例えば、「B2からD10までの範囲」だけを対象にしたい場合は、以下のように設計します。この設計をマスターすると、シートの他の部分で自由に作業をしていても、大事な入力エリアだけを特別に管理できるようになります。パソコン初心者の方も、この定型文を覚えておくだけでプロっぽいツールが作れるようになります。


Private Sub Worksheet_Change(ByVal Target As Range)
    ' B2からD10の範囲と、変更されたセルが重なっているか調べます
    If Not Intersect(Target, Range("B2:D10")) Is Nothing Then
        ' 指定範囲内だった場合、セルの色を黄色にします
        Target.Interior.Color = vbYellow
    End If
End Sub

If Not ... Is Nothing Then という書き方は「もし空っぽ（Nothing）ではないなら（つまり重なっているなら）」という二重否定のような形ですが、VBAでは「範囲内なら」という意味の決まり文句として使われます。

7. 注意！無限ループを防ぐEnableEventsの使い方

Worksheet_Change を使う時に、最も注意しなければならないのが無限ループです。これは、プログラムの動作が止まらなくなってしまう現象です。例えば、「セルを書き換えたら、そのセルに別の文字を入れる」という命令を出すと、その「別の文字を入れる」という動作も「セルの変更」として検知され、再びプログラムが起動してしまいます。これが繰り返されるとパソコンがフリーズしてしまいます。

これを防ぐには、 Application.EnableEvents という命令を使います。これは「イベント機能を一時的にオフにする」というスイッチです。自分のプログラムでセルを書き換える直前にオフにし、書き換えた後にオンに戻すのが鉄則です。この一行があるかないかで、安全なプログラムかどうかが決まります。


Private Sub Worksheet_Change(ByVal Target As Range)
    ' A1セルが書き換えられたら、自動的に文字を大文字にする例
    If Target.Address = "$A$1" Then
        ' イベントの連鎖を一時停止
        Application.EnableEvents = False
        
        ' A1セルの文字を「完了」に書き換える
        Target.Value = "完了"
        
        ' イベントの連鎖を再開（必ず最後に実行！）
        Application.EnableEvents = True
    End If
End Sub

スイッチを切ることで、プログラム自身の書き換えには反応しないようにさせているわけです。非常に重要なポイントなので、必ず覚えておきましょう。

8. 実務活用例：入力値の自動チェック機能

最後に応用編として、実務で使える「入力チェック機能」を考えてみましょう。例えば、「金額を入力するセルに、もし100万円を超える数字が入ったら、警告を出して入力を取り消す」という設計です。これにより、重大な入力ミスを未然に防ぐことができます。


Private Sub Worksheet_Change(ByVal Target As Range)
    ' 金額入力欄がC1セルだとします
    If Target.Address = "$C$1" Then
        ' 入力された値が1,000,000より大きいか判定
        If Target.Value > 1000000 Then
            MsgBox "金額が大きすぎます！入力を確認してください。"
            
            ' 入力された値を消去するために、一度イベントを止める
            Application.EnableEvents = False
            Target.ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

このように、 Worksheet_Change を使いこなすと、単なる表計算ソフトだったエクセルが、独自のルールを持った強力な業務システムに生まれ変わります。難しいと感じるかもしれませんが、まずは「どのセルが変わったか（Target）」と「もし～なら（If）」を組み合わせることから始めてみてください。一歩ずつ、自動化の楽しさを体験していきましょう！