フォームのテキストボックス内の改行について

セルが繰返し処理で選択させるのですが。
その選択されるセルをいちいち、フォーム内のテキストボックスに表示されるようにしたいのですが。

普通の改行は　VbCrLf　でおこなうのはわかるのですが、それぞれ、記述するコードが別になっていて、各文字列は変数に入っているのですが。

こういうときはどうすればいいのでしょうか。
↓　↓

例
繰り返す処理の中で、テキストブックにかかるイベントはひたすら書き込みです。

フォーム１.text = Range("苗字").Value
　　　　　処理
フォーム1.text = Range("苗字").Value
　　　　　　処理
　フォーム1.text = Range("苗字").Value

上のを改行させてテキストボックスに並べたいのです。

例：　

田中
佐藤
鈴木
・
　というように。

どなたかご教授お願い致します。

No.1 ベストアンサー 回答者： xcrOSgS2wY 回答日時： 2005/07/15 00:34

　　フォーム１.text = フォーム１.text & Range("苗字").Value & VbCrLf

という書き方はいかがでしょうか。

この回答へのお礼

すみません、できました！！＾＾
ありがとうございました！

でも、どうして
検索.テキスト = 検索.テキスト & Range("苗字").Value & vbCrLf

は　検索.テキスト　が2重になっているのでしょうか？

お礼日時：2005/07/15 00:43

No.3 回答者： ackapapa 回答日時： 2005/07/15 14:39

>検索.テキスト = 検索.テキスト & Range("苗字").Value & vbCrLf

>は　検索.テキスト　が2重になっているのでしょうか？
簡単な事です。
あらかじめ

X = 1

としていて、さらに今あるXに5を足すとして、

X = 5

としても、Xには「6」では無く「5」が入ります、解りますよね？
これは「追加」ではなく「書き換え（上書き）」となるからです。
正しくは

X = X + 5

です。これで「X」には「6」が入っています。
テキストでも同様で、

Text1.text = "ABC"

にさらに「DEF」を追記したい場合は

Text1.text = "DEF"

では無く

Text1.Text = Text1.text & "DEF"

で、Text1.text には「ABCDEF」が入ります

この回答へのお礼

説明してくださって有難うございます！
大変分かりやすかったです＾＾

お礼日時：2005/07/16 13:36

No.2 回答者： imogasi 回答日時： 2005/07/15 06:22

エクセルＶＢＡらしいが、ＶＢと書いてあったり、

＞繰り返す処理の中で、テキストブックにかかるイベントはひたすら書き込みです。
とかの「イベント」とか
＞記述するコードが別になっていて
とか
＞普通の改行は　VbCrLf　でおこなうのはわかるのですが、の「普通」とかの意味がよくわからない。
'----
strName=""
Ｆor i=1 to d
strName=strName & Cells(i,"A") & vbCrLf
Next i
TextBox1.text=strName
丁寧には、場合によっては最後のvbCrLfは削除が必要かも。
MultiLineプロパティをＴＲＵＥにする
とかの問題でしょうか。

この回答へのお礼

すみません。説明下手で
お答え有難うございました！

お礼日時：2005/07/16 13:36