【Excel・マクロ】コンボボックス・テキストボックスからのデータの入力について

質問

教えて下さい！

今シートにはＡ列に日付（2003/1/1～2010/12/31）、Ｂ列からＩ列の１行目には項目名が入っています。
これから行いたいことは、別マクロで表示させたフォームのコンボボックスから日付を選択し、同じフォーム上にある項目名に沿った８つのテキストボックスにデータを入力することにより、そのデータがシートに反映されるというものを作成したいのです。

データが入力される部分は選択された日付の行の、各項目名と交わる部分となります。
（例）
　　　　　　 ｜あああ｜いいい｜ううう・・・
2003/1/1 ｜　　　　｜　　　　｜
2003/1/2 ｜　　　　｜　　　　｜
2003/1/3 ｜　　　　｜　　　　｜
※上の表だとコンボボックスから2003/1/2を選択し、テキストボックス「いいい」部分にデータを入力するとＣ３セルにデータが入力されます。

コンボボックスにデータを表示させることは出来るのですが、そこから先（この日付を選んでテキストに入力して・・・）が出来ません。
よろしければ、記述を教えて頂きたいと思います。

宜しくお願い致します。

回答No.2

jindon

ComboBoxを２つ (ComboBox1, ComboBox2)
TextBoxを１つ (TextBox1)
CommandButtonを1つ (CommandButton1)

をフォームに配置してください。
該当シートをSheet1にしてあります。

Private Sub UserForm_Initialize()
Dim ws As Worksheet, r As Range
Set ws = Sheets("sheet1")
For Each r In ws.Range("a2", ws.Cells(Rows.Count, 1).End(xlUp))
If Not IsEmpty(r) Then Me.ComboBox1.AddItem r.Text
Next
With Me.ComboBox2
.Column = ws.Range("b1", ws.Cells(1, Columns.Count).End(xlToLeft)).Value
End With
Set ws = Nothing
End Sub

Private Sub CommandButton1_Click()
Dim ctrl As Control, tst1 As String, txt2 As String
Dim ws As Worksheet, r As Long, c As Long
Set ws = Sheets("sheet1")
For Each ctrl In Me.Controls
Select Case ctrl.Name
Case "ComboBox1", "ComboBox2", "TextBox1"
If Me.Controls(ctrl.Name).Value = "" Then
txt1 = txt1 & ctrl.Name & vbLf
Else
txt2 = txt2 & Me.Controls(ctrl.Name).Value & vbLf
End If
End Select
Next
If Len(txt1) > 0 Then
MsgBox "以下の値を入力してください" & vbLf & txt1, vbExclamation
Exit Sub
Else
ret = MsgBox("以下の値を入力します" & vbLf & txt2, vbOKCancel)
If ret <> vbOK Then Exit Sub
r = ws.Columns(1).Find(Me.ComboBox1.Value, , xlValues).Row
c = ws.Rows(1).Find(Me.ComboBox2.Value).Column
ws.Cells(r, c) = Me.TextBox1.Text
End If
Set ws = Nothing

End Sub

お礼

こういうやり方もあるんですねー。
勉強になります。
ありがとうございました◎