| 
    
     |  | 皆さん 今日は。 
 Private Sub CommandButton1_Click()
 行 = Application.Match(Me.TextBox1.Text, Range("A1:A10"), 0)
 列 = Application.Match(Me.TextBox2.Text, Range("A1:F1"), 0)
 Cells(行, 列).Value = Me.TextBox3.Value
 End Sub
 
 これで試してみてください。
 それとA列の書式を文字列に指定しておくとより確実になると思います。
 
 
 >>Cells(行, 列).Value = cmb3 ←ここが黄色くなるのですが?
 >> ↑
 >>ここのいみは?これは行と列の基準を作っているのですか?
 >CELLSに関してはHELPを見てください。
 >
 >エラーになるということは
 >>  行 = Application.Match(cmb1, Range("A1:A10"), 0)
 >>  列 = Application.Match(cmb2, Range("A1:F1"), 0)
 >のどちらか一方でも見つからなかったということです。
 >テキストボックス1と同じ内容がA1からA10にありますか?
 >テキストボックス2と同じ内容がA1からF1にありますか?
 
 |  |