Excel97でTOPPAGEを開くマクロ

質問

Excel９７を使っています。
ある価格表を作成しました。
Sheet１に目次を作り、ハイパーリンクで
各価格表のSheetに移動するようにしています。

そこで、どこのSheetを開いている状態で閉じても
必ず開いた時にはSheet１の目次が開くようにしたい
のですが、何か良い方法はあるでしょうか。
マクロになるかと思いますが、
その場合、どういったマクロをどのように登録すれば
いいのかも教えて頂けたら、と思います。
簡単なマクロをボタンに登録、しかしたことないです。

宜しくお願い致します。

回答No.3

big_fool · ベストアンサー

一番簡単なのは
「ツール」マクロのVisuaru Basic Editorを選択
表示される「Visuaru Basic」ダイヤログボックスの
プロジェクトんの項目の
BVAProject(Book名）の階層のThis Workbookを選択
表示される「コートウインドウ」の
左のドロップダウンリストボックスから「Workbook」
右のドロップダウンリストボックスから「Open」
下記のようにコードを記入

Private Sub Workbook_Open()

Sheets(シート名).Select

End Sub

シート名が無いのなら
Private Sub Workbook_Open()

Sheet1.Select

End Sub

問題から外れていたらすみません

お礼

回答ありがとうございます。
返事が遅くなってすいません。
今回はこちらの方法で対処させて頂きました。
とても解りやすい回答で勉強になりました。
また、「Visuaru Basic」ダイヤログボックスは
使った事がなかったので、今後の課題にしたいと
思います。他にもいろんな項目があって、
使えると便利そうですね。
ありがとうございました。

回答No.2

nshun

まず、Excelファイルを開きます。
　　　↓
ツールのマクロ→VisualBasicEditorを開きます。
　　　↓
VisualBasicEditor画面の挿入→標準モジュールを開きます。
　　　↓
以下の内容を貼り付けてください。
----------------------------------

Sub Auto_Open()
Sheets("Sheet1").Select
End Sub

----------------------------------
これで出来るかと思います。

お礼

回答ありがとうございます。
返事が遅くなってしまってすいません。
親切な回答でとてもわかりやすかったです。
書き込む場所（標準モジュール）の出し方も
わかって今後、困る事も一つ減りました。
ありがとうございました。

回答No.1

S-Fuji

Sub auto_open()
Worksheets(1).activate
End Sub

上のマクロを書いておけば、ファイルを開いた時にいつもsheet1が表示されます。

お礼

回答ありがとうございます。
返事が遅れてしまってすいません。
これで、作っていたモノを完成させる事が出来ました。
ありがとうございました。