Excel VBA質問箱 IV

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

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


8759 / 76732 ←次へ | 前へ→

【73541】Re:テキストボックスの合計を桁区切りに
発言  UO3  - 13/1/20(日) 8:05 -

引用なし
パスワード
   ▼さんたぱぱ さん:

一応処理コード案をアップしておきますね。
なお、めったやたらと エラートラップを行うのはやめましょうね。

Private Sub goukei()
  Dim idx As Variant
  Dim Goukeigaku As Long
  Dim n As Long
  Dim d As Variant
  
  For Each idx In Array(4, 5, 6, 7, 8, 9, 11, 12, 14, 16, 17, 18, 19)
    n = 0
    d = Me.Controls("TxtBox" & idx).Value
    If IsNumeric(d) Then n = d
    Goukeigaku = Goukeigaku + n
  Next
  
  txtBox20.Value = Format(Goukeigaku, "###,###")

      
End Sub

318 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 発言

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