エクセルVBA「型が一致しません。」

質問

エクセルVBA「型が一致しません。」
ユーザーフォームの実行時に上記エラーが出ます。おそらく関係ありそうなコードが以下です。
ちなみにTextBoxはスピンボタンと併用して使用しています（そちらのコーディングには問題なし）

Private Sub TextBox1_Change()
Me.TextBox3.Value = Me.TextBox1.Value * Me.TextBox2.Value
End Sub

Private Sub TextBox2_Change()
Me.Textbox3.Value = Me.TextBox1.Value * Me.TextBox2.Value
End Sub

Private Sub UserForm_Initialize()
Me.TextBox3.Value = Me.TextBox1.Value * Me.TextBox2.Value

立て続けに質問してしまい申し訳ないですが何せ急いでいるもので・・・お願い致します

回答No.1

OMEGAT · ベストアンサー

TextBox1かTextBox2のValueプロパティの初期値が設定されていないか、途中で値が""になってしまいので、掛け算がエラーになっているのではないでしょうか。

TextBox1やTextBox2のプロパティで、Valueの初期値として0を設定しておくか、途中で値が""になる可能性があるのなら、計算を以下のようにしておく必要があるかもしれません。

Private Sub TextBox1_Change()
Me.TextBox3.Value = Val(Me.TextBox1.Value) * Val(Me.TextBox2.Value)
End Sub

お礼

ご回答ありがとうございました。

解決致しました。よくコードを見直すとご指摘の通り「""」が入るコードになっておりました。
ご提案の通り修正致しますと動作致しました。

私実は学校の生徒会役員をやっておりまして、現在ベルマークを集計するためのVBAを書いているのですが、また一歩完成に近づきました。

また何か躓くかもしれませんがその際はどうかよろしくお願いします。

回答No.2

TNK7800

変数の型はどのように設定していますか？

このテのエラーの場合　ほとんどが変数の型の指定の問題です