エクセルVBAのWorksheet_ChangeとIntersectを使って、特定のセル範囲内が変更された時にメッセージを表示する方法をご紹介します。
Contents
エクセル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
※流用される場合は自己責任でお願いします。
ディスプレイ広告