Excelで各シートにハイパーリンク付きのドロップダウンリストを作成するには？

ワークブック内のすべてのシートにハイパーリンクを含むドロップダウンリストを作成できることをご存知ですか？ あるいは、ドロップダウンではなくクリック可能なリストを希望する場合は、すべてのシートへのハイパーリンクリストを生成することもできます。このガイドでは、シートリンク付きのドロップダウンリストを作成する方法と、クリック可能なシート名のリストを生成する方法の両方を説明します。

シートのハイパーリンク付きドロップダウンリストを作成する

シート名のクリック可能なリストを作成する

シートのハイパーリンク付きドロップダウンリストを作成する

ワークブック内の各シートへのハイパーリンクを含むExcelのドロップダウンリストを作成するには、簡単なVBAコードを使用してこれを実現できます。

1. クリックしてください 開発 > 挿入 > コンボボックス（ActiveXコントロール）.

注: リボンに開発タブが表示されていない場合は、クリックしてください ファイル > オプション > リボンのユーザー設定、そして右側のボックスで 開発 オプションをチェックします。スクリーンショットをご覧ください：

2. 次に、好きな場所にコンボボックスを描画します。

3. 先ほどコンボボックスを描画したシートを右クリックし、 コードの表示 をコンテキストメニューからクリックします。

4. 下記のコードを空白のスクリプトにコピー＆ペーストし、保存してシートに戻ります。

VBA: シートリンク付きドロップダウンリストの作成

 Private Sub ComboBox1_Change()
'UpdatebyExtendoffice20180404
    Sheets(Me.ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_GotFocus()
    Dim I As Long
    Me.ComboBox1.Style = fmStyleDropDownList
    If Me.ComboBox1.ListCount <> Sheets.Count Then
        Me.ComboBox1.Clear
        For I = 1 To ActiveWorkbook.Sheets.Count
            Me.ComboBox1.AddItem Sheets(I).Name
        Next
    End If
    Me.ComboBox1.DropDown
End Sub

5. クリックしてください 開発 > デザインモード デザインモードを終了します。

これで、すべてのシートがドロップダウンリストに表示され、シート名をクリックするとそのシートに移動します。

シート名のクリック可能なリストを作成する

下のスクリーンショットのように、クリック可能なシート名のリストを作成したい場合は、 Kutools for Excel’s Create List of Sheet Names 機能を使用できます。このツールを使用すると、シート名へのハイパーリンクリストや、各シートにリンクされたマクロボタンのリストを生成できます。

1. クリックしてください Kutools Plus > ワークシート > Create List of Sheet Names.

2. 「Create List of Sheet Names」ダイアログで、以下のように操作します：

(1). クリック可能なシート名のリストを作成するには「 Contains a list of hyperlinks」を選択、または各シートにリンクするボタンを作成するには「Contains buttons and macros」を選択します。

(2). ハイパーリンクを配置する新しいシートに名前を付けます。

(3). 新しいシートの位置を指定します。

(4). シートリンクを何列で表示するかを指定します。

3. 「OK」をクリックすると、クリック可能なシート名が新しいシートに表示されます。

デモ: シート名のクリック可能なリストを作成する