初歩的なことかもしれませんが、よろしくお願いします。
ユーザーフォームに入力した数字をリアルタイムに計算するにはどうしたらよいのでしょうか？
例えばユーザーフォームの入力欄Ａと入力欄Ｂがあったとして、Ａ＋Ｂの計算をユーザーフォーム上でしたい場合です。
計算結果はユーザーフォーム上にリアルタイムに表示がしたいのです。
よろしくお願いします。
No.1
1314
393
60pt
入力がそれぞれ TextBox1,TextBox2 結果が TextBox3だとすると
40
40
Private Sub TextBox1_Change()
If Len(TextBox1.Value) = 0 Or Len(TextBox2.Value) = 0 Then Exit Sub
TextBox3.Value = CStr(CLng(TextBox1.Value) + CLng(TextBox2.Value))
End Sub
Private Sub TextBox2_Change()
If Len(TextBox1.Value) = 0 Or Len(TextBox2.Value) = 0 Then Exit Sub
TextBox3.Value = CStr(CLng(TextBox1.Value) + CLng(TextBox2.Value))
End Sub
でどうでしょうか。
数字の桁が Long の範囲を超えたり、数値以外のデータが入力された場合はエラーになりますので、
それを回避するには対策が必要になります。
2
おぉ。
ＭＯＯＫさんありがとうございます。一度やってみます。