Excelでシートを簡単に見つける方法

Excelの目的とするシートをすぐに見つける何か良い方法はないでしょうか。
ひとつのBookに５０以上もシートがあって探すのが大変です。
目次を作って各シートをリンク付けしていたのですが、
これも作成するのが大変で手間がかかります。
シート検索の便利な方法があれば教えてください。

No.3 ベストアンサー 回答者： KenKen_SP 回答日時： 2006/10/11 10:30

こんにちは。

KenKen_SP です。

マクロを使ってよいならこんな方法があります。

やってることは、シート選択タブ上で右クリックして表示される
[シートの選択]コマンドをセルの右クリックメニューに登録して簡単に
呼び出せるようにしてます。

VBE で標準モジュールを挿入し、下記のソースコードを貼り付けて下さい。
汎用的にどのブックでも使うなら、個人用マクロブックにでも登録します。

Option Explicit

Sub Auto_Open()
　　Call AddCustomMenu
End Sub

Private Sub AddCustomMenu()
　　Dim CB As CommandBar
　　On Error Resume Next
　　Set CB = CommandBars("Cell")
　　CB.Controls("シート選択").Delete
　　With CB.Controls.Add(Temporary:=True)
　　　　.Caption = "シート選択"
　　　　.OnAction = "ShowShSelectDialog"
　　　　.BeginGroup = True
　　End With
　　Set CB = Nothing
End Sub

Private Sub ShowShSelectDialog()
　　With CommandBars.Add
　　　　.Controls.Add(, 957).Execute
　　　　.Delete
　　End With
End Sub

この回答へのお礼

うわ！これは便利ですね。マクロの勉強にもなりました。
なるほどマクロを作るという手がありますね。
欲しいのは、例えば「検索」ダイアログのようなものでシート名の
一部を入力したら目的のシートをアクティブにするようなものです。
これをきっかけに研究して作ってみたいとおもいます。

お礼日時：2006/10/11 19:47

No.2 回答者： azuminowasabi 回答日時： 2006/10/11 10:26

シートの左側　｜≪≪≫≫｜のところで右クリックで一覧でます、そこでクリック選択できます。

この回答へのお礼

う～んそんな機能があるなんて全然知りませんでした。
ありがとうございます。とても助かります。

お礼日時：2006/10/11 19:43

No.1 回答者： charisan 回答日時： 2006/10/11 09:50

ジャンプがうまく使えればいいのですが、（これも面倒ですが）各シートのどこか、たとえば　A1に　「名前」をつければ　Alt+E => Gで少しは楽になりますが、いかがでしょうか。

。。

この回答へのお礼

ありがとうございます。なるほどそういう方法もあるんですね。
大変勉強になりました。

お礼日時：2006/10/11 19:42