コンボボックスでワークシート名を選択してワークシートを開くにはどうすればよいですか？

Excelブックにすべてのシート名を含むコンボボックスがあるとします。このガイドでは、VBAコードを使用して特定のワークシートを開く方法を示し、コンボボックスにシート名を設定する手順と目的の機能を有効にする方法を説明します。

VBAコードを使用してコンボボックスでワークシート名を選択してワークシートを開く

VBAコードを使用してコンボボックスでワークシート名を選択してワークシートを開く

以下のVBAコードは、Excelのコンボボックス選択に基づいて特定のワークシートに移動するのに役立ちます。次の手順に従ってください。

注釈: コンボボックスにシート名が含まれていない場合、以下のヒントに従ってすべてのシート名を迅速に追加してください。すでにすべてのシート名を含むコンボボックスが存在する場合は、ステップ 1に直接進んでください。

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

すでにすべてのシート名を含むコンボボックスが存在する場合は、次の手順に従ってください。

1. 開発タブのデザインモードをオンにします。

2. シート名を持つコンボボックスを右クリックし、右クリックメニューから「 コードの表示」を選択します。

3. 次に、Microsoft Visual Basic for Applicationsウィンドウがポップアップ表示されるので、コードウィンドウ内の元のVBAコードを以下のVBAコードに置き換えてください。

VBAコード: コンボボックスの選択値によって特定のワークシートを開く

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
End Sub

注釈: コード内では、ComboBox1はシート名を含むコンボボックスの名前です。

4. Alt + Qキーを押して Microsoft Visual Basic for Applicationsウィンドウを閉じ、開発タブのデザインモードをオフにします。

これで、コンボボックスで任意のワークシート名を選択すると、対応するワークシートが自動的に開きます。

関連記事：

• Excelでコンボボックスの値をアクティブセルにコピーするにはどうすればよいですか？
• Excelでコンボボックスの出力に日付形式を表示するにはどうすればよいですか？
• Excelで指定されたセル値に基づいてコマンドボタンを非表示または再表示するにはどうすればよいですか？
• Excelでコンボボックスへの入力を防ぐまたは無効にするにはどうすればよいですか？
• Excelでコンボボックスから特定のセルを選択するためにタブを抜けるにはどうすればよいですか？