こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

投稿日時 - 2008-02-16 08:39:25

QNo.3780244

暇なときに回答ください

質問者が選んだベストアンサー

.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 = ""
を入れれば。

投稿日時 - 2008-02-16 08:50:46

お礼

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

投稿日時 - 2008-02-16 11:31:46

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問