人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

よろしくお願いします。

●質問者: imagedive
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:ユーザー リアルタイム 入力 数字 計算
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●60ポイント

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

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

◎質問者からの返答

おぉ。

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ