エクセル ＶＢＡ テキストボックス

質問

複数のテキストボックスの内容を
統合して別のテキストボックスに表示する方法を教えてください。

回答No.2

nikoniko_009

Sub TEXT_BOX_ADD() 'テキスト統合
Dim w1, w2, w3 As String

w1 = TextBox1.Text '統合するTextBox1
w2 = TextBox2.Text '統合するTextBox2
w3 = w1 & w2
TextBox3.Text = w3　'TextBox3に結果を表示

End Sub

回答No.1

hosohoso13

統合とは内容をくっつけるという意味ですか？

また、統合するタイミングはいつですか？
何かのボタンを押した時？エンターを押した時？入力中に？

ボタンを押したときなら、そのボタンのクリックイベントに
TextBox3.Text = TextBox1.Text & TextBox2.Text
とするなり、
エンターを押したときなら、テキストボックス１，２のKeyPressイベントに、
if KeyAscii = vbKeyReturn then
TextBox3.Text = TextBox1.Text & TextBox2.Text
End If
とする。常時統合したいのなら、テキストボックス１、２のChangeイベントに
TextBox3.Text = TextBox1.Text & TextBox2.Text
を入れる。