どのイベントかわかりません・・・。

質問

Text3=Text1+Text2という式で、Text1に３を入れ、Text2に４を入れたら自動的にその計算結果をText3のテキストボックスに７というふうに出したいのですが、
Private sub Text3 ????

Text3=Text1+Text2

End sub

???の部分のイベントがわかりません。。
Clickだと面倒なので、教えてください。
宜しくお願いします！

回答No.2

kukkychan · ベストアンサー

この場合、text1及びtext2を入力した場合に、text3へ結果を反映
したいという風に思えるのでtext3のイベントではなく
text1と、text2のイベントとして、処理を書くほうが良いと思います。

Private Sub text1_Change()

　'text2に数値が入力されていた場合のみ処理実行
If Text2.Text <> vbNullString then
　　Text3.Text = Val(Text1.Text) + Val(Text2.Text)
　End If　

End Sub

Private Sub text2_Change()

　'text1に数値が入力されていた場合のみ処理実行
If Text1.Text <> vbNullString then
　　Text3.Text = Val(Text1.Text) + Val(Text2.Text)
　End If　

End Sub

あと数値チェックとかもした方が良いと思います。
また、フォーカスが移動した時点でよければ、
それぞれtext1とtext2のLostFocusイベントでも
良いんじゃないでしょうか＾＾

お礼

LostFocusでばっちりできました！
ありがとうございます！

回答No.1

MovingWalk

Text1とText2にデータを入力するのですから、 Text3のイベントではないですね。

Private sub Text1_after_update()
Private sub Text2_after_update()
だったかな？　今、手許にないのであやふやですが。
いずれにしても、Text1、Text2の値が更新されたイベントを処理すればいいと思います。

お礼

参考になりました！
ありがとうございます！