- ©«¤l
- 169
- ¥DÃD
- 41
- ºëµØ
- 0
- ¿n¤À
- 219
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-7-31
- ³Ì«áµn¿ý
- 2023-9-15
|
¦^´_ 5# sillykin
¤j¤j¤£¦n·N«ä..¦b½Ð±Ð¤@¤U
Private Sub CommandButton3_Click()
Dim t As Integer, v1 As Integer
For t = 1 To 17
Range("C" & t + 3).Value = FormatNumber(Round(Range("A" & t + 3).Value * 3.3, 1))
Range("D" & t + 3).Value = FormatNumber(Round(Range("B" & t + 3).Value * 3.3, 1))
If Range("D" & t + 3) <> 0 Then
Range("E" & t + 3) = FormatNumber(Round(Range("C" & t + 3) / Range("D" & t + 3), 2))
Else
Range("E" & t + 3).Value = ""
End If
'================================================================================
'20¦~¥H¤U
If Range("A" & t + 3) = "" Then
Range(("C" & t + 3), ("E" & t + 3)) = ""
Exit Sub
End If
If (Range("E" & t + 3) > 3) Then
Range("F" & t + 3) = FormatNumber(Round((Range("C" & t + 3) * 0.4) - (Range("D" & t + 3) * 0.7), 0))
ElseIf (Range("E" & t + 3) > 2) Then
Range("F" & t + 3) = FormatNumber(Round((Range("C" & t + 3) * 0.3) - (Range("D" & t + 3) * 0.4), 0))
ElseIf (Range("E" & t + 3) > 1) Then
Range("F" & t + 3) = FormatNumber(Round((Range("C" & t + 3) - Range("D" & t + 3)) * 0.2, 0))
ElseIf (Range("E" & t + 3) <= 1) Then
Range("F" & t + 3) = 0
End If
'================================================================================
'¹O20~30¦~
If Range("A" & t + 3) = "" Then
Range(("C" & t + 3), ("E" & t + 3)) = ""
Exit Sub
End If
If (Range("E" & t + 3) > 3) Then
Range("G" & t + 3) = FormatNumber(Round((Range("C" & t + 3) * 0.36) - (Range("D" & t + 3) * 0.6), 0))
ElseIf (Range("E" & t + 3) > 2) Then
Range("G" & t + 3) = FormatNumber(Round((Range("C" & t + 3) * 0.28) - (Range("D" & t + 3) * 0.36), 0))
ElseIf (Range("E" & t + 3) > 1) Then
Range("G" & t + 3) = FormatNumber(Round((Range("C" & t + 3) - Range("D" & t + 3)) * 0.2, 0))
ElseIf (Range("E" & t + 3) <= 1) Then
Range("G" & t + 3) = 0
End If
'================================================================================
'¹O30~40¦~
If Range("A" & t + 3) = "" Then
Range(("C" & t + 3), ("E" & t + 3)) = ""
Exit Sub
End If
If (Range("E" & t + 3) > 3) Then
Range("H" & t + 3) = FormatNumber(Round((Range("C" & t + 3) * 0.34) - (Range("D" & t + 3) * 0.55), 0))
ElseIf (Range("E" & t + 3) > 2) Then
Range("H" & t + 3) = FormatNumber(Round((Range("C" & t + 3) * 0.27) - (Range("D" & t + 3) * 0.34), 0))
ElseIf (Range("E" & t + 3) > 1) Then
Range("H" & t + 3) = FormatNumber(Round((Range("C" & t + 3) - Range("D" & t + 3)) * 0.2, 0))
ElseIf (Range("E" & t + 3) <= 1) Then
Range("H" & t + 3) = 0
End If
'================================================================================
'¹O40¦~¥H¤W
If Range("A" & t + 3) = "" Then
Range(("C" & t + 3), ("E" & t + 3)) = ""
Exit Sub
End If
If (Range("E" & t + 3) > 3) Then
Range("I" & t + 3) = FormatNumber(Round((Range("C" & t + 3) * 0.32) - (Range("D" & t + 3) * 0.5), 0))
ElseIf (Range("E" & t + 3) > 2) Then
Range("I" & t + 3) = FormatNumber(Round((Range("C" & t + 3) * 0.26) - (Range("D" & t + 3) * 0.32), 0))
ElseIf (Range("E" & t + 3) > 1) Then
Range("I" & t + 3) = FormatNumber(Round((Range("C" & t + 3) - Range("D" & t + 3)) * 0.2, 0))
ElseIf (Range("E" & t + 3) <= 1) Then
Range("I" & t + 3) = 0
End If
'================================================================================
'¼Wȵ|Á`p
If Range("J" & t + 3) = "" Then
Range(("K" & t + 3)) = ""
Else
Range("K" & t + 3) = FormatNumber(Round((Range("F" & t + 3)) * (Range("J" & t + 3)), 1))
Range("L" & t + 3) = FormatNumber(Round((Range("G" & t + 3)) * (Range("J" & t + 3)), 1))
Range("M" & t + 3) = FormatNumber(Round((Range("H" & t + 3)) * (Range("J" & t + 3)), 1))
Range("N" & t + 3) = FormatNumber(Round((Range("I" & t + 3)) * (Range("J" & t + 3)), 1))
End If
Next
End Sub
¬°¦ó¦b
A4Àx¦s®æ¿é¤J181,000
B4Àx¦s®æ¿é¤J140,625
--------------------
C4Àx¦s®æµª®×¬°597,300
D4Àx¦s®æµª®×¬°464,062¡]¥¿½T¬°464,063¡^
F4Àx¦s®æµª®×¬°26,648¡]¥¿½T¬°26,647¡^
¤£ª¾n¦p¦ó³B¸m¡A¦³°ª¤â¨ó§U¶Ü¡H¡H¡H |
|