シートにコンボボックス を 貼り付ける Control ComboBox

コンボボックスをシートに貼り付けます。

あとは、コードを書くんだけど、
まずは、テスト用のボタンを１つ作って、コンボボックスの中身に追加してみます。

Private Sub CommandButton1_Click() ComboBox1.Clear '中身をクリアー ComboBox1.AddItem "111111" '追加する ComboBox1.AddItem "222" ComboBox1.AddItem "cccc" ComboBox1.AddItem "eeee"
End Sub

Private Sub ComboBox1_Change() Range("A1") = ComboBox1.Value '値の代入