開いているワークブックで指定したデータをコンボボックスに入力するにはどうすればよいですか？

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

コンボボックスにVBAコードを使用して指定したデータを入力します

コンボボックスにVBAコードを使用して指定したデータを入力します

この方法は、開いているブックに直接指定したデータをコンボボックスに入力するのに役立ちます。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このワークブック 左側のペインで このワークブック コードエディタ。 次に、以下の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で名前付き範囲のデータをコンボボックスに入力するにはどうすればよいですか？