­ã´£³¡ªL

¦^´_ 2# lcctno


¢°¡DÁ٬ݤ£À´¤U³æªº®É¾÷¡A¬O§_¢ÚÄæ¿ú¨¬°÷¤F´N¤U³æ¡A¥H¯à¶Rªº±i¼Æ¬°­­¡]§tÃÒ¥æµ|¡^¡H
¢±¡DIF((C12+D12)>=0.001,1,0)¡@¤°»ò·N«ä¡H
¢²¡DIF(K12=1,0.0002,0)+IF(K12=2,0.0004,0)+IF(K12=3,0.0006,0)¡@¦ó·N¡Hª½±µ K12*0.0002¤£¦æ¶Ü¡H

¤]³\¤½¦¡´N¥i¥H¡A¦A¬ã¨s¬Ý¬Ý¡ã¡ã

°Ý°ÝÃD³£¤Ó²²¤¡AÀ³¸Ô²Ó»¡©ú»Ý¨D¬yµ{¡A
¬Ý°ÝÃDªº¤H¦n¹³­n­Ý¥~¬ìÂå¥Í¡A¸Ñ­å«á®³¾¹©x¤@¤@¬Ý¡I^ ^

­ã´£³¡ªL

¦^´_ 5# lcctno


¦³®É¤£¬O·Qªº¨º»ò²³æ, ¦³¨Ç¼h­±ÁÙ¬O­n¦Ò¼{ªº¡G
¨Ò¦p¡G¹w¦ô¥i¶R¢²±i¡A¦ý¥[¤J¡eµ|¡D¶O¡f«á¡A´N·|§e­Ó¦ì¼Æªº­t¼Æ¡A³o®É´N¥u¯à¤Ö¶R¤@±i¡A
¡@¡@¡@¥[¤J¡eµ|¡D¶O¡f¤~¬O­«ÂI¡ã¡ã
¥t¡D
¢Ü¢°¢±¤½¦¡¡G=-(I12+J12)+N(N11)¡@¡÷¡@N(??)¡A¹J¤å¦r¬°¢¯¡A¹J¼Æ­È«h¬°¸Ó¼Æ­È¡A¨ä¥¦Ãþ±À

1. Sub TEST()
   
2. Dim xR As Range, SS, ST, SU
   
3. With Range([E12], Cells(Rows.Count, "E").End(xlUp)(2))
   
4. ¡@¡@.Offset(0, -2).ClearContents
   
5. For Each xR In .Cells
   
6. ¡@¡@If xR(1, 8) <= 0 Then GoTo 101
   
7. ¡@
   
8. ¡@¡@SU = Int(xR(1, 8) / xR / 1000) '¹w­p¥iÁʶR±i¼Æ
   
9. ¡@¡@If SU <= 0 Then GoTo 101
   
10. ¡@
    
11. ¡@¡@SS = Round(xR * SU * 1000, 0) '¥i¶R±i¼ÆÁ`ªÑ»ù
    
12. ¡@¡@ST = Application.Max(20, Int(SS * [H10]))  '­pºâµ|¶O, ³Ì§C20
    
13. ¡@
    
14. ¡@¡@If SS + ST > xR(1, 8) Then SU = SU - 1 '(Á`ªÑ»ù+µ|¶O)¶W¹L®É, ¤Ö¶R¤@±i
    
15. ¡@¡@If SU > 0 Then xR(1, -1) = SU:  xR(1, -1).Select
    
16. 101: Next
    
17. End With
    
18. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 9# lcctno

1. Sub TEST()
   
2. Dim xR As Range, SS, ST, SU, SX
   
3. With Range([E12], Cells(Rows.Count, "E").End(xlUp)(2))
   
4. ¡@¡@.Offset(0, -2).ClearContents
   
5. For Each xR In .Cells
   
6. ¡@¡@If xR(1, 8) <= 0 Then GoTo 101
   
7. ¡@
   
8. ¡@¡@SU = Int(xR(1, 8) / xR / 1000) '¹w­p¥iÁʶR±i¼Æ
   
9. ¡@¡@If SU <= 0 Then GoTo 101
   
10. ¡@
    
11. ¡@¡@SS = Round(xR * SU * 1000, 0) '¥i¶R±i¼ÆÁ`ªÑ»ù
    
12. ¡@¡@ST = Application.Max(20, Int(SS * [H10]))  '­pºâ¤âÄò¶O, ³Ì§C20
    
13. ¡@¡@SX = Int(ST * [E10])  '°h¦þ=¤âÄò¶O*°h¦þ²v
    
14. ¡@
    
15. ¡@¡@If SS + ST - SX > xR(1, 8) Then SU = SU - 1 '(Á`ªÑ»ù+¤âÄò¶O-°h¦þ)¶W¹L®É, ¤Ö¶R¤@±i
    
16. ¡@¡@If SU > 0 Then xR(1, -1) = SU:  xR(1, -1).Select
    
17. 101: Next
    
18. End With
    
19. End Sub

½Æ»s¥N½X

©Ò¿×ªº¡eµ|¡D¶O¡f¡A¶R¤J®É¥u¬O¡e¤âÄò¶O¡f¡AµLêµ{¦¡­pºâ¡A³o¤£¯à¬Ù²¤
°h¦þ¡×¤âÄò¶O*°h¦þ²v
¥t¡D­pºâ¨ç¼Æ int, round ¦³®É·|®t¤@¤¸¡A½Ð¦Û¦æ¿ï¾Ü¦óºØ¤è¦¡¡I
¡@
ªþ¥ó¡G
ªÑ²¼°t¸mV3-1.rar (207.24 KB)

¤U¸ü¦¸¼Æ: 2

2015-9-23 12:55

­ã´£³¡ªL

¦^´_ 11# lcctno

¸Õ¶ñªk¡G§ï¦p¤U¡A³t«×§óºC
For Each xR In .Cells
¡@¡@If xR(1, 8) <= 0 Then GoTo 101
¡@¡@SU = Int(xR(1, 8) / xR / 1000)
¡@¡@If SU <= 0 Then GoTo 101
¡@¡@xR(1, -1) = SU
¡@¡@If xR(1, 8) < 0 Then SU = SU - 1
¡@¡@If SU > 0 Then xR(1, -1) = SU Else xR(1, -1) = ""
¡@¡@'If xR(1, -1) <> "" Then xR(1, -1).Select
101: Next
¡@