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 質問
【73533】Re:テキストボックスの合計を桁区切りに ウッシ 13/1/18(金) 22:55 回答
【73536】Re:テキストボックスの合計を桁区切りに さんたぱぱ 13/1/19(土) 7:35 発言
【73534】Re:テキストボックスの合計を桁区切りに UO3 13/1/18(金) 23:00 発言
【73537】Re:テキストボックスの合計を桁区切りに さんたぱぱ 13/1/19(土) 7:43 発言
【73539】Re:テキストボックスの合計を桁区切りに ichinose 13/1/19(土) 8:29 発言
【73540】Re:テキストボックスの合計を桁区切りに UO3 13/1/19(土) 8:41 発言
【73541】Re:テキストボックスの合計を桁区切りに UO3 13/1/20(日) 8:05 発言
【73542】Re:テキストボックスの合計を桁区切りに さんたぱぱ 13/1/20(日) 8:16 発言
【73543】Re:テキストボックスの合計を桁区切りに UO3 13/1/20(日) 9:33 発言
【73553】Re:テキストボックスの合計を桁区切りに さんたぱぱ 13/1/20(日) 21:29 お礼
【73535】Re:テキストボックスの合計を桁区切りに kanabun 13/1/18(金) 23:52 発言
【73538】Re:テキストボックスの合計を桁区切りに さんたぱぱ 13/1/19(土) 7:45 発言

8768 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free