エクセル研究室−Excelの基本的な使い方、応用技を紹介

セルを編集したらダイアログで警告する


セルを編集したらダイアログで警告する



セルでの編集を制御するには、Worksheet_Changeイベントで宣言されている「(ByVal Target As Range)」を利用します。
Targetはイベントが発生した時のセルです。
シートモジュールに以下の様に入力します。


Private Sub Worksheet_Change(ByVal Target As Range)
'A1かB1のセルが編集された場合
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
   'ダイアログで表示
   MsgBox "セルが変更されました"
End If
End Sub








エクセルVBAテクニック集トップ