エクセル入力補助マクロ （ＶＢＡ）

エクセルを使った時に入力作業を楽にするマクロです。
指定の列から左に入力していき、指定の列まで来たら
次の行に改行します。

------　InitializeApp -----
Dim X As New EventClassModule

Sub InitializeApp()
'リターンを押したら右に移動
Application.MoveAfterReturnDirection = xlToRight
Set X.App = Application
End Sub
-----　InitializeApp -----

----- EventClassModule -----
Public WithEvents App As Application
Private Const Start_Colum As Integer = 2 '開始列
Private Const End_Colum As Integer = 7 '終了列
Private Const Next_Row As Integer = 1 '次の行


Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Column > End_Colum Then
Application.Goto ActiveSheet.Cells(Target.Row + Next_Row, Start_Colum), False
End If
End Sub

----- EventClassModule -----

マクロが実行できないといわれた時は、
「ツール」→「オプション」→「セキュリティ」→「マクロ」→「中」
に設定。

※同じことをされる方は自己責任でお願いします。

タグ：エクセル マクロ Excel