ここから質問投稿すると、最大10000ポイント当たる!!!! >>

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

このQ&Aに関連する最新のQ&A

A 回答 (2件)

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
    • good
    • 0

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



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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング