• ベストアンサー

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

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

質問者が選んだベストアンサー

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.2

ANo.1です。 取り敢えず締め切っていないので応用編をば。 Dim x As Variant x = Split(TextBox1.Text, vbLf) Range("A1").Resize(UBound(x) + 1).Value = Application.Transpose(x) ではどうでしょう?

kimi_1101
質問者

お礼

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

その他の回答 (1)

  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

取り敢えず2行限定で Range("A1").Resize(2).Value = Application.Transpose(Split(TextBox1.Text, vbLf)) あとは上手く応用して下さい。

kimi_1101
質問者

お礼

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

関連するQ&A

  • Excel2000VBA テキストボックス内での改行で・・・

    ユーザーフォームにテキストボックスを作り、 テキストボックス内での改行をできるように設定します。 このテキストボックスに入力されたデータをセルに入力すると セルでは改行したところに「・」が入ってしまいます。 例えばテキストボックスに  こんにちは[改行]  いい天気ですね と入力して、これをsheet1のA1に入力します。すると、  こんにちは・  いい天気ですね と入力されてしまいます。 この「・」を表示しないようにする方法はありますか? よろしくお願いします。

  • EXCEL2010のテキストボックスについて

    テキストボックスに文字数制限はありますか? セルA1に文字列とセル値を&でつないだ文章を=の計算式で入力しています。 それをテキストボックスに=で取り込んでいるのですが、途中で文章が切れてしまいます。 文字数制限があるのでしょうか? この制限を解除する方法はないでしょうか? windows7 の excel2010です。 ご回答宜しくお願い致します。

  • テキストボックスの改行幅

    Wordで図を書く際にテキストボックスを使って文字を入力しています。テキストボックスの改行幅を狭くしたいのですが、どうすればよいでしょうか?

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

    セルが繰返し処理で選択させるのですが。 その選択されるセルをいちいち、フォーム内のテキストボックスに表示されるようにしたいのですが。 普通の改行は VbCrLf でおこなうのはわかるのですが、それぞれ、記述するコードが別になっていて、各文字列は変数に入っているのですが。 こういうときはどうすればいいのでしょうか。 ↓ ↓ 例 繰り返す処理の中で、テキストブックにかかるイベントはひたすら書き込みです。 フォーム1.text = Range("苗字").Value      処理 フォーム1.text = Range("苗字").Value       処理  フォーム1.text = Range("苗字").Value 上のを改行させてテキストボックスに並べたいのです。 例:  田中 佐藤 鈴木 ・  というように。 どなたかご教授お願い致します。

  • [VBA]テキストボックスからエクセル反映(複数行)

    始めまして。初めて質問させて頂きます。至らない点があると思いますがよろしくお願い致します。 今テキストボックスよりエクセル(単一セル)に文字を入力するシートを作成しております。 テキストボックスで複数行入力(Enterで改行)の方法と複数行入力した文字をシート(1セル)に反映したいのですが良い方法をご存知でしたらご教授お願いします。 【やりたい事項】 テキストボックス内 (1)○は△です。(Enterで改行) (2)×は●です。 エクセルシート上(A1セルで) (1)○は△です。(ALT+Enter) (2)×は●です。 現状:MultiLineをTRUEにして右端まで文字入力すると2行目に入力可能 エクセルに反映すると「○は△です。×は●です。」と1セルで1行で表示となってます。 言葉足らずかもしれませんが、よろしくお願いします。

  • テキストボックスに入力した改行を確認する

    例えば、テキストボックスに文章を入力したとします。そして、その文章を入力した時、何回か改行をしたとします。その改行を探したいのですが、方法がわかりません。 ループしながら文字列を1文字ずつ反転させていき、改行されているところまで来たらmsgboxを出す。というような事がしたいのです。むしろ、改行を反転できるのか、そこのところもよくわかりません。 If Text1.SelBold = true Then ↑この様な感じでif文の条件にする方法はないでしょうか。(これは太字ですが) Text1.●● ●●に入れるべきものがわかりません。ご存知の方いらっしゃいましたらご教授願います。そんな方法ないよという事でしたら、その事も教えていただければ幸いです。よろしくお願いします。

  • Excel テキストボックス内の改行

    テキストボックス内に文字を書いていて気になったのですが、テキストボックスの折り返し地点(右端)近くで半角英単語を入力すると先頭の文字ごと改行されてしまいます。 例えばSummerと入力する場合、半角英数3文字分のスペースが残っていてもSumまで入って改行されるのではなくSummerごと改行されてしまいます。全角で入力する場合はこのような事はありませんでした。 これは何故でしょうか?

  • エクセルVBAのテキストボックス改行について

    質問させて頂きます。 今VBAを使っているのですが TextBox内の改行がうまくいきません。 フォーム上にテキストボックスを置いて5~6行表示できる大きさにして、 (テキストボックス内に書いたものを保存ボタンでエクセル内の指定部分に反映させるコードを書き) それをマクロから開いて文字を入力している時に エンター押せば改行できると思っていたのですが出来ません。 CtrlやAlt押しながらもダメでした。 テキストボックスのプロパティ内に行を指定できる何かがあるのでしょうか? 色々いじりすぎて元に戻せなくなりつつあったので 質問させて頂きました。 ご存じの方おられましたら是非教えて下さい。 よろしくお願いします。

  • 【ActionScript】テキストボックス内で改行を禁止したい

    FLASH8(Win-XP)使用者です。 書き込みサイトを作っているのですが、その中で「改行」を禁止したいと考えています。 いったん受け取った文字列から改行を削除するのはわかりますが、「テキスト入力」の入力ボックスの表示の時点で「リターンキー」を押しても反応させないようにするにはどうしたらいいのでしょうか? お詳しい方、よろしくお願いいたします。

    • ベストアンサー
    • Flash
  • WORD2002:コントロールツールボックスのテキストボックス

    WORD2002でアンケートフォームを作成中です。 コントロール・ツールボックスでテキストボックスを作りました。広めにしてスクロールバーもつけ、たくさん入力できるようにしているのですが、ロック後、テキストボックス内の入力文章に任意で改行が入れられないのが気になります。これをなんとかする方法はないでしょうか? フォームで作ると回答者が任意で改行を入れられる点は良いのですが、入力文字に網掛けがかかってしまうのがデザイン上、気になります。かといって網掛けをオフにすると、入力位置が分かりにくくなってしまいます。※入力範囲は表のセルで表示しましたが、セル内のフォームフィールド以外の場所をクリックしても入力できないため、慣れない回答者には入力しづらそうです。 解決方法のアドバイスをどうぞよろしくお願いします!