| |
▼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ケタで出てしまいます・・・。何がいけないのでしょうか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
