ベストアンサー

エクセルVBAで改行のやりかた

2004/08/19 15:54

ユーザーフォームでテキストボックスを設置しています。エクセルファイルからデータを検索して、一致するものをこのテキストボックス内に表示したいのですが、データがいくつもある場合、テキストボックス内で改行して表示したいのですがやり方がわかりません。分かる方いらっしゃいましたら伝授お願いします。

momotya
お礼率90% (77/85)

Visual Basic
回答数4
ありがとう数3

みんなの回答 （4）
専門家の回答

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

ベストアンサー

imogasi
ベストアンサー率27% (4737/17070)

2004/08/19 16:35 回答No.2

（１）そのTextBoxのプロパティのMultiLineプロパテイを Trueにする（２）改行するところでVBCrlfかChr(13)をいれる。下記３つともOKのよう。 Sub test01() Worksheets("Sheet3").TextBox1.Text = "aaa" & Chr(13) & "bbb" End Sub Sub test02() Worksheets("Sheet3").TextBox1.Text = "" Worksheets("Sheet3").TextBox1.Text = "aaa" & Chr(10) & "bbb" End Sub Sub test03() Worksheets("Sheet3").TextBox1.Text = "" Worksheets("Sheet3").TextBox1.Text = "aaa" & vbCrLf & "bbb" End Sub

質問者

補足 2004/08/19 16:48

さっそくの回答ありがとうございますm(_ _)m 質問なんですがChr()の中の数字は何か決まりがあるのでしょうか。

ログインすると、全ての回答が全文表示されます。

その他の回答 (3)

imogasi
ベストアンサー率27% (4737/17070)

2004/08/19 17:14 回答No.4

＃２です。補足の質問に既に答えが載りました。（）内は８ビット文字コードの番号です。通常は文字に割当てられていますが、少数はタブ、改行、キャリッジリターン、垂直タブ、ベルなどの機能的なものに割り当てられています。ついでに Sub test01() Worksheets("Sheet3").TextBox1.Text = "" Worksheets("Sheet3").TextBox1.MultiLine = False Worksheets("Sheet3").TextBox1.Text = "aaa" & Chr(13) & "bbb" End Sub では改行がされないことを確認しました。Chr(13)はキューQの字を反対向けた字で表示され、改行せずbbbga 続いています。

質問者

お礼 2004/08/20 09:43

またまた回答ありがとうございます！ No.2のやりかたでなんとか改行できましたＯ(≧▽≦)Ｏやっと先に進めます^^; が、私はまだまだVBAの勉強が足りません。 imogasiさんエクセルお詳しいようなのでまた何かありましたらよろしくお願いいたしますありがとうございました☆

ログインすると、全ての回答が全文表示されます。

rotesKomet
ベストアンサー率31% (83/265)

2004/08/19 17:02 回答No.3

＞質問なんですがChr()の中の数字は何か決まりがあるのでしょうか。改行コードは、キャリッジリターンが chr(13)、ラインフィードがchr(10)になります。 Windowsは普通、改行コードはキャリッジリターン＋ラインフィードです。 VBCrLfはvbの組み込み定数で、chr(13) & chr(10)と同じ意味です。他に、VBCrはchr(13)で、VBLfはchr(10)です。

質問者