EXCELのVBAについて

質問

フォームのテキストボックスに文字を書いて、ボタンを押すと、
A１セルにその内容が書き込まれるってのはできるんですが、
続けて、同じテキストボックスから、A2、A3のように続けて
入力する方法がわかりません。

わかる方いらっしゃいましたら教えていただけませんか？

回答No.3

n-jun

再度フォームを開いた時にＡ列の最終行以下に続けるのであれば、

Private Sub CommandButton1_Click()
Dim r As Range

Set r = Range("A" & Rows.Count).End(xlUp)

If r.Value <> "" Then Set r = r.Offset(1)

r.Value = TextBox1.Text

Set r = Nothing
End Sub

とかでしょうか？
⇒Ａ１に戻るのならスル～して下さい。

回答No.2

hige_082

一例です

Private Sub CommandButton1_Click()
Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
End Sub

お礼

できました。

ありがとうございます。

回答No.1

MotoShin

Dim i As Integer
Private Sub CommandButton1_Click()
Range("A" & i + 1).Value = TextBox1.Text
i = i + 1
End Sub

参考になれば幸いです。

お礼

できました。

ありがとうございます。