|
田村さん、この場をお借りして失礼ではございますが。
本来なら、改めて質問をする方が良いのでしょうが・・・
一から質問を作成すると説明しきれないことと、上手く説明できない
私の能力の至らなさで分かりにくくなると思い、横から
失礼ではありますが、よろしくお願いします。
Kein さんの
Mykey_EventsとMykey_Noeventに何か興味がひかれっます。
要は、動作を働かすか?止めるか?の選択ができるということでは
無いんでしょうか。Events もNoeventも、現在は共にSub Count_Num()が動きますが・・・
動作を停止(解除)させる方法を教えていただけないでしょうか。
Kein さん、もしご覧になっておれれましたら宜しくお願いします。
>Sub MyKey_Events()
> Application.OnKey "{ENTER}", "Count_Num"
>End Sub
>
>Sub MyKey_NoEvents()
> Application.OnKey "{ENTER}"
>End Sub
>
>Sub Count_Num()
> With ActiveCell
> If IsEmpty(.Value) Then
> .Value = 1
> ElseIf IsNumeric(.Value) And Sgn(.Value) >= 0 Then
> .Value = CLng(.Value) + 1
> End If
> End With
>End Sub
>
>以上を標準モジュールに入れてMyKey_Eventsを実行し、数値を入力したいセルを
>選択して "テンキーの Enter" を押してみて下さい。キーに割り当てたマクロを
>解除したいときは、MyKey_NoEventsを実行します。
|
|