Excel VBA質問箱 IV

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

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


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

41689 / 76735

←次へ　｜　前へ→


	【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