Excelでドロップダウンリストを使用してワークシート間を移動するにはどうすればよいですか？

複数のワークシートが含まれるワークブックがあり、すべてのシート名をリスト化したドロップダウンリストまたはコンボボックスを作成し、そのリストからシート名を選択すると、すぐにそのシートにジャンプする必要があるとします。この記事では、Excelでドロップダウンリストを使用してワークシート間を移動する方法を紹介します。

Excelでドロップダウンリストを使用してワークシート間を移動する

Excelでドロップダウンリストを使用してワークシート間を移動する

ドロップダウンリストを使用して各選択したシートにジャンプするには、次の手順に従ってください：

1. 開発 > 挿入 > コンボ ボックス (ActiveX コントロール) をクリックしてください。スクリーンショットをご覧ください：

2. 次に、マウスをドラッグしてコンボボックスを描画し、右クリックしてコンテキストメニューから「コードの表示」を選択します。スクリーンショットをご覧ください：

3. 開かれた Microsoft Visual Basic for Applications ウィンドウで、次のコードをコピーして貼り付け、元のコードを置き換えてください。スクリーンショットをご覧ください：

VBAコード: ドロップダウンリストを使用してワークシート間を移動する

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. その後、このコードウィンドウを保存して閉じ、デザインモードをクリックしてデザインモードをオフにします。これで、コンボボックスからシート名を選択すると、そのシートに即座に移動します。スクリーンショットをご覧ください：