(Excel No9)「enterキーで改行」

私と同じようなキーボードを使われている方は一度はこう思うのではないでしょうか。「テンキーのenterキーで改行しないのは使いづらいぞ！」
もちろんリターンキーでは改行するのでそちらを押せば良いとも言えるのですが、数値を連続して入力するような場合にenterキーで改行してくれないのは残念ですね。
そこで、マクロで無理矢理改行させてみました。

Option Explicit
Sub EnterIsDown()
    ActiveCell.Offset(1, 0).Activate
End Sub
Sub OnEnterIsDown()
    Application.OnKey "{ENTER}", "EnterIsDown"
End Sub
Sub OffEnterIsDown()
    Application.OnKey "{ENTER}"
End Sub

OnEnterIsDown()を実行してから、OffEnterIsDown()を実行するまでそうなります。他にも色々と応用できそうですね。