(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()を実行するまでそうなります。他にも色々と応用できそうですね。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください