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

締切済

質問者：summer26
質問日時：2008/07/22 14:23
回答数：2件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： nikoniko_009
回答日時：2008/07/25 00:15

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

- 0
- 件

通報する

No.1

回答者： hosohoso13
回答日時：2008/07/22 14:39

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

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

ボタンを押したときなら、そのボタンのクリックイベントに
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
を入れる。