Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8768 / 76732

←次へ　｜　前へ→


	【73532】テキストボックスの合計を桁区切りに

さんたぱぱ - 13/1/18(金) 22:30 -


	引用なし

	パスワード

ユーザーフォームにテキストボックスが並んでおり(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を使うとカンマの前までしか加算されないことは分かったのですが、どうすればうまくいくのかが分かりません。

ご教授をお願い致します。

342 hits

▼

【73532】テキストボックスの合計を桁区切りに さんたぱぱ 13/1/18(金) 22:30

≪