A1に数値を入力後、VBAのMsgboxでその数値が表示されるようにしたい

A1に数値を入力後（数値を入力したあとEnterキーを押すと）
VBAのMsgboxでその数値が表示されるようにするにはどうすればよいのでしょうか？

使用OS：Windows XP
使用ソフト：Microsoft Excel 2003

ご存知の方がおられましたらご回答をよろしくお願いします。

No.1 ベストアンサー 回答者： fumufumu_2006 回答日時： 2008/01/19 19:39

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.OnKey "{RETURN}", "Sheet1.myEnter"
Application.OnKey "{ENTER}", "Sheet1.myEnter" 'テンキーのEnterキー
Else
Application.OnKey "{RETURN}", Null
Application.OnKey "{ENTER}", Null
End If
End Sub
Public Sub myEnter()
MsgBox Range("A1")
End Sub

この回答へのお礼

早速やってみたところ問題を解決することができました。
ご回答していただきどうもありがとうございました。

お礼日時：2008/01/19 21:08