eric866

¦^´_ 12# ANGELA


    ÁÂÁÂANGELA ´£¨Ñ¥t¤@­Ó¤èªk ! ¤£¹L§Ú¸Õ¦ü¥G·|µo¥Í¿ù»~ #NAME? ³o¬O°}¦C¤½¦¡¶Ü?

ANGELA

=LOOKUP(2,1/(E2:L2>=0),COLUMN(E2:L2))-iferror(LOOKUP(2,1/(E2:L2<0),COLUMN(E2:L2)),4)

2003
=LOOKUP(2,1/(E2:L2>=0),COLUMN(E2:L2))-IF(ISERROR(LOOKUP(2,1/(E2:L2<0),COLUMN(E2:L2))),4,LOOKUP(2,1/(E2:L2<0),COLUMN(E2:L2)))

eric866

ÁÂÁÂOOBIRDªá®É¶¡À°§Ú¼gµ{¦¡½X  ¤]ÁÂÁÂHsieh¼gªº°}¦C¤½¦¡  EXCEL¯uªº¬O¤@ªù«Ü²`¿Dªº¾Ç°Ý

eric866

­C ¨âºØ¤èªk³£¥i¥H­C   ¯uªº«Ü·PÁÂHsieh¤Îoobird ªº©âªÅ±Ð¾É  ÁÂÁ !

oobird

¦^´_ 6# eric866


   

¤U¸ü (43.07 KB)

2011-8-4 23:47

Hsieh

¦^´_ 7# eric866
OOBIRDª©¤jªºµ{¦¡½X­n©ñ¦b¤@¯ë¼Ò²Õ¤º¤~¯à¨Ï¥Î

¤½¦¡¥²¶·¨Ï¥ÎCTRL+SHIFT+ENTER¿é¤J
·s¤â½Ð¥ý±N¸m³»ºëµØ¤å³¹¾\Ū
·s¤â¥²Åª

eric866

¦^´_ 5# Hsieh


    ±z¦n~ ÁÂÁÂHsieh ¤jªº¸Ñµª!  §Ú§â§Aªº°}¦C¤½¦¡¶K¨ìD2  µ²ªG·|Åã¥Ü#VALUE£z£°  ¤£ª¾¹D¬O¨º¸Ì¥X¤F°ÝÃD?  §ÚEXCEL­è¾Ç¨S¦h¤[¦Ó¤w

eric866

¦^´_  eric866


    ³o­Óº¡¶Ë¸£µ¬ªº¡A¥Î¦Û­q¨ç¼Æ§a¡C
oobird µoªí©ó 2011-8-4 23:14

ÁÂÁÂoobirdªº¸Ñµª  §Ú¬Ý§A¤w¸g¥Î¦n¤F  ¥i¬O§Ú¤£¤Ó·|¥Î
½Ð°Ý³o­ÓVBA¬O¶K¦bVB½s¿è¾¹¸Ìªº¥~¸ê ¨Ó·½ ÁÙ¬OTHISWORKBOOK©O?  §Ú3­Ó³£¶K  µM«áD2¶ñ¤W=CALCULAT(E2:L2)  ·|Åã¥Ü¥X#NAME?£z£°

Hsieh

¦^´_ 3# eric866

D2°}¦C¤½¦¡
=(12-MAX(IF(SIGN($E2:$L2)<>SIGN($L2),COLUMN($E2:$L2))))*SIGN($L2)
¦V¤U½Æ»s

oobird

¦^´_ 3# eric866


    ³o­Óº¡¶Ë¸£µ¬ªº¡A¥Î¦Û­q¨ç¼Æ§a¡C

1. Function Calculat(rng As Range) As Double
   
2. 
   
3. a = rng.Cells.Count
   
4. 
   
5. If rng(a) > 0 Then
   
6. 
   
7. Calculat = 1
   
8. 
   
9. Do
   
10. 
    
11. a = a - 1
    
12. 
    
13. If rng(a) > 0 Then Calculat = Calculat + 1
    
14. 
    
15. Loop Until rng(a) < 0 Or a = 1
    
16. 
    
17. Else
    
18. 
    
19. Calculat = -1
    
20. 
    
21. Do
    
22. 
    
23. a = a - 1
    
24. 
    
25. If rng(a) < 0 Then Calculat = Calculat - 1
    
26. 
    
27. Loop Until rng(a) > 0 or a=1
    
28. 
    
29. End If
    
30. 
    
31. End Function

½Æ»s¥N½X

¤U¸ü (91.72 KB)

2011-8-4 23:14