<マクロ・VBA> 大きいEnterキーを押してVBA処理

はじめまして。よろしくお願いします。

ワークシートに入力して、
入力内容により色をつけるというVBAを作っています。
Enterキー(大きい方)を押したら
即時情報が更新されるものを作りたいんですが、
大きいEnterキーで更新する方法が分かりません。
どうぞご教授宜しくお願いします。

やりたいこと>>
(1)大きいEnterキーを押してすぐ内容を判定して行に色をつける
(2)行の色は以下の通り
　削除…赤
　変更…薄い黄色
　その他…色はなし

記述>>
【ThisWorkBook】
Private Sub Workbook_Open()
キー定義
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
キー定義の解除
End Sub
--------------------------------------------------
【標準モジュール】
Sub キー定義()
Application.OnKey "{ENTER}", "判定"
End Sub
Sub 判定()
If ActiveWorkbook.Name = "色付けテスト" Then
If ActiveCell.Value = "削除" Then
ActiveCell.EntireRow.Interior.ColorIndex = 3
ElseIf ActiveCell.Value = "変更" Then
ActiveCell.EntireRow.Interior.ColorIndex = 36
Else: ActiveCell.EntireRow.Interior.ColorIndex = xlNone
End If
End If
End Sub

今のところはテンキーのEnterキーで対応しています。
よろしくお願いします。

No.1 ベストアンサー 回答者： lark_0925 回答日時： 2008/01/16 18:16

Application.OnKey "~", "判定"

ということでしょうか？

この回答へのお礼

その通りです！
ありがとうございます。
できました！

お礼日時：2008/01/16 19:25