Excel オーダーフォームのテキストボックス入力について

質問

オーダーフォームを作成し、テキストボックスを2つ以上作成し、コマンドボタンを1つ作りました。
同じ行ですべてを入力できるようにしたいのですが、どうしたらよいでしょうか？
テキストボックス1の値を入力するためのコマンドは、最下位の行を探してそこに入力するようなコマンドを作っているはずです…その横の列にテキストボックス2の値を入力し、その横の列にテキストボックス3の値を入力し…というようにしていきたいのです。

Private Sub CommandButton1_Click()
Dim lRow As Long
With Worksheets("sheet1")
lRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & lRow + 1).Value = TextBox1.Value
End With
TextBox1.Value = ""
TextBox1.SetFocus
End Sub

回答No.1

shikisaito · ベストアンサー

.Range("A" & lRow + 1).Value = TextBox1.Valueの下に、
.Range("B" & lRow + 1).Value = TextBox2.Value
.Range("C" & lRow + 1).Value = TextBox3.Value
を入れればいいのでは？

TextBox1.Value = ""の下にも、
TextBox2.Value = ""
TextBox3.Value = ""
を入れれば。

お礼

ありがとうございました
解決しました。