|
セルに入力した後に移動する向きはオプションで指定できますが、これはブック内のすべてのワークシートに適用されます。下方向に移動させている場合が多いと思いますが、例えば特定のワークシートだけ右に移動させたい場合はワークシートモジュール内に以下のプロシージャを記述します。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 イベントで変数の値、すなわち以前の向きに戻しています。 |