文書番号: 402325
最終更新日: 1997/10/20
Sub Auto_Open() 'Sheet1 にデータが入力されたらサブルーチン "OnEntrySub" を実行する ActiveWorkbook.Worksheets("Sheet1").OnEntry = "OnEntrySub" End Sub Sub OnEntrySub() 'もしアクティブセルが $A$1 であれば If ActiveCell.Address() = "$A$1" Then 'メッセージを表示 MsgBox ActiveCell.Parent.Name & " の " & ActiveCell.Address & _ " にデータが入力されました。" End If End Sub
Keywords: KBHOWTO KB402325
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch