|
皆さん 今日は。
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にありますか?
|
|