EXCEL VBAに関しての質問です。


初歩的なことかもしれませんが、よろしくお願いします。
ユーザーフォームに入力した数字をリアルタイムに計算するにはどうしたらよいのでしょうか?

例えばユーザーフォームの入力欄Aと入力欄Bがあったとして、A+Bの計算をユーザーフォーム上でしたい場合です。
計算結果はユーザーフォーム上にリアルタイムに表示がしたいのです。

よろしくお願いします。

回答の条件
  • 1人5回まで
  • 登録:2008/02/10 18:20:30
  • 終了:2008/02/17 18:25:02

回答(1件)

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912008/02/10 20:43:48

ポイント60pt

入力がそれぞれ TextBox1,TextBox2 結果が TextBox3だとすると

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 の範囲を超えたり、数値以外のデータが入力された場合はエラーになりますので、

それを回避するには対策が必要になります。

id:imagedive

おぉ。

MOOKさんありがとうございます。一度やってみます。

2008/02/10 21:39:46

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません