|
ponponさん Hirofumiさん
こんにちは。お礼が遅くなりました。
早速丁寧なご解答ありがとうございました。
大変良く分かりました。このようなコードで表現することの素晴らしさを
理解しました。
コマンドボタンで、入力データをシートに転記するコードを書きました
A列はうまくいきますが、B,C列は一行下にデータが転記されます(AからCまで
一行でそろいません)。どこが問題なのでしょうか?
もしご覧になっておられましたら、よろしくお願いします。
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To 2
Range("A65536").End(xlUp).Offset(1, i) = UserForm1.Controls("TextBox" & i + 1).Value
Next
End Sub
Hirofumiさん
非常に長いコードで私が理解できるまでに、時間がかかりそうです。
大切にコードを保存してじっくり勉強させていただきます。
ご指摘の通り、住所録のチェックと入力に活用する予定です。
本当にありがとうございました。
これからもよろしくご指導のほどお願いします。
|
|