excel アドイン向けマクロ(2)移動方向を切り替えるマクロ EXCEL VBA for Addin "Change Cursor Direction"

まずマクロ用アドインを作ります

下記サイトがわかりやすいと思います
マクロをアドインにして他のブックで使用する
魚拓

今回も操作系

今回はアドイン用マクロとして「エンターを押した後移動する方向を右なら下に、下なら右に切り替えるマクロ」
を作りました。

ChangeMoveDirection.BAS

Sub ChangeMoveDirection()
''QIIQ from Qita
''This is for Excel Macro Addin
''1. Make Macro Addin
''2. Take on This Procedure
''3. Take on Quick Access Toolbar
''4. If Moveafter right then change Down
''5. If move after Down then Change Right
''6. Other Direction change Down
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = ActiveSheet
Dim blMove As Boolean, i As Long
Dim arDirectionEnum
arDirectionEnum = Split("-4121,-4159,-4161,-4162", ",")
If Application.MoveAfterReturn = False Then Application.MoveAfterReturn = True
For i = LBound(arDirectionEnum) To UBound(arDirectionEnum)
  If arDirectionEnum(i) = Application.MoveAfterReturnDirection Then
    Select Case arDirectionEnum(i)
    Case Is = xlDown
      Application.MoveAfterReturnDirection = xlToRight
    Case Is = xlToRight
      Application.MoveAfterReturnDirection = xlDown
    Case Else
      Application.MoveAfterReturnDirection = xlDown
    End Select
  Exit For
  End If
Next i
End Sub

機能の説明

arDirectionEnum = Split("-4121,-4159,-4161,-4162", ",")
というのが方向を決める定数です。
このマクロは
１．移動方向がなしになっていたらありに
２．移動方向が右なら下、下なら右、それ以外は下
に切り替えます。

長所

カーソルの移動方向を変えるためにファイルから設定を開くという手間がなくなります。エクセルは右、下だけでなく、上、左、移動なしにもできますが、
戻すのが大変です。これはツールバーに登録しておくと、一瞬で切り替えられ大変便利です。