Sub NOTCTRLD() について

質問

Sub NOTCTRLD() について
条件付き書式を使わずして
a10:d30 のセル固定範囲についてのみ次のマクロが効くようにしたいと思います。
エクセル2010です。記述方法を教えて下さい。

Sub NOTCTRLD()
MsgBox ("CTRL+Cキー後、CTRL+Vキーを使用してください。")
End Sub

回答No.1

watabe007 · ベストアンサー

Ctrl + d キーにNOTCTRLDを設定すれば良いのでは
以下、シートモジュールに貼り付けてください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Not Intersect(Target, Range("A10:D30")) Is Nothing Then
　　　　Application.OnKey "^{d}", "NOTCTRLD"
　　Else
　　　　Application.OnKey "^{d}"
　　End If
End Sub