Home > 即効テクニック > Excel VBA > ユーザーフォーム関連のテクニック > フォームにコンボボックスを追加する

即効テクニック
ユーザーフォーム関連のテクニック

フォームにコンボボックスを追加する

(Excel 97/2000)
ユーザーフォームのControlsコレクションのAddメソッドを使って、フォームにコンボボックスを追加します。
フォーム「UserForm1」とコマンドボタン「CommandButton1」を用意します。
コマンドボタンがクリックされた時に発生するイベント「Click」に、フォームにコンボボックスを追加する処理と、コンボボックスに項目を追加する処理を作成します。
フォームを表示して、コマンドボタンをクリックすると、コンボボックスが追加され、リストには“Excel”“Word”“Access”の3項目が表示されます。

Private Sub CommandButton1_Click()
    Dim cmbAdd_1 As MSForms.ComboBox

    Set cmbAdd_1 = _
        UserForm1.Controls.Add("Forms.ComboBox.1", "cmbBox1", True)

    cmbAdd_1.AddItem "Excel"
    cmbAdd_1.AddItem "Word"
    cmbAdd_1.AddItem "Access"

End Sub