各シートから浮遊するボタンでｔｏｐシートに戻すには

質問

ＥＸｃｅｌ２０００を起動し、
１．ｓｈｅｅｔ１に表示→ツールバー→フォームからボタンを５個配置。
２．それぞれマクロを登録しました。
３．これらのボタンをクリックすると表紙.ｘｌｓの中にある各シートに飛びます。
４．また各シートにはそれぞれｓｈｅｅｔ１に戻るというボタンをつけました。（シートが多数あると面倒です）そしてブック名は、ＡＡＡ.ｘｌｓ　としました。
５．　そして、ＡＡＡ.ｘｌｓのｓｈｅｅｔ１のボタンに、　同じフォルダの中のＢＢＢ.ｘｌｓ　というブックを開くマクロをつくりました。その中には多くのシートがあり、その中にＢＢＢ.ｘｌｓのｓｈｅｅｔ１に戻るというボタンをまた作らなければなりません。
６．私がしたいことはどんなにたくさんのシートがあろうと、常時表示されたボタンひとつで、ｓｈｅｅｔ1に戻るというボタンを作りたいのです。そのボタンはＡＡＡとかＢＢＢだけのブックだけに使えるようにしたいです。
７．なんだか説明がへたですがよろしくお願いします。

回答No.1

papayuka · ベストアンサー

よく意味が理解出来ませんでした。

新規ブック（シート数は2枚以上）に標準モジュールを追加して下記をコピペし myButton_Add を実行して下さい。
Sheet2 ～ 最後のシートのセルD1にボタンを作ります。
どのシートのボタンを押しても 先頭シートへ移動します。
こう言う事？

'------------------------------------------------------------------------------------
Private Sub myButton_Add()
Dim myBtton
For i = 2 To Worksheets.Count
　With Worksheets(i).Range("D1")
　　Set myButton = Worksheets(i).Buttons.Add(.Left, .Top, .Width * 2, .Height * 2)
　　myButton.Caption = "先頭シートへ"
　　myButton.OnAction = "Sheet1View"
　End With
Next i
End Sub

Private Sub Sheet1View()
　Worksheets(1).Activate
End Sub
'------------------------------------------------------------------------------------

お礼

ありがとうございました。うまくいきました。
今後ともよろしくお願いします

回答No.2

BLUEPIXY

ツールバーにマクロ起動ボタンを付けたらどうでしょうか

お礼

あこれもいいかも。やってみたいと思います。ありがとうございました。