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

­Y¬O¦³¤@§å¸ê®Æ¡A¤£½T©w¦Cªº­Ó¼Æ¡H

­Y¬O¦³¤@§å¸ê®Æ¡A¤£½T©w¦Cªº­Ó¼Æ¡H

¦U¦ì¦n¡A§Ú²{¦b¦³¤@§å¸ê®Æ(¦pªþ¹Ï)¡A¥²¶·­pºâ³Ì«á¤@¦Cªº¦U¶µÁ`­p¡A¦ý³o§å¸ê®Æªº¦C¼Æ«D©T©w¦ýÄæ¬O©T©wªº¡A§Ú¥²¶·¦b³Ì«á¤@¦Cªº¨C­ÓÀx¦s®æ¡A¼¶¼g¤£¦P¨ç¦¡¨Ó­pºâ¨CÄ檺¤£¦P¼Æ­È¡A§Úªì¨Bºc·Q¬O±N³o¨Ç¨ç¦¡¼g¦¨Ãþ¦ü¥¨¶°ªºªF¦è¡AµM«á·í§Ú¸ê®Æ¤@¶×¤J§¹¦¨½T©w¸ê®ÆÁ`¼Æ¤§«á¡A´N¥i¥H¦b³Ì«á¤@¦C¥H´¡¤Jªº¤è¦¡´¡¤J³o¨Ç¨ç¦¡¡A½Ð°ÝÀ³¸Ó«ç»ò°µ©O¡H

¦^´_ 1# tku0216

ºâH~J¦UÄæÁ`©M
  1. Sub xx()
  2. R = [A1].End(xlDown).Row
  3. Range(Cells(R + 1, "H"), Cells(R + 1, "J")).FormulaR1C1 = "=SUM(R[-" & R - 1 & "]C:R[-1]C)"
  4. End Sub
½Æ»s¥N½X

TOP

¦hÁ¤j¤j¸Ñ´b¡A¥Î²Ä¤@Äæ·í«ü¼Ðªº½T¬O¤@­Ó¦n¤èªk¡AÁÙ·Q½Ð°Ý³o¬qªº·N«ä¡G
  FormulaR1C1 = "=SUM(R[-" & R - 1 & "]C:R[-1]C)"

·PÁÂ~

TOP

¦^´_ 3# tku0216

R=16(³Ì«á¤@¦C)
³]¤½¦¡¤U¦bH17
H17=SUM(R[-" & R - 1 & "]C:R[-1]C)
      =SUM(R[-15]C:R[-1]C)    ¥HH17¬°°ò·Ç  R[-15]:R©¹¤W°¾15¦C , R[-1]:R©¹¤W°¾1¦C
    =SUM(H2:H16)

TOP

¦hÁ¸ѻ¡¡A¦b½Ð°Ý¤@¤UVBA¨ì©³¬Æ»ò®É­Ô­n¥Î¥[ªÅ®æ¡H

¹³ FormulaR1C1 = "=SUM(R[-" & R - 1 & "]C:R[-1]C)"

¤¤¶¡¦pªG¤£¥[ªÅ®æ´N·|¦³¿ù¡A¤@¶}©lÁ٧䤣¥X°ÝÃD....

TOP

¦^´_  tku0216

R=16(³Ì«á¤@¦C)
³]¤½¦¡¤U¦bH17
H17=SUM(R[-" & R - 1 & "]C:R[-1]C)
      =SUM(R[-1 ...
register313 µoªí©ó 2012-5-11 16:55



·PÁ¦^´_¡G¦A½Ð±Ð¤@¤U¡AÃö©óformular1c1ªº¥Îªk¡H
¦]¬°§Ú¥[¤Jcountif¨ç¼Æ¡Aµo²{¨S¦³¿ìªk¹B§@¡A¥HDÄæÁ|¨Ò¡A§Ú­n¦bD9­pºâ¡§¿ï¶µA¡¨ªº¼Æ¶q¡A
¨º§Úµ{¦¡¼gªk²z·í­n"=countif(r[" & 1 - a & "]c:r[-1]c,"¿ï¶µA")"

¦ý§Úµo²{§ÚµLªk¦b¿ï¶µA¨âÃä¥[Âù¤Þ¸¹¡A§_«h·|¦³¿ù»~°T®§¡A½Ð°Ý§Ú¸Ó¦p¦ó¸Ñ¡HÁÂÁ¡C   
excelÀɸüÂI¡÷http://db.tt/8AJ0mZLF

TOP

¦^´_ 6# tku0216


Cells(a + 1, "d").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,""¿ï¶µA"")"

TOP

¦^´_ 7# register313

may i ask why?^^

TOP

¦^´_ 8# tku0216

ª½±µ¦bÀx¦s®æ¤U¤½¦¡
=COUNTIF(D2:D8,"¿ï¶µA")
¥ÎVBA¤U¤½¦¡
Cells(a + 1, "d").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,""¿ï¶µA"")"

2ªÌ¤ñ¸û¤@¤U,À³¥iª¾¬°¤°»ò¤F(«áªÌÁ`¬O¤ñ«eªÌ¦h¤F"")

TOP

³o¤U¯uªº¥þ³¡·dÀ´¤F¡AÁÂÁÂregister313¤j¤j¤£¹½¨ä·Ð¦a¦^´_¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD