|
▼inoue さん:
ありがとうございます。一度テストBookで下記のように記述してみました。
ThisWookBookに;
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If Target.Column = 6 Then 'F列に記入するならば実行する
Application.OnKey "{ENTER}", "kizyutu" 'NumKeyのEnterで実行する
Application.OnKey "{DEL}", "sakuzyo"
MsgBox ("Fれつです")
End If
End Sub
標準モジュールに;
Sub kizyutu()
MsgBox ("kizyutusaimasu")
End Sub
Sub sakuzyo()
MsgBox ("sakuzyosiimasu")
End Sub
そうしますと一度目はDelを押しますと”Fれつです”が出ます。それ以降は前の部分にある”sakuzyosimasu”が出るので一度目だけApplication.OnKeyは動いていないようです。さらにF列だけでなくどの列でEnterを押してもDelを押しても動きます。どうなっているのでしょうか。教えていただけるでしょうか。
|
|