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
---------------------------------------------------------------

回答No.1

pkh4989 · ベストアンサー

こんにちは。

もっと良い方法があるかも知れませんが、(良い方法があれば直してください)
以下のマクロで、お試しください。

Dim wIdx　　　　As Integer

'ComboBox1選択
Private Sub ComboBox1_Click()
　　Dim wI　　 As Integer
　　wIdx = 1
　　wI = ComboBox1.ListIndex
　　Sheet1.Cells(wI + 2, wIdx).Select
End Sub
'ComboBox2選択
Private Sub ComboBox2_Click()
　　Dim wI　　 As Integer
　　wIdx = 2
　　wI = ComboBox2.ListIndex
　　Sheet1.Cells(wI + 2, wIdx).Select
End Sub
'
'ComboBox1入力
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
　　wIdx = 1
End Sub
'ComboBox2入力
Private Sub ComboBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
　　wIdx = 2
End Sub
'
'CommandButton1押下
Private Sub CommandButton1_Click()
　　Dim wText　　 As String
　　Dim mR　　　　 As Integer
　　Dim rFind　　 As Range
　　'
　　wText = Controls("ComboBox" & wIdx).Text
　　Controls("ComboBox" & wIdx).AddItem wText
　　'
　　With ActiveSheet
　　　　mR = .Cells(1, wIdx).End(xlDown).Row
　　　　Set rFind = .Range(.Cells(1, wIdx), .Cells(mR, wIdx)).Find(wText)
　　　　If rFind Is Nothing Then
　　　　　　.Cells(mR + 1, wIdx).Value = wText
　　　　　　.Cells(mR + 1, wIdx).Select
　　　　End If
　　End With
End Sub

お礼

ご回答どうもありがとうございます。
無事に解決することができました。
ありがとうございました。