|
ユーザーフォームにテキストボックスが並んでおり(txtBox4〜9、11、12、14、16〜19)、txtBox20に合計額を表示するようにしました。
各テキストボックスの書式を桁区切りにして、合計も桁区切りにしたいのですが、うまくいきません。
各テキストボックスに、
Private Sub txtBox4_Change()
txtBox4 = Format(txtBox4, "###,###")
End Sub
Private Sub txtBox4_afterupdate()
goukei
End Sub
のようにし、合計の計算と書式を
Private Sub goukei()
On Error GoTo eh
Dim Goukeigaku As Long
On Error GoTo 0
Goukeigaku = Val(txtBox4.Text) + Val(txtBox5.Text) + Val(txtBox6.Text) + Val(txtBox7.Text) + Val(txtBox8.Text) + Val(txtBox9.Text) + Val(txtBox11.Text) + Val(txtBox12.Text) + Val(txtBox14.Text) - Val(txtBox16.Text) - Val(txtBox17.Text) - Val(txtBox18.Text) + Val(txtBox19.Text)
txtBox20.Text = Format(Goukeigaku, "###,###")
Exit Sub
eh: '処理なし
End Sub
このようにしました。
調べた結果、valを使うとカンマの前までしか加算されないことは分かったのですが、どうすればうまくいくのかが分かりません。
ご教授をお願い致します。
|
|