• ベストアンサー

Excel VBA-改行について

Excel VBAで、UserFormのTextBoxに入力されたものをワークシートに表示させたいのですが、 TextBox内で、「Enter」キーが押されたら改行する方法と TextBoxで入力された通り(改行等)にワークシートのセルに表示する方法を どなたか教えて下さい。

  • gazo
  • お礼率30% (74/241)

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

  • ベストアンサー
  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.1

こんばんは。 Userform のプロパティの ShowModal | False TextBox1 のプロパティ EnterKeyBehavior | True   ''        Multiline | True 出力は、こんな風でよいのでは? Private Sub CommandButton1_Click()  ActiveCell.Value = Replace(TextBox1.Text, vbCr, "") End Sub

gazo
質問者

お礼

回答ありがとうございます。 無事解決することができ、とても助かりました。 ありがとうございました。

関連するQ&A

  • Excel 特定のセルだけEnterでセル内改行

    タイトル通りのことなのですが、VBA等を駆使してできないか悩んでいます Excelのセル内改行は通常Alt+Enterなのですが、 使っているシートの一つのセルだけ複数行入れるような大きな所があります。 他のセルでは問題ないのですがここの入力時では、 いつもAltを押しながらでないと改行できない煩わしさが募りまして、 「このセル内に限り」Enterキーだけで改行できるようにしたいのです。 条件としてはあくまでこのセルのみで、形を崩さずにできることが望ましいです。 この入力セルは他シートから参照されているため 複数行のセルに分割したり、テキストボックスに置き換えることは難しいです 色々探した挙句、Application.MoveAfterReturn など VBAを駆使して考えてみたのですが 手詰まりになってしまいました。 何かできる方法はありますでしょうか?

  • エクセルVBAのマクロ文について

    エクセルVBAで、シート上のボタン(フォーム)をクリックすると、UserForm1が表示されてその中のTextBoxに別のシートのセルに入力したいる値を表示させたくて、以下のようにボタン(フォーム)にマクロを入力したのですが、エラーがでてきてうまくいきません。 入力したマクロが間違っているのでしょうか? Sub ボタン1_Click() UserForm1.Show UserForm1.TextBox1 = Sheets("入力").Ranges("D11").Value End Sub すみませんが、ご存知の方、教えてくださいませんか?

  • VBAについて

    エクセルシートで任意に選択されたセルの個数を VBAのUserFormのTextBoxに表示されるのは どのようにしたらよいのでしょうか? 例)エクセルシートで、B2~D2をマウスで選択すると、   UserFormのTextBoxに3と表示されるようにする。 任意に選択されたセルの個数を求めるのは 以下のようにしました↓↓↓ ********************************* * Sub GetAreaValue() *   Dim CELLNUM As Integer *   CELLNUM = Selection.Count * End Sub *********************************

  • VBAについて

    UserForm1に、TextBox2、TextBox3、ComboBox1があります。 例えば、それぞれに TextBox2 = 100 TextBox3 = 500 ComboBox1 = abc-def と値をフォームから入力し、 UserForm1に配置された「OK」ボタンをクリックすると、 エクセルシートのH10からM10の結合された一つのセルの中に 100 / 500 abc-def と2段表示させたいのですが、可能でしょうか。 可能でしたら方法を教えて下さい。

  • TextBoxで改行した内容をセルで確認したときの動作ついてしつもんです。

    VBAでTextBoxに文字を入力し、改行を行ってセルに貼り付けを行うと 見た目では改行できているのですが、セルをアクティブにして、 コピペすると改行が2つ入ってしまいます。対処する方法ないでしょうか。 例 テキストボックスに入力 あいうえお(改行) かきくけこ ActiveSheet.ActiveCell = Userform1.Textbox1.Value セルに挿入 セルをアクティブにしてコピペすると あいうえお(改行) (改行) かきくけこ

  • エクセル2003の改行について

    エクセル2003を使用しています。 結合したセル内で文字を入力し、任意の場所で改行を行うには、通常「Alt」+「Enter」を使いますが、VBA等を使用し、「Alt」を押さずに「Enter」のみで、任意の場所で改行させることは可能でしょうか? できれば適応させるセルの番地も指定できればうれしいのですが・・・ よろしくお願い申し上げます。

  • エクセル VBA BeforeDoubleClick

    エクセル VBA 初心者です エクセルで セルをダブルクリック(複数のセル)しUserFORMが出るところまではできましたが UserFormでの登録時のオブジェクトがわかりません;;  sheetでtarget.range("A1:G1")して A1~G1でUserFormをよびだしています UserFormで登録時 target.offset(1,0)=textbox1.text みたいな感じで作ったらオブジェクトが見つかりませんが でます userformでのtarget指定はできるでしょうか?

  • Excel VBAで改行を含めたセルのコピー

    Excel VBAにて、任意のセルを他のセルにコピーするコードを作成しています。 コピー元になるデータが、Alt+Enterで改行を伴ったデータとなっており、 これを.copyにてデータを送ると、改行が無くなった(連結された)表示となります。 一度そのセルをダブルクリックにて操作し、再びEnterを押すと、改行された状態に戻りますが、これを最初から改行されたままのコピーとしてデータを渡すことは可能でしょうか?

  • エクセルのセルの中で改行するには

    タイトル通りですが、あるサイトで エクセルのセルの中で改行するには Altキー+Enterキーで改行できます。 とあるのですが、おそらくWINだと思うのですが 私が使っているのはMACのEXEL MAC2008で Altキー+Enterキーだと 次のセルに移動してしてしまて ちゃんと改行できません。 MACは違うのでしょうか・・・

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

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

専門家に質問してみよう