特定のセルがアクティブになったときのイベント？

エクセルのVBAで、「あるセルの内容が変更されたらメッセージボックスを表示する」ということはなんとかできたのですが、

「あるセルを（クリックして）アクティブにしたらメッセージボックスを表示する」

この方法がわかりません。

教えてください。よろしくお願いします。

No.2 ベストアンサー 回答者： xls88 回答日時： 2009/08/08 17:58

SelectionChangeイベントがあります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
MsgBox "なんか用？"
End If
End Sub

この回答へのお礼

ありがとうございました。
しようと思っていたことができました。m(_ _)m

お礼日時：2009/08/08 20:02

No.3 回答者： BookerL 回答日時： 2009/08/08 18:00

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address <> "$A$1" Then Exit Sub
MsgBox "メッセージボックス表示"
End Sub

みたいな感じでしょうか。

この回答へのお礼

ありがとうございます。
でも、書かれたものがそのままでは動きませんでした。

お礼日時：2009/08/08 20:05

No.1 回答者： CoalTar 回答日時： 2009/08/08 17:24

メッセージボックスではないですが、

入力規則の入力時メッセージの機能を使ってはどうでしょう
参考まで

この回答へのお礼

どうしてもだめなら基本機能を使おうと思っていましたが、今回ＶＢＡでできたのでそちらを使ってみます。
ありがとうございました。m(_ _)m

お礼日時：2009/08/08 20:04