VBAについて

質問

UserForm1に、TextBox2、TextBox3、ComboBox1があります。

例えば、それぞれに
TextBox2 = 100
TextBox3 = 500
ComboBox1 = abc-def
と値をフォームから入力し、
UserForm1に配置された「OK」ボタンをクリックすると、
エクセルシートのH10からM10の結合された一つのセルの中に

100 / 500
abc-def

と２段表示させたいのですが、可能でしょうか。
可能でしたら方法を教えて下さい。

回答No.2

imogasi · ベストアンサー

ポイントは
（１）セル結合したセルへ値をセットするのは結語前の左上隅のセルをめがけて、代入すること。
その他のセルに代入するとエラーにならないが、何もセットされなかった。
（２）一つのセルの中に、２段表示させたいのですが
は、VBCRLFの改行ではなく１００/５００のあとに、Chr(10）(改行のみ）を入れてabc-defと＆でつなぐこと。
Textbox2.text & Textbox3.text & Chr(10) & Combobox1.text
（３）そして書式ーセルー配置ー全体を折り返して表示にチェックを入れる。またはVBAで.WrapText=Trueを設定すること。

お礼

回答ありがとうございます。

無事解決することができました。

詳しく教えていただき、
本当にありがとうございました。

回答No.3

KenKen_SP

こんにちは。KenKen_SP です。補足です。

例えば、A1:C5 が結合された状態で、

Range("B2").Value = "AAAA" & vbLf & "BBBB"

無効となって代入されません。結合セルへ代入するのであれば #1 や
#2 のご回答のように左上のセルに対して代入するか、次のようにしま
す。

Range("B2").MergeArea.Value = "AAAA" & vbLf & "BBBB"

Range("B2") の MergeArea プロパティーで セルの結合範囲が Range
オブジェクトで返され、その Range オブジェクトに対して代入して
います。

お礼

回答ありがとうございます。

無事解決することができました。

このような方法もあるのですね。
勉強になりました。
本当にありがとうございました。

回答No.1

hana-hana3

Range("H10") = TextBox2 & " / " & TextBox3 & vblf & ComboBox1.value

＞結合された一つのセル

結合セルは、範囲の左上のセル位置を指定しないと有効になりません。
結合範囲の他のセルを指定しても無効（エラー）になります。

＞２段表示させたいのですが

折り返しは　VbLf 等で繋ぎます。

お礼

回答ありがとうございます。

無事解決することができました。

本当にありがとうございました。