Excelでユーザーフォームのコンボボックスにすべてのシート名を表示するにはどうすればよいですか？

この記事では、現在のワークブック内のすべてのシート名をExcelのユーザーフォームのコンボボックスに表示する方法について説明します。

VBAコードを使用してユーザーフォームのコンボボックスにすべてのシート名を表示する

VBAコードを使用してユーザーフォームのコンボボックスにすべてのシート名を表示する

次のVBAコードは、現在のワークブックのすべてのシート名をユーザーフォームのコンボボックスに挿入するのに役立ちます。以下の手順に従ってください。

1. Alt + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、下のスクリーンショットのように「挿入」＞「ユーザーフォーム」をクリックしてユーザーフォームを挿入してください。

3. 次に、ユーザーフォームにコンボボックスコントロールを描画して挿入します。スクリーンショットをご覧ください：

4. 挿入したコンボボックスを右クリックし、コンテキストメニューから「コードの表示」を選択します。スクリーンショットをご覧ください：

5. 開いたMicrosoft Visual Basic for Applicationsウィンドウで、以下のVBAコードをコピーして貼り付け、コードウィンドウ内の元のコードを置き換えてください。

VBAコード：現在のワークブックのすべてのシート名をユーザーフォームのコンボボックスに表示する

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

注釈: コード内では、ComboBox1は挿入されたコンボボックスの名前です。必要に応じて変更してください。

6. F5キーを押してコードを実行します。開いたユーザーフォームで、現在のワークブックのすべてのシート名がコンボボックスに表示されているのが確認できます（下のスクリーンショット参照）。

関連記事：

• Excelでコンボボックスの値をアクティブセルにコピーするにはどうすればよいですか？
• Excelでコンボボックスの出力に日付形式を表示するにはどうすればよいですか？
• Excelでコンボボックスの選択値に基づいて特定のワークシートを開くにはどうすればよいですか？
• Excelでコンボボックスへの入力を防ぐまたは無効にするにはどうすればよいですか？
• Excelでコンボボックスからタブを使って特定のセルを選択するにはどうすればよいですか？