Excel VBA質問箱 IV

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

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


41686 / 76732 ←次へ | 前へ→

【40125】Re:「,」を付けるには
質問  てつじ  - 06/7/7(金) 11:04 -

引用なし
パスワード
   ▼Blue さん:
>Formatという便利な関数があります。
>
>MsgBox Format(Val("2000") + Val("50"), "#,###")
>
>参考)数値表示書式指定文字 (Format 関数)
>http://www.microsoft.com/japan/developer/library/vbenlr98/vafmtuserdefinednumericformats.htm


Dim i As Long, Co As Long, Co1 As Long, Co2 As Long, Co3 As Long

For i = 5 To 191
  Select Case i
   Case 47, 90, 133, 176
      Me.Controls("TextBox" & i).Value = Co
      Co = 0
   Case Else
      Co = Co + Val(Me.Controls("TextBox" & i).Value)
  End Select
Next i


Co = 0: Co1 = 0: Co2 = 0: Co3 = 0
With Me
   For i = 5 To 175
     If IsNumeric(.Controls("TextBox" & i).Value) Then
      Select Case i
          Case 5 To 46
            Co = Co + 1
          Case 48 To 89
            Co1 = Co1 + 1
          Case 91 To 132
            Co2 = Co2 + 1
          Case 134 To 175
            Co3 = Co3 + 1
      End Select
     End If
   Next i
  
   TextBox179.Value = Co
   TextBox184.Value = Co1
   TextBox189.Value = Co2
   TextBox193.Value = Co3
   TextBox178.Value = Format(Val(.TextBox47.Value) * Val("50"), "##,###")
   TextBox183.Value = Format(Val(.TextBox90.Value) * Val("50"), "##,###")
   TextBox188.Value = Format(Val(.TextBox133.Value) * Val("50"), "##,###")
   TextBox192.Value = Format(Val(.TextBox176.Value) * Val("50"), "##,###")
  
   TextBox180.Value = Format(Val(Co) * Val("2000"), "##,###")
   TextBox185.Value = Format(Val(Co1) * Val("2000"), "##,###")
   TextBox190.Value = Format(Val(Co2) * Val("2000"), "##,###")
   TextBox194.Value = Format(Val(Co3) * Val("2000"), "##,###")


   TextBox181.Value = Format(Val(TextBox178.Value) + Val(TextBox180.Value), "###,###")
   TextBox186.Value = Format(Val(TextBox183.Value) + Val(TextBox185.Value), "###,###")
   TextBox195.Value = Format(Val(TextBox188.Value) + Val(TextBox190.Value), "###,###")
   TextBox196.Value = Format(Val(TextBox192.Value) + Val(TextBox194.Value), "###,###")


End With


ありがとうございます。
なんとか自分なりにいじくってみましたが、最後のtextbox181・186・195・196に入るあたいが1ケタで出てしまいます・・・。何がいけないのでしょうか?

0 hits

【40117】「,」を付けるには てつじ 06/7/7(金) 9:09 質問
【40119】Re:「,」を付けるには Blue 06/7/7(金) 9:17 回答
【40125】Re:「,」を付けるには てつじ 06/7/7(金) 11:04 質問
【40126】Re:「,」を付けるには Jaka 06/7/7(金) 11:17 回答
【40127】Re:「,」を付けるには Blue 06/7/7(金) 11:19 回答
【40128】Re:「,」を付けるには てつじ 06/7/7(金) 11:23 お礼
【40237】Re:「,」を付けるには てつじ 06/7/10(月) 9:48 質問
【40239】Re:「,」を付けるには Blue 06/7/10(月) 9:58 発言
【40244】Re:「,」を付けるには Blue 06/7/10(月) 10:06 発言
【40240】Re:「,」を付けるには かみちゃん 06/7/10(月) 10:00 発言
【40246】Re:「,」を付けるには てつじ 06/7/10(月) 10:16 質問
【40247】Re:「,」を付けるには てつじ 06/7/10(月) 10:18 質問
【40248】Re:「,」を付けるには Blue 06/7/10(月) 10:26 発言
【40251】Re:「,」を付けるには てつじ 06/7/10(月) 10:43 お礼
【40249】Re:「,」を付けるには かみちゃん 06/7/10(月) 10:26 発言
【40252】Re:「,」を付けるには てつじ 06/7/10(月) 10:44 お礼

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