ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó­pºâ³sÄò¥X²{¦¸¼Æ?

[µo°Ý] ½Ð°Ý¦p¦ó­pºâ³sÄò¥X²{¦¸¼Æ?

A1             B1             C1            D1            E1            F1            G1            H1           I1             J1              K1          L1

-1           -685      -855       -2970     -2224      -1800      1258     -1710     -426          +?            +?             -?

¦p¤W~³Ì¥kÄæ¬O³Ì·s¸ê®Æ   µ¥©ó¦³³s2Äæ¬O­t­È  ²Î­pµ²ªG¬O-2 ; ¦pªG¥H«á¦A¥[¤J³s2Ä楿­È  ·|¦Û°Ê²Î­pÅܦ¨2  ; ¦pªG¦A¥[¤J1Äæ­t­È  ¤S·|¦Û°Ê²Î­pÅܬ°-1
½Ð°Ý¤½¦¡­n¦p¦ó¼g?  ÁÂÁÂ!

¦^´_ 1# eric866


    ¬Ý¤£¤ÓÀ´±zªº·N«ä!¤£ª¾¦³¨S¦³½d¨Ò¥i¬Ý!

TOP

¦^´_ 2# ´Ñ»y³¾»ï


  ±z¦n~ ¤w¤W¶Ç¤F  §Ú¬O­nºâ³sÄò´X¤é  ¤£ª¾D¦æªº¨ç¼Æ­n¦p¦ó¼g? ·s¼WMicrosoft Excel ¤u§@ªí.rar (48.68 KB)

TOP

¥»©«³Ì«á¥Ñ oobird ©ó 2011-8-4 23:23 ½s¿è

¦^´_ 3# eric866


    ³o­Óº¡¶Ë¸£µ¬ªº¡A¥Î¦Û­q¨ç¼Æ§a¡C
  1. Function Calculat(rng As Range) As Double

  2. a = rng.Cells.Count

  3. If rng(a) > 0 Then

  4. Calculat = 1

  5. Do

  6. a = a - 1

  7. If rng(a) > 0 Then Calculat = Calculat + 1

  8. Loop Until rng(a) < 0 Or a = 1

  9. Else

  10. Calculat = -1

  11. Do

  12. a = a - 1

  13. If rng(a) < 0 Then Calculat = Calculat - 1

  14. Loop Until rng(a) > 0 or a=1

  15. End If

  16. End Function
½Æ»s¥N½X

TOP

¦^´_ 3# eric866

D2°}¦C¤½¦¡
=(12-MAX(IF(SIGN($E2:$L2)<>SIGN($L2),COLUMN($E2:$L2))))*SIGN($L2)
¦V¤U½Æ»s
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  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£°

TOP

¦^´_ 5# Hsieh


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

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-8-4 23:51 ½s¿è

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

¤½¦¡¥²¶·¨Ï¥ÎCTRL+SHIFT+ENTER¿é¤J
·s¤â½Ð¥ý±N¸m³»ºëµØ¤å³¹¾\Ū
·s¤â¥²Åª
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# eric866


    a.gif

TOP

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

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD