|
すいません。
もう一度質問させてください。
教えていただいたプロシージャを改良して
A列以外で"{DELETE}"キーを押されたら
Application.OnKey "{DELETE}"
にして"{DELETE}"キー本来の動きをしてほしくて
考えたのですが…。
動作確認の為、下記のようなプロシージャにして
sub AAA()
If Selection.Column > 1 Then
MsgBox "範囲外"
Else
MsgBox "範囲内"
End If
end sub
ちゃんと動いたのを確認し、
sub AAA()
If Selection.Column > 1 Then
Application.OnKey "{DELETE}"
Else
MsgBox "範囲内"
End If
end sub
としました。
一度範囲外で{DELETE}キーを押して
A列で{DELETE}キーを押したら無反応、というより
Application.OnKey "{DELETE}", "AAA"
がちゃんと実行されていないようです。
Application.OnKey "{DELETE}", "AAA" は
WorksheetがActivateになった時に実行されるので
sub AAA()
If Selection.Column > 1 Then
Application.OnKey "{DELETE}"
Else
MsgBox "範囲内"
Sheet1.Activate
End If
end sub
としてみたのですが、どうもダメです。
どうすれば範囲以外で{DELETE}キーを押せば
{DELETE}キー本来の動き、
範囲内で{DELETE}キーを押せば任意の処理と
うまく切り替えることが出来ますでしょうか?
|
|