[[20070802224022]]　『テキストボックスに入力した数の合計を表示させた』（梁）　ページの最後に飛ぶ

『テキストボックスに入力した数の合計を表示させたい』（梁）

 いつも皆様の書き込み参考にさせていただいてます。
 今回も検索してみたのですがうまく見つけられなかったので
 新規で書き込ませていただきました。
 （もし同内容の書き込みがありましたらすみません）

 Excel2003を使用してます。
 ＶＢＡのユーザーフォームにテキストボックス１～８があり、そこに数量を入れます。
 そのテキストボックスに数字を入力した時に
 合計がユーザーフォーム上に即表示されるようにしたいのですが・・・。
 そのようなことは可能でしょうか？
 表示方法はテキストボックスじゃなくてもかまいません。
 テキストボックス１～８はコマンドボタンをクリックすると
 シートへ入るようになってます。

 分かりづらい説明かと思いますがよろしくお願いいたします。

 例えば、ラベルに表示する。
 テキストボックス１とテキストボックス２の値の合計をラベル１に随時表示。

 Private Sub TextBox1_Change()
 Me.Label1.Caption = Val(Me.TextBox1.Value) + Val(Me.TextBox2.Value)
 End Sub

 Private Sub TextBox2_Change()
 Me.Label1.Caption = Val(Me.TextBox1.Value) + Val(Me.TextBox2.Value)
 End Sub
 こんな感じでは、どうでしょうか？
 (じゅんじゅん)

 じゅんじゅん様、早速のお返事ありがとうございました！

 実は自宅から書き込ませていただいたので
 ファイルは会社にあるため、すぐに確認する事ができません。
 明日早速試してみようと思います。ありがとうございます。

 こちらの方が楽でしょうか。
 ユーザーフォーム１上のテキストボックスの値を随時合計できます。

 Private Sub TextBox1_Change()
     Call goukei
 End Sub

 Private Sub TextBox2_Change()
     Call goukei
 End Sub

 Sub goukei()
     Dim i As Double
     Dim con As Object
  For Each con In UserForm1.Controls
      If TypeName(con) = "TextBox" Then
         i = i + Val(con.Value)
      End If
  Next
  UserForm1.Label1.Caption = i
 End Sub

 (じゅんじゅん)

 じゅんじゅん様、別の方法も教えてくださりありがとうございました！
 最初に教えていただいた方法でやってみたら希望通りのことができるようになりました。
 後から教えていただいた方ももう少し勉強してやってみようと思います。
 本当にありがとうございました！（梁）

コメント返信：

[ 一覧(最新更新順) ]

[[20070802224022]] 『テキストボックスに入力した数の合計を表示させた』（梁） ページの最後に飛ぶ

[[20070802224022]]　『テキストボックスに入力した数の合計を表示させた』（梁）　ページの最後に飛ぶ