ExcelでEnter キー後のセル移動方向変更

Excelで、「Enter キーを押した後にセルを移動する(M)」　の　「方向」　を　「右」　にする設定があります。
これを、Bookを開いたときにそのBookに限って有効になるようにしたいのですが、Sheetのコードに入れておくなど方法がありますか。
教えてください、よろしくお願いします。

No.4 ベストアンサー 回答者： watabe007 回答日時： 2012/05/25 14:34

>Sheetのコードに入れておくなど方法がありますか。

特定のシートの特定の範囲だけ「右方向」に移動することも出来ますよ
以下、目的のシートモジュールに貼り付けてお試し下さい
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　'C10:H20セル範囲内なら右移動
　　If Not Intersect(Target, Range("C10:H20")) Is Nothing Then
　　　　Application.MoveAfterReturnDirection = xlToRight
　　Else
　　　　'設定範囲以外は下移動します。
　　　　Application.MoveAfterReturnDirection = xlDown
　　End If
End Sub

この回答へのお礼

watabe007さん　ありがとうございます。
指定セル範囲の右の列まで行ってしまうので、シートの保護でカバーしました。

お礼日時：2012/05/25 17:40

No.3 回答者： frown_knight 回答日時： 2012/05/25 13:52

追記。

閉じるときに設定を元に戻すようにしておくのをお忘れなく。

この回答へのお礼

frown_knightさん　ありがとうございました。

お礼日時：2012/05/25 17:41

No.2 回答者： kybo 回答日時： 2012/05/25 13:46

ThisWorkBookに以下の様に記述してみてください。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = xlDown
End Sub

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

この回答へのお礼

kyboさん　ありがとうございました。

お礼日時：2012/05/25 17:42

No.1 回答者： frown_knight 回答日時： 2012/05/25 13:44

自動実行する方法

http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub0 …

マクロの中身は操作を記録させれば良いでしょう。

この回答へのお礼

frown_knightさん　ありがとうございました。

お礼日時：2012/05/25 17:43