Excel97でTOPPAGEを開くマクロ

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

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

宜しくお願い致します。

No.3 ベストアンサー 回答者： big_fool 回答日時： 2003/08/26 11:43

一番簡単なのは

「ツール」マクロの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」ダイヤログボックスは
使った事がなかったので、今後の課題にしたいと
思います。他にもいろんな項目があって、
使えると便利そうですね。
ありがとうございました。

お礼日時：2003/08/27 10:59

No.2 回答者： nshun 回答日時： 2003/08/26 11:18

まず、Excelファイルを開きます。

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

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

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

この回答へのお礼

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

お礼日時：2003/08/27 10:56

No.1 回答者： S-Fuji 回答日時： 2003/08/26 11:15

Sub auto_open()

Worksheets(1).activate
End Sub

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

この回答へのお礼

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

お礼日時：2003/08/27 10:53