[[20030526165340]]　『全てのシートのスクロールを一番上に』（名無し６１５）　ページの最後に飛ぶ

『全てのシートのスクロールを一番上に』（名無し６１５）

ファイルを開いた時に以前の編集していた位置で始まるのを防ぎたいのですが、
ファイルを閉じる際に、自動で全てのシートのスクロールを一番上にしてから保存して終了させる事は出来ないでしょうか？
よろしかったら教えてください。

 VBAなら可能です。
 下のVBAをコピーしト、VBEの世界に入って標準モジュールに貼り付けると可能になります。
 （kazu）

 Sub auto_open()
     Dim r As Long, sh As Worksheet
     For Each sh In Worksheets
             sh.Activate
             ActiveSheet.Select
             r = Selection.Row
             ActiveWindow.SmallScroll Up:=r
             Cells(1, 1).Select
     Next
     Sheets("Sheet1").Select
     Cells(1, 1).Select
 End Sub
 （kazu）

お返事ありがとうございます。まさにこれがやりたかったです。
しかしこれだとシート名を"Sheet1"固定にしなければいけず、困ります。
任意のシート名でも先頭のシートを最後に選択させる事は出来ないでしょうか？

 Sheets(1).Select

 とします。

 （ramrun）

出来ました！ありがとうございました！

 もう見ていないかもしれませんが。

     ' Sheets("Sheet1").Select
     ' Cells(1, 1).Select

 基本的にブック内に存在する全てののシートについて、スクロールアップします。
 最後に戻ってきたときにSheet1がよいのかなと思って追加しただけで、
 この2行はコメントにしていただいて構いません。
 （kazu）

コメント返信：

[ 一覧(最新更新順) ]

[[20030526165340]] 『全てのシートのスクロールを一番上に』（名無し６１５） ページの最後に飛ぶ

[[20030526165340]]　『全てのシートのスクロールを一番上に』（名無し６１５）　ページの最後に飛ぶ