Excel VBAで変化したセルを特定！Worksheet_Changeの高度な使い方とIntersects活用術
生徒
「先生、特定のセルに入力した時だけ、隣のセルに自動で日付を入れたりメッセージを出したりしたいです。どうすればいいですか？」
先生
「それは『どのセルが変更されたか』をVBAでしっかり見張る必要がありますね。Worksheet_Changeというイベントを使えば、変化した場所を特定できるんですよ。」
生徒
「変化した場所を特定…難しそうですね。私にできるでしょうか？」
先生
「大丈夫ですよ！『Target』という便利な仕組みと、特定の範囲を判定するコツさえ覚えれば、プロのような自動化プログラムが作れるようになります。一緒に学んでいきましょう！」
1. Worksheet_ChangeイベントとTargetの役割
Excel VBAで「セルの内容が書き換えられた」という瞬間を捉えるのが Worksheet_Change（ワークシート・チェンジ）というイベントです。この機能は、あなたがExcelのシート上で文字を打ったり、数値を変更したりした瞬間に「プログラムを動かせ！」という命令を出してくれます。プログラミング未経験の方には、「セルの変化に反応する高精度なセンサー」だとイメージしていただくと分かりやすいでしょう。
そして、このセンサーが動いたときに「どのセルが変更されたのか」という情報を運んできてくれるのが、Target（ターゲット）と呼ばれる変数です。VBAでは、このTargetに「変更されたセルの住所や中身」がすべて格納されています。例えば、A1セルを書き換えたなら、TargetはA1セルそのものを指し示します。この情報をうまく使いこなすことが、自動化の第一歩となります。SEO対策としても、この「ターゲット」の理解は、実務で使えるVBAプログラムを作るために欠かせないキーワードです。
2. セルの位置を特定する「Target.Address」の基本
まずは、最もシンプルに「どのセルが書き換わったか」を確認する方法を知りましょう。プログラミングの世界では、自分がどこを操作しているのかを把握することが非常に重要です。以下のコードは、書き換えたセルの場所をメッセージボックスでお知らせしてくれます。
Private Sub Worksheet_Change(ByVal Target As Range)
' 変更されたセルの「住所（アドレス）」を表示します
MsgBox "あなたは " & Target.Address & " のセルを書き換えましたね！"
End Sub
ここで使っている Address（アドレス）という言葉は、Excelでおなじみの「$A$1」といった形式の住所を指します。これを実行すると、例えばB2セルを書き換えた瞬間に「あなたは $B$2 のセルを書き換えましたね！」と表示されます。このように、まずはTargetという道具が、自分が行った操作の場所を正確に覚えてくれていることを理解しましょう。これが分かれば、次に「特定の列だけ反応させる」といった応用ができるようになります。
3. 特定の範囲だけを監視する「Intersect」関数の魔法
実務でVBAを使う際、「シートのどこを触ってもプログラムが動く」という状態はあまり望ましくありません。例えば「A列に名前を入れたときだけ処理したい」といった場合、他のセルを触ったときはプログラムに無視してほしいですよね。そこで登場するのが Intersect（インターセクト）関数です。
Intersectは英語で「交差する」という意味があります。VBAでは「変更されたセル（Target）」と「自分が監視したい範囲」が重なっているかどうかを調べるために使います。重なっていれば（交差していれば）処理を実行し、そうでなければ何もしない、という高度な条件分岐が可能になります。パソコン初心者の方でも、この「範囲の絞り込み」を覚えるだけで、Excelツールの使い勝手が劇的に向上します。Google検索でも「VBA 範囲指定 監視」といったワードでよく調べられる非常に重要なテクニックです。
4. 実践！A列が変更されたときだけ自動で色をつける
それでは、Intersect関数を使って「A列（1列目）」が書き換えられたときだけ、そのセルの背景を水色にするプログラムを書いてみましょう。特定の範囲だけを狙い撃ちする、実務で必須のパターンです。
Private Sub Worksheet_Change(ByVal Target As Range)
' A列全体の範囲と、変更された場所（Target）が重なっているかチェック
If Not Intersect(Target, Range("A:A")) Is Nothing Then
' 重なっていた（A列だった）場合のみ、背景を水色にする
Target.Interior.Color = RGB(135, 206, 235)
End If
End Sub
少し難しい呪文が出てきましたね。If Not ... Is Nothing というのは「空（から）ではない」という意味、つまり「ちゃんと重なっているよ！」という意味になります。VBA特有の二重否定のような書き方ですが、「もし指定した範囲内だったら」という決まり文句として覚えてしまいましょう。これを使えば、「特定のセル範囲」だけを見守る専用のセンサーが完成します。プログラミング未経験でも、この形を真似するだけで、誤動作のない安全なマクロが作れます。
5. 入力された値によって処理を分ける高度な自動化
セルの場所を特定できるようになったら、次は「何が入力されたか」という中身に応じて処理を変えてみましょう。例えば、「完了」と入力されたらその行をグレーにする、といった使い道です。これは Target.Value（ターゲット・バリュー）という情報を使います。
Private Sub Worksheet_Change(ByVal Target As Range)
' B列が変更されたかチェック
If Not Intersect(Target, Range("B:B")) Is Nothing Then
' 入力された文字が「合格」だったらメッセージを出す
If Target.Value = "合格" Then
MsgBox "おめでとうございます！素晴らしい結果です。"
Target.Font.Color = vbRed ' 文字を赤色にする
End If
End If
End Sub
このコードは「B列」かつ「中身が合格」という2つの条件をクリアしたときだけ動きます。Value（バリュー）はセルの値、Font.Color（フォント・カラー）は文字の色を意味します。Excel作業の中で「もしここがこうなったら、こうしてほしい」というあなたの願いを、そのままVBAに伝えることができるようになります。自動化の醍醐味を感じられるステップですね。
6. 複数セルの同時変更に対応するエラー回避策
Excelの操作では、1つのセルだけでなく、マウスで範囲を選択して一気にデータを消したり、貼り付け（コピペ）したりすることがよくあります。しかし、これまでのコードは「1つのセル」を前提にしているため、複数のセルが同時に変わるとエラーで止まってしまうことがあります。これを防ぐのが CountLarge（カウント・ラージ）という命令です。
Private Sub Worksheet_Change(ByVal Target As Range)
' 変更されたセルの数が1つより多ければ、処理を中断して終了する
If Target.CountLarge > 1 Then Exit Sub
' 以下、1つのセルだけが変更された時の安全な処理
If Not Intersect(Target, Range("C:C")) Is Nothing Then
MsgBox "C列の値が更新されました。"
End If
End Sub
CountLarge は変更されたセルの数を数えてくれます。それが1より大きい（つまり2つ以上選択されている）ときは、Exit Sub（エグジット・サブ）という命令で、即座にプログラムを終了させます。この一工夫を加えるだけで、プログラムの安定性は格段に向上します。パソコンに詳しくない人が使うツールを作る場合は、こうした「予期せぬ操作」への配慮がプロの仕事として高く評価されます。
7. Offsetを使って隣のセルを操作するテクニック
変化したセルを特定した際、そのセル自身ではなく、その「隣のセル」に何かをさせたい場面も多いはずです。例えば、「商品名を入れたら、その右側のセルに本日の日付を入れる」といったケースです。これには Offset（オフセット）という便利な道具を使います。
Private Sub Worksheet_Change(ByVal Target As Range)
' A列のデータが入力されたら、B列（右に1つ隣）に現在時刻を入れる
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
' 無限ループ防止のためイベントを一時停止
Application.EnableEvents = False
' 変更されたセルの「0行下、1列右」に今の時間を記録
Target.Offset(0, 1).Value = Now
' イベントを再開
Application.EnableEvents = True
End If
End Sub
Offset(0, 1) は「今の場所から見て、行は動かず、列を右に1つずらす」という意味です。プログラムの中にある Application.EnableEvents は、日付を書き込んだことでまたプログラムが動き出す「無限ループ」を防ぐためのスイッチです。これらを組み合わせることで、実務でそのまま使える入力補助システムが完成します。初心者にとって「自分の操作に合わせて隣のセルが勝手に埋まっていく」感覚は、VBAの魔法を最も実感できる瞬間でしょう。
8. 複数の監視エリアを使い分ける応用設計
最後に、1つのシート内で複数のエリアを別々に監視する方法を学びましょう。例えば「A列なら色を変える、C列なら計算をする」といった複数のルールを1つのWorksheet_Changeに詰め込むテクニックです。これは実務の複雑なフォーム作成で非常に役立ちます。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
' ルール1：A列の場合
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Font.Bold = True ' 文字を太字にする
End If
' ルール2：C列の場合
If Not Intersect(Target, Range("C:C")) Is Nothing Then
' 数値が100以上ならセルを黄色にする
If IsNumeric(Target.Value) Then
If Target.Value >= 100 Then Target.Interior.Color = vbYellow
End If
End If
End Sub
このように If Not Intersect... のカタマリを並べることで、シート内の複数の場所に別々のセンサーを設置できます。IsNumeric（イズ・ニューメリック）は「数字かどうか」をチェックする便利な判定関数です。こうした小さな工夫を積み重ねることで、誰でも簡単に使えて、かつ絶対に壊れない、強固なExcel管理表を作ることができます。VBAのイベント処理は奥が深いですが、基本の「特定して判定する」という流れさえ掴めば、あなたの事務作業は劇的に進化するはずです。
