VBA

エクセル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

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