ワークブックを開いたときに指定されたデータでコンボボックスを設定するにはどうすればよいですか？

通常、コンボボックス（ActiveXコントロール）には、特定のセル範囲のデータを入力することで、コンボボックスのプロパティにある「ListFillRange」フィールドにセル参照を入力してデータを設定できます。手動でプロパティを調整せずに、指定されたデータでコンボボックスを直接設定したい場合、この記事で説明されている方法が役立ちます。

VBAコードを使用して指定されたデータでコンボボックスを設定する

VBAコードを使用して指定されたデータでコンボボックスを設定する

この方法では、ワークブックを開いた際に指定されたデータでコンボボックスを直接設定することができます。以下の手順を行ってください。

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

2. Microsoft Visual Basic for Applicationsウィンドウで、左ペインの「ThisWorkbook」をダブルクリックして、「ThisWorkbook」コードエディタを開きます。その後、下記のVBAコードをコピーして貼り付けます。スクリーンショットをご覧ください：

VBAコード: ワークブックを開いた時に指定されたデータでコンボボックスを設定する

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
    With Sheet1.ComboBox1
        .Clear
        .AddItem "Select a Fruit"
        .AddItem "Apple"
        .AddItem "Banana"
        .AddItem "Peach"
        .AddItem "Pineapple"
        .AddItem "Watermelon"
        .Text = .List(0)
    End With
End Sub

注意:

3. ワークブックを「Excelマクロ有効ブック」形式で保存し、閉じます。

4. ワークブックを再度開くと、次のスクリーンショットに示すように、コンボボックスが指定されたデータで設定されていることが確認できます。

関連記事:

• Excelでアクティブセルにコンボボックスの値をコピーするにはどうすればよいですか？
• Excelでコンボボックスの出力を日付形式で表示するにはどうすればよいですか？
• Excelでコンボボックスへの入力を防ぐまたは無効にするにはどうすればよいですか？
• Excelで名前付き範囲のデータを使用してコンボボックスを設定するにはどうすればよいですか？