エクセルVBAを使って特定のセル範囲内が変更された時にメッセージを表示する方法【Intersect】

エクセルVBAのWorksheet_ChangeとIntersectを使って、特定のセル範囲内が変更された時にメッセージを表示する方法をご紹介します。

エクセルVBAで特定のセル範囲内が変更された時にメッセージを表示するイメージ

エクセルの黄色エリア（A10:J20）内のセルが変更（文字入力等）を行うとメッセージが表示されます。

Worksheet_ChangeとIntersectを使って、エクセルで特定のセル範囲内が変更された時にメッセージを表示するVBAの記述

※シート内に変更があった場合の処理（Worksheet_Change）内に、Intersect(～）を使って指定セル範囲では無い場合は何もせず、指定セル範囲内の場合はメッセージ（MsgBox）を表示します。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A10:J20")) Is Nothing Then
        Exit Sub
    Else

        MsgBox "黄色エリア（A10～J20）内のセルが変更されました。"

    End If

End Sub

参考ファイル：yo1tec/Worksheet_Change_Intersect

以下より参考ファイルがダウンロード出来ます。
yo1tec/Worksheet_Change_Intersect

　
※流用される場合は自己責任でお願いします。

ディスプレイ広告

ディスプレイ広告