入力後のセルの移動について

質問

エクセルの設定について

入力後のセルの移動の設定をBookではなく
ワークシート毎に設定は出来ますでしょうか?

例えばsheet1はセル入力後右に移動して
sheet2はセル入力後下に移動するという設定です

回答No.4

spnlight

シート毎以外ならVisual Basic EditorでThisWorkbookをダブルクリックして、以下のコードを入力する
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
SheetName = ActiveSheet.Name
If SheetName = "Sheet1" Then
Application.MoveAfterReturnDirection = xlToRight
'右移動
End If
If SheetName = "Sheet2" Then
Application.MoveAfterReturnDirection = xlDown
'左移動
End If
End Sub

私は、標準モジュールにSub 右移動()とSub 下移動()を記述しアドイン化して、ツールバーにアイコンをセットして使ってます。

お礼

試してみます　有難うこざいます

回答No.3

mshr1962

マクロでシートのアクティブイベントを使えば可能ですが．．．
下記のマクロをシートの見出しを右クリックしてコードの表示で開かれた場所へ設定
Sheet1（Enter後の移動方向が右）
Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub
Sheet2（Enter後の移動方向が下）
Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlDown
End Sub

お礼

出来ました　有難うこざいます

回答No.2

CaveatEmptor

各シートに以下のようなマクロを書いておけば可能です。

'下に移動する場合
Private Sub Worksheet_Activate()
　Application.MoveAfterReturnDirection = xlDown
End Sub

'右に移動する場合
Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub

お礼

出来ました有難うこざいます

回答No.1

hana-hana3

シート毎にイベント（下記）を記述するか、thisworkbookモジュールに必用なコード（アクティブシート名を判断して設定する）を記述してください。

Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
' option = xlToLeft,xlToRight,xlUp,xlDown
End Sub

お礼

やってみます　有難うございます