特定のワークシートだけ入力した後に移動する向きを変える

セルに入力した後に移動する向きはオプションで指定できますが、これはブック内のすべてのワークシートに適用されます。下方向に移動させている場合が多いと思いますが、例えば特定のワークシートだけ右に移動させたい場合はワークシートモジュール内に以下のプロシージャを記述します。Worksheet_Activate イベントと Worksheet_Deactivate イベントを組み合わせて使います。

Dim MARDirection As Long

Private Sub Worksheet_Activate()
  MARDirection = Application.MoveAfterReturnDirection
  Application.MoveAfterReturnDirection = xlToRight
End Sub

Private Sub Worksheet_Deactivate()
  Application.MoveAfterReturnDirection = MARDirection
End Sub


Worksheet_Activate イベントで以前の移動する向きを変数に入れておき、その後に右側に変更。そして Worksheet_Deactivate イベントで変数の値、すなわち以前の向きに戻しています。