VBA テキストボックスの改行

現在、テキストボックスに入力された文字列を
セルに入力するプログラムを作っています。
その際、テキストボックス内で
あいうえお［改行］
かきすけこ
と入力された場合、
セル[A1]あいうえお
セル[A2]かきすけこ
としたいのですが何か方法はありますか？
回答よろしくお願い致します。

No.2 ベストアンサー 回答者： n-jun 回答日時： 2008/12/05 23:00

ANo.1です。

取り敢えず締め切っていないので応用編をば。

Dim x As Variant
x = Split(TextBox1.Text, vbLf)
Range("A1").Resize(UBound(x) + 1).Value = Application.Transpose(x)

ではどうでしょう？

この回答へのお礼

ご返事遅くなり申し訳ございません。
思っていた通りの事が出来ました。
ありがとうございます。

お礼日時：2008/12/08 09:54

No.1 回答者： n-jun 回答日時： 2008/12/05 17:52

取り敢えず２行限定で

Range("A1").Resize(2).Value = Application.Transpose(Split(TextBox1.Text, vbLf))

あとは上手く応用して下さい。

この回答へのお礼

回答ありがとうございます。
早速、応用してやってみます。

お礼日時：2008/12/05 17:58