- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-21
|
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2016-4-4 12:59 ½s¿è
Function MyOP(V As String, V1 As Double)
V¬O¼ÆÈ, ¦ó¥H©w¸q¬°[¤å¦r]«¬ºA, YµLªk½T©w¨ä«¬ºA, ¥i¤£©w¸q, ¨ä¬°³æ¤@¤¸¯À, ¼vÅTÀ³¤£¤j!
¥t¥Î MID ¥h¨ú¼Æ, ´N¦³ÂIµe³D²K¨¬, ¤Æ²¬°Ác, ª½±µ¥Î[±`¼Æ]¤£¬O¸û¦n? ©ÎªÌ¦³¨ä¥¦²z¥Ñ¡H
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
°£¤F¶Wª©ªº¤èªk, ¤@¯ë¥Î IF ªº¤èªk:( ª`·N:§PÂ_¬O¥Ñ¤j¦Ó¤p, »P¤½¦¡ªº IF ³W«h¬Û¦P)
Function MyOP_1(V)
If V >= 1000 Then
¡@¡@MyOP_1 = 10
ElseIf V >= 500 Then
¡@¡@MyOP_1 = 5
ElseIf V >= 50 Then
¡@¡@MyOP_1 = 1
ElseIf V >= 10 Then
¡@¡@MyOP_1 = 0.5
ElseIf V > 0 Then
¡@¡@MyOP_1 = 0.1
End If
End Function
¡@
IF¤½¦¡¡G=IF(A1>=1000,10,IF(A1>=500,5,IF(A1>=50,1,IF(A1>=10,0.5,IF(A1>0,0.1,0)))))
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¤@¯ë¤H¤Ö¥Îªº SWITCH¡G
Function MyOP_2(V)
If V > 0 Then
¡@MyOP_2 = Switch(V >= 1000, 10, V >= 500, 5, V >= 50, 1, V >= 10, 0.5, V > 0, 0.1)
End If
End Function
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
³o¬O¤u§@ªí¨ç¼Æªk¡G
Function MyOP_3(V)
If V > 0 Then
¡@MyOP_3 = Application.Lookup(V, Array(0, 10, 50, 500, 1000), Array(0.1, 0.5, 1, 5, 10))
End If
End Function
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¤£¥ÎVBA¡A¤@¯ë¤½¦¡¡G
=IF(A1<=0,0,LOOKUP(A1,{0,10,50,500,1000},{0.1,0.5,1,5,10}))
=IF(A1<=0,0,MAX((A1>={0,10,50,500,1000})*{0.1,0.5,1,5,10})) |
|