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

質問

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

回答No.3

KenKen_SP · ベストアンサー

こんにちは。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

お礼

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

回答No.2

azuminowasabi

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

お礼

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

回答No.1

charisan

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

お礼

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