アルファベットのワークシートにジャンプする（Microsoft Excel）
かなりの数のワークシートを含むワークブックがある場合は、ワークシートタブの近くにあるスクロール矢印を使用するよりも、特定のワークシートグループにジャンプする簡単な方法を探している可能性があります。たとえば、1つの文字を入力して、その文字で始まる最初のワークシートをExcelに表示させることができます。これをExcel内で直接行う方法があります。 Excel2007またはExcel2010を使用している場合は、次の2つの手順に従ってください。
。タブの左側にあるスクロール矢印を右クリックします。
Excelは、ワークシートのタブ名の多くを含むコンテキストメニューを表示します。
。 [その他のシート]オプションをクリックします。 Excelに[アクティブ化]ダイアログボックスが表示されます。
Excel 2013を使用している場合、[アクティブ化]ダイアログボックスを表示するプロセスははるかに簡単です。スクロール領域を右クリックするだけで、すべてのワークシートのリストを含む[アクティブ化]ダイアログボックスが表示されます。 （図1を参照）
図1. [アクティブ化]ダイアログボックス。
[アクティブ化]ダイアログボックスを使用するには、目的のワークシート名の最初の文字を押すだけです。文字で始まる最初のワークシートが選択されます。同じ文字を押し続けると、その文字で始まる次のワークシートが選択されます。目的のワークシート名を選択したら、Enterキーを押すだけで、そのワークシートが表示されます。
このアプローチの興味深い点は、ワークシートをアルファベット順に使用する必要がないことです。文字を押すたびに、Excelはその文字で始まる次のワークシートを選択します。
このアプローチは非常に高速に使用できますが、マウスとキーボードの両方を使用するため、反対する人もいます。厳密にキーボードを使用することを好む人もいます。この場合、ワークシートをアルファベット順に並べ替えて（_ExcelTips_の他の問題で説明されているように）、マクロを使用して目的のワークシート領域をプルアップするのが最適です。
次のマクロでうまくいきます：
Sub GoToSheet()
Dim iTemp As Integer Dim sSheet As String Dim sThisOne As String
sSheet = InputBox("Enter first letter of sheet", _ "Go to sheet", Left(ActiveSheet.Name, 1))
If sSheet = "" Then Exit Sub sSheet = UCase(Left(sSheet, 1))
iTemp = 0 For i = 1 To ThisWorkbook.Sheets.Count sThisOne = UCase(Left(ThisWorkbook.Sheets(i).Name, 1))
If sThisOne = sSheet Then iTemp = i Exit For End If Next i If iTemp > 0 Then ThisWorkbook.Sheets(iTemp).Activate End If End Sub
次に、Ctrl + Gなどのショートカットキーをマクロに割り当てます。これ以降は、Ctrl + Gを押して文字を入力し、Enterキーを押すだけです。
指定した文字で始まる最初のワークシートが選択されます。
最終的な解決策は、ワークシートに独自の「インデックス」または「目次」を作成することです。ブックの先頭に空白のワークシートを挿入してから、ブック内の他のさまざまなワークシートへのハイパーリンクを追加します。
誰かがハイパーリンクをクリックすると、ハイパーリンクによって参照されているワークシートが表示されます。
この方法でハイパーリンクを設定するのは間違いなく手間がかかりますが、これまでに説明した他の方法では提供されない利点があります。
まず、ユーザーはワークシート名をまったく知る必要がありません。次に、複数の「キーワード」をリンクとして使用し、それぞれが同じワークシートにつながるようにすることができます。このようにして、ワークブック全体がさまざまなユーザーにとってよりアクセスしやすくなります。最後に、シートはアルファベット順に並べるのではなく、任意の順序にすることができます。
注：
このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント（12569）は、Microsoft Excel 2007、2010、および2013に適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。