Excel Window枠の固定をした状態でスクロールを一番上に設定したい。

Question

お疲れ様です。

Excelを使用したVBA開発をしております。

ThisWorkbookのイベントでbookを開いたときにRange("A1")をセレクトする処理を実装しているのですが、
Window枠の固定を使用して、
rows(5)から下のデータは最終スクロール時の状態で保存されているのですが、
これの状態を一番上にスクロールを持っていった状態に変更できますでしょうか。

わかりにくいと思うので例を。

たとえばwindow枠の固定で、五行目までのwindowを固定し、
６行目以降の行をスクロールして保存すると、行表示は下記のようになります。
１行目
２行目
３行目
４行目
５行目
３０行目
３１行目

この状態で保存し、Bookを閉じるとRange("A1").selectを実装しても、
A1にカーソルが行くだけで、
行の表示は1,2,3,4,5,30,31と変わりません。
これを、1,2,3,4,5,6,7,8,・・・・という初期の状態に持っていきたいのですが、
どのように実装すればよろしいでしょうか。

Window枠の固定により非表示となった行は、
Cells.Select
Selection.EntireRow.Hidden = False
で再表示・・・ということはできないようでした。

どなたかよろしくお願いします。

追記
ちょっと回りくどいですか
Range("A6").Select
Range("A1").Select
という実装にすれば解決できました。

たた別にやり方があるようであれば参考までにお願いします。

Answer 1

これでどうでしょうか。
思いつきでやってみたので他に一発でできる方法があるかもしれませんが。

Range("A6").Select
Range("A1").Select

あ、追記のやつとかぶった…

Comments

[King_of_Flies]

やっぱりこれが処理的にも最速ですかね。

この実装で行きたいと思います。

回答ありがとうございました。