[[20210422142823]]　『特定ブックの特定シートだけEnterキー押下時の移刀x（げん）　ページの最後に飛ぶ

『特定ブックの特定シートだけEnterキー押下時の移動方向を変えたい』（げん）

お世話になります。
特定のブックの特定のシートだけ、Enterキー押下時に右移動させたいと思っています。

◇Sheet1モジュール

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

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

 Private Sub Workbook_Deactivate()
    MoveDownSetting
 End Sub

◇ThisWorkbookモジュール

 Private Sub Workbook_Open()
    MoveDownSetting
 End Sub

 Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    MoveDownSetting
 End Sub

 Sub MoveDownSetting()
    If Application.MoveAfterReturnDirection = xlToRight Then
        Application.MoveAfterReturnDirection = xlDown
    End If
 End Sub

このように組んでみましたが（重複している無駄コードもあるかもしれません）
他のブックから移動してきたときは自動的に移動方向が変わってくれません。
何か良い方法はあるでしょうか？よろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 Private Sub Workbook_Activate()
    If ActiveSheet Is Sheet1 Then
        Application.MoveAfterReturnDirection = xlToRight
    End If
 End Sub

うっかりしていました。ThisWorkbookモジュールにこれを書き足したら大丈夫でした。
（げん） 2021/04/22(木) 14:37

コメント返信：

[ 一覧(最新更新順) ]

[[20210422142823]] 『特定ブックの特定シートだけEnterキー押下時の移刀x（げん） ページの最後に飛ぶ

[[20210422142823]]　『特定ブックの特定シートだけEnterキー押下時の移刀x（げん）　ページの最後に飛ぶ