[[20060130122139]]　『セルのデータをテキストボックスに転記したい』（好慧）　ページの最後に飛ぶ

『セルのデータをテキストボックスに転記したい』（好慧）

 おはようございます。久しぶりにお邪魔します。教えて下さい。
 セルに...
  ( 名取Ｆ ) ヒット 単打    ( 田崎Ｈ ) ヒット 本塁打    ( 伊川Ｒ ) ゴロ 内野 単殺アウト   ( 榎本Ｔ ) 四球で出塁
 のように入力されているデータがあります。
 このデータをユーザーフォーム上のテキストボックスに入れたいんですが、
 直接、 .range("A1") = TextBox1だとテキストボックスの幅に合わせて改行されて
 しまいますので、みやすくなるようにしたいのですが、どのようにすればよろしいでしょうか？
 【現状】
   ( 名取Ｆ ) ヒット 単打    ( 田崎
   Ｈ ) ヒット 本塁打    ( 伊川Ｒ ) 
   ゴロ 内野 単殺アウト   ( 榎本Ｔ )
    四球で出塁
 【表示させたい形】
   ( 名取Ｆ ) ヒット 単打
   ( 田崎Ｈ ) ヒット 本塁打
   ( 伊川Ｒ ) ゴロ 内野 単殺アウト
   ( 榎本Ｔ ) 四球で出塁

 セルのデータは、  ( 名取Ｆ ) ヒット 単打    ( 田崎Ｈ ) ヒット 本塁打    （…
                                   ^^    ^^^^                 ^^     ^^^^
　　　　　　　　　　　　　半角2文字↑　　　↑半角4文字　　で規則正しく並んでいます。
 マルチライン等で検索したんですが、わかりませんでした。宜しくお願いします。

 よくわかりませんが、作ってみました。
 こんな感じでしょうか？
　
Private Sub UserForm_Click()
Dim MyVal As Variant
Me.TextBox1.MultiLine = True
With ActiveSheet
    MyVal = Mid(.Range("A1"), 2, Len(.Range("A1")) - 1)
    MyVal = "(" & Application.WorksheetFunction.Substitute(MyVal, "(", Chr(13) & Chr(10) & "(")
    TextBox1 = MyVal
End With
End Sub

 何かの参考になればいいのですが。。。

 （キリキ）(〃⌒o⌒)b

 キリキさま
 ご指導ありがとうございました。・・・質問が間違っていましたのに^^;
 正解を頂きました。
 テキストボックスは関係ありませんでしたデス。
 複数のテキストボックスの内容を一つのセルに転記して ←このデータが（○○）ヒット…等
 この転記したセルのデータを　　　　　　　　　　　　 ←ここからが本来の質問でした　
 違うシートのA1に質問のように改行して表示したかったのです。
 いいかげんな質問に対して助けてくださってありがとうございました。
 (好慧)

コメント返信：

[ 一覧(最新更新順) ]

[[20060130122139]] 『セルのデータをテキストボックスに転記したい』（好慧） ページの最後に飛ぶ

[[20060130122139]]　『セルのデータをテキストボックスに転記したい』（好慧）　ページの最後に飛ぶ