即効テクニック |
ユーザーフォームの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