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

½Ð°Ý¤@±Æ¼Æ¾Ú¥þ³¡´î1,¦ý¤£·Q­n­t¼Æ¸Ó¦p¦ó³B²z?

½Ð°Ý¤@±Æ¼Æ¾Ú¥þ³¡´î1,¦ý¤£·Q­n­t¼Æ¸Ó¦p¦ó³B²z?

½Ð±Ð¦U¦ì¦Ñ®v:
¤@±Æ¼Æ¾Ú¥þ³¡´î1,¦ý¤£·Q­n­t¼Æ¸Ó¦p¦ó³B²z?

A B C D E F G H I J K L M N O
1 3 2 0 0 4 2 1 1 2 3 3 0 1 2

¥þ³¡´î1 §Æ±æ¯àÅܦ¨

A B C D E F G H I J K L M N O
0 2 1 0 0 3 1 0 0 1 2 2 0 0 1

¥¿±`¨Ó»¡¥Î¤½¦¡,§Y¥i°¨¤W±o¨ìµª®×.¦ý¬O¼Æ¦r 0 ¥h´î1 ·|Åܦ¨-1,¤p§Ì§Æ±æ¼Æ¦r 0 ¥h´î1 ÁÙ¬O0.
¦pªG¼Æ¾Ú¬O±qA1~BJ1 ¥i¥Hª½±µ¥ÎVBAªºµ{§Ç³B²z¶Ü?
ÁÂÁÂ
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

A2=MAX(0,A1-1)
©¹¥k©Ô½Æ»s
My Blog
http://blog.xuite.net/a8350070

TOP

¦^´_ 1# jonn0510


   play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# a8350070


TO:a8350070¤j¤j:
·PÁ±z«üÂI,§Ú±N¨äÂà´«¦¨vbs¨Ó¥Î¤F!
ÁÂÁ±z

Range("A2").Select
    ActiveCell.FormulaR1C1 = "=MAX(0,R[-1]C-1)"
    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:J2"), Type:=xlFillDefault
    Range("A2:J2").Select
·PÁ¦U¦ì¦Ñ®vªá¤ß«ä±Ð¾É

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD