VBAのComboBoxについて
UserForm1にComboBoxが８個(ComboBox1～8)あります。
各ComboBoxはSheet1の下記列に入力されているリストを表示します。
ComboBox1 : A列
ComboBox2 : B列
ComboBox3 : C列
ComboBox4 : D列
ComboBox5 : E列
ComboBox6 : F列
ComboBox7 : G列
ComboBox8 : H列
ComboBox9 : I列
ComboBox10 : J列
そこで、UserForm1の各ComboBoxでデータ選択する際に、リストにある場合はそれを選択し、リストにない場合はComboBoxに新しいデータを入力し、UserForm1のCommandButton1を押下時にその新しいデータをSheet1の各列に追加したいのですが、どのようにしたらよいのでしょうか。
Sheet1にあるリストをComboBoxに表示するところまではできています。
※ComboBoxの番号とリストの列番号を一致させています。
---------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim lastrw As Integer, retu As Integer, i As Integer
For retu = 1 To 10
lastrw = Sheet1.Cells(1, retu).End(xlDown).Row
For i = 1 To lastrw - 1
Controls("ComboBox" & retu).AddItem Sheet1.Cells(i + 1, retu).Value
Next i
Next retu
End Sub
---------------------------------------------------------------
