エクセル2007VBAで連続データ（文字列）の入力

質問

●質問の主旨
エクセル2007のVBAでマクロを作成して
同じ列に次々と文字を入力していくにはどうすればよいでしょうか？

●質問の補足
ワークシートのA列に文字列を入力していくマクロを
作成しようとしています。コードの概要は以下の通りです。

１．１回目の入力でA1セルには文字列を入力
２．１のあとフォーカスがテキストボックスに戻る。
３．２回目の入力でテキストボックスに文字列を入力
４．２回目の文字列がA2セル入力
５．以下２～５が続く

ところが４のところでA1セルの内容を消去して
２回目の文字列をそのままA1セルに入力してしまいます。

コードに問題があると考えられますが、
どこに問題があるでしょうか？
以下のコードと添付画像をご参照の上、
ご教示くだされば幸いです。

なお添付画像の内容は、作成目標である
A列に次々と文字列が入力されていく「模範解答」です。

●コード
(General)-連続データ入力

Sub 連続データ入力()
UserForm1.Show vbModal
End Sub

(General)-（Declaration)
Dim CelNo As String
Dim Pos As Integer

（UserForm1:UserForm_Initialize)
Private Sub UserForm_Initialize()
Pos = 1
CelNo = "A" & Pos

End Sub

（UserForm1:InputBtn_Click)
Private Sub InputBtn_Click()
With Worksheets("sheet1")
.Range(CelNo) = UserForm1.TextBox1.Text
Pos = 1
CelNo = "A" & Pos
.Range(CelNo).Activate
End With
UserForm1.TextBox1.Text = ""
UserForm1.TextBox1.SetFocus

End Sub

（UserForm1:CommandButton2_Click)
Private Sub CommandButton2_Click()
Unload UserForm1
End
End Sub

回答No.1

keithin · ベストアンサー

InputBtn_Clickの中で，Posの値を１に固定していて増やしていないからです。

標準モジュール
sub main()
　userform1.show
end sub

ユーザーフォームのコードモジュール
Private sub InputBtn_Click()
　dim Pos as range
　with worksheets("Sheet1")
　set pos = .cells(.rows.count, "A").end(xlup).offset(1)
　pos.value = me.textbox1.text
　pos.offset(1).activate
　end with
　me.textbox1 = ""
　me.textbox1.setfocus
end sub

priavte sub CommandButton2_Click()
　me.hide
end sub

＃参考
ご質問で掲示されている図のようにいきなり「A1セルから」データを記入していきたいのでしたら，その旨細工を追加してください。
一般に先頭セルには「列のタイトル」を記入し，A2以下に実データを記入していくモノではありませんか。

お礼

早速のご回答ありがとうございます。
keithin様のご回答大変参考になります。
助かりました。

回答No.2

imogasi

シート上で同じところを指定して書き込んでいるのだろうから、質問のようになるのは当たり前。
内科医入力後のシートのでーた最終行の次行に書き込めば仕舞い。
最終行を思いつかないようでは、VBAの経験が足りない。
他のよくある問題で、まず初めに必要になる（例シートのデータ全行を処理する。For Nextどで繰り返すとき
終わりの行がどこかを知らないとやりにくい。１行下に進めて「空白か」と聞いている初心者もいるが）
A列なら
Sub etst021()
r = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
MsgBox r
End Sub
これに＋１したところが書き込むべき行。
ーー
質問文も、長々と書いているが
各時点で、「現存するデータの一番下行の次の行を求めるには？」ですむべき問題。