- ©«¤l
- 65
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 120
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-15
- ³Ì«áµn¿ý
- 2010-7-16
|
¥»©«³Ì«á¥Ñ victorl ©ó 2010-6-12 21:02 ½s¿è
¦^´_ 1# aok669
¦Ûq¨ç¼Æ
Function rr(a As Range) As Double
x = 0: y = 0
For Each aD In a
If Not IsEmpty(aD) Then
y = y + 1
If y > 10 Then Exit For
x = x + aD
End If
Next
If y >= 10 Then rr = x Else rr = y - 10
End Function
¥Îªk»¡©ú:
¿n¤ÀÄæ¦ì¿é¤J =rr(¿ï¾Ü°Ï¶¡)¡A¦pªG°Ï¶¡¤§¸ê®Æ¤£¨¬10µ§«hµ²ªG¬°tÈ(for Á`¸¹Äæ¦ì¨Ï¥Î)¡A¤j©ó10µ§«h±N«e10µ§¥[Á`
Á`¸¹Äæ¦ì¨Ï¥ÎIF §PÂ_¦¡§Y¥i E5=if(D5<0,(10+D5)*6,60) |
|