EXCEL TOPページに来る方法

質問

よろしくお願いします。

ＥＸＣＥＬです。

マクロが組んであります。
ファイル開く→マクロを有効にする→「ＴＯＰ」シートに来ますが

別の人が、閉じるときに「ＴＯＰ」シートで終了しないときに
ファイルをあけると閉じる前のシートのところに行きます。

そこで、もし「ＴＯＰ」シートで終了しなくても
次に開くときに必ず「ＴＯＰ」シートに来る方法はありますか。

マクロレベルは自動記録マクロがやっと出来る超初心者です。
よろしくお願いします。

回答No.1

marbin · ベストアンサー

シートモジュールでWorkbookのOpenイベントで

Private Sub Workbook_Open()
Worksheets("表示したいシート名").Activate
End Sub

あるいは、標準モジュールで
Sub Auto_Open()
Worksheets("表示したいシート名").Activate
End Sub

としてみてください。
または、逆にブックをSaveするときに特定のシート
を表示させた状態で上書き保存する、という手も
あります。
シートモジュールです。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Worksheets("表示したいシート名").Activate
End Sub

↓は標準モージュールです。が保存時ではなく、
閉じるときですので、手動で上書き保存したあと
手動で閉じた場合は保存時に反映されません。

Sub Auto_Close()
Worksheets("表示したいシート名").Activate
End Sub

お礼

本当に有難うございました。
先日教えていただいた方法で
この週末にやってみようと思うのですが

ツール→マクロ→新しいマクロの記録
という具合にしか出来ない超初心者です。

それ以外はやったことがありませんので
標準モジュールに行くまでの方法が解りません
よろしくお願いします。

＞Sub Auto_Open()
＞Worksheets("表示したいシート名").Activate
＞End Sub

よろしくお願いします。

回答No.2

imogasi

VBE画面の「VBAProject」ウインドウ部
ThisWorkbookのWorkbookのOpenイベントを選び
Private Sub Workbook_Open()
Worksheets("Sheet1").Activate
Range("A1").Select
End Sub
Sheet1のところを、選択するシート名を入れる。
Range("A1")のA1を選択するセルを入れる。
エクセルではPageの概念は（印刷する・した場合を除いて）余りないと思うので、YOPページというのは、我流表現では？
意味がはっきりしない。
シートタブが一番左にあるシートならSheets(1)
アクチブにして閉じたシーとなら、ActiveSheet.Range("A1").Select
でよいでしょう。