VBAの計算について教えてください。

質問

お世話になります。
VBA超初心者です。
教えて頂けると助かります。

ユーザーフォームにテキストボックス１、２、３を作成し、それらを計算させて
テキストボックス４に表示をさせたいと考えています。

テキストボックスに入力するパターンは以下の２種類です。
(1)すべてのテキストボックスに数値が入る
(2)テキストボックス３のみに数値が入る

行いたい計算は、“（テキストボックス１ ×　テキストボックス２）　＋　テキストボックス３”です。

曲りなりに作成してみましたが、テキストボックス３の数値を変えた時や削除した時などに、
テキストボックス４に入っている数値が残っていたりと、思うようにできません。
作成したものを掲載しておきます。

何卒よろしくお願いします。

テキストボックス１を変更したとき　１、３に数値が入っていれば、以下の計算を。
それ以外は“０”をテキストボックス４へ
Private Sub TextBox1_Change()
If TextBox1.Value = True And TextBox3.Value = True Then
TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text)
Else
TextBox4 = 0
End If
End Sub

テキストボックス２を変更したとき　２、３に数値が入っていれば、以下の計算を。
それ以外は“０”をテキストボックス４へ
Private Sub TextBox2_Change()
If TextBox2.Value = True And TextBox3.Value = True Then
TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text)
Else
TextBox4 = 0
End If
End Sub

テキストボックス３を変更したとき　１、２、３に数値が入っていれば、以下の計算を。
１か２に数値がなく、３に数値があれば、３の数値をテキストボックス４へ。
それ以外は“０”をテキストボックス４へ
Private Sub TextBox3_Change()
If TextBox1.Value = True And TextBox2.Value = True And TextBox3.Value = True Then
TextBox4 = Val(TextBox1.Text) * Val(TextBox2.Text) + Val(TextBox3.Text)
ElseIf TextBox1.Value = False or TextBox2.Value = False　And　TextBox3.Value = True Then
TextBox4 = Val(TextBox3.Text)
Else
texbox24 = 0

End If
End SubEnd Sub

回答No.2

nda23 · ベストアンサー

フォームの場合はフォームのクラスモジュールに
イベントプロシージャを記述します。
シートの方で待っていても何も起きませんよ。

イベントはフォーカス喪失時ではなく、更新後、
つまりAfterUpdateイベントで待ち構えます。

Private Sub TextBox1_AfterUpdate()
計算
End Sub

上記のようになります。

お礼

何度もお答えいただきありがとうございました。
おかげで、作業を進めることができました。
VBAはまだまだ初心者なのでまた質問させていただくことも
あると思いますので、ぜひその時もよろしくお願いします。

回答No.1

nda23

先ず、イベントはフォーカス喪失時にすべきでしょう。
値の入力中に何度も計算するのは変でしょ？
それと、TextプロパティよりValueプロパティを
使う方が正しい。桁数が大量な場合に値を取り
損なうことがあります。

Private Sub TextBox1_LostFocus()
計算
End Sub
Private Sub TextBox2_LostFocus()
計算
End Sub
Private Sub TextBox3_LostFocus()
計算
End Sub
Private Sub 計算()
Dim 値1 As String
Dim 値2 As String
Dim 値3 As String

値1 = TextBox1.Value
値2 = TextBox2.Value
値3 = TextBox3.Value

If 値1 <> "" Then
　　Iｆ Not IsNumeric(値1) Then
　　　　MsgBox "TextBox1が非数値です", vbCritical
　　　　TextBox1.SetFocus
　　　　Exit Sub
　　End If
End If

'TextBox2、TextBox3も同様に作る

TextBox4.Value = Val(値1) * Val(値2) + Val(値3)
End Sub

お礼

ありがとうございます。
早速、使わせていただきました。
回答頂いた直後は、書いている内容の半分も理解できませんでしたが、
一つ一つ調べて、理解できるようになりました。
ありがとうございました。

ただ、申し訳ないのですが、もうひとつ質問してもよろしいでしょうか？

上記でご回答頂いたプログラムですが、エクセルシートでのプロジェクトでは
うまく動くのですが、フォームに全く同じテキストボックスを置いて
行っても、全く動きません。

フォーカス喪失時でまず動いていないみたいです。
何か設定とかあるのでしょうか？

ずうずうしく聞いてしまって申し訳ありませんがよろしくお願いします。