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

½Ð°Ýª©¤W¤j¤j¡A³o­Ó­n«ç»ò¼gVBA

½Ð°Ýª©¤W¤j¤j¡A³o­Ó­n«ç»ò¼gVBA

A            B                  C                 D              E                  F                  G
08:45:00        7701        7703        7703        5        1        5
08:45:00        7701        7703        7701        -1        0        -1
08:45:00        7701        7703        7703        2        1        2
08:45:00        7701        7703        7701        -4        0       
08:45:00        7701        7703        7701        -1        0        -5(-4+ -1)
08:45:00        7701        7703        7703        5        1        5
08:45:00        7701        7703        7701        -1        0        -1
08:45:01        7701        7702        7702        1        1       
08:45:01        7701        7703        7703        2        1        3(1+2)
08:45:01        7701        7702        7701        -1        0       
08:45:01        7701        7702        7701        -3        0       
08:45:01        7701        7702        7701        -1        0       
08:45:01        7701        7702        7701        -1        0        -6(-1+(-3)+(-1)+(-1))
08:45:01        7701        7702        7702        3        1       
08:45:01        7701        7703        7703        7        1       
08:45:01        7701        7703        7703        1        1       
08:45:01        7701        7703        7703        10        1       
08:45:01        7701        7704        7704        5        1       
08:45:01        7701        7705        7705        15        1       
08:45:01        7701        7704        7704        1        1       
08:45:01        7701        7704        7704        2        1       
08:45:01        7703        7705        7705        2        1       
08:45:02        7703        7705        7705        1        1        47(3+7+1+10+5+15+1+2+2+1)
08:45:02        7703        7705        7703        -3        0       
08:45:02        7703        7705        7703        -3        0       
08:45:02        7703        7705        7703        -6        0       
08:45:02        7703        7705        7703        -5        0       
08:45:02        7703        7705        7703        -1        0       
08:45:02        7703        7705        7703        -3        0       
08:45:02        7702        7705        7702        -6        0       
08:45:02        7701        7705        7701        -1        0        -28(-3+(-3)+(-6)+(-5)+(-1)+(-3)+(-6)+(-1))


¥H¤W¬O¸ê®Æ®æ¦¡¡AFÄæ¬O§P§OEÄæ¬O¥¿­ÈÁÙ¬O­t­È¡A¥¿­È¬°1­t­È¬°0¡A½Ð°Ýª©¤W¤j¤j¦pªG§Ú­nGÄæÅã¥ÜEÄ檺­ÈVBA­n«ç»ò¼g¡A
²³æªº»¡´N¬O§P§O¥¿­t¡A³sÄò¤@¼Ëªº´N¬Û¥[¡A¹J¨ì¬Û¤Ïªº´N¿W¥ßÅã¥Ü

¦^´_ 1# ÂŤÑÄR¦À
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Integer, t As Integer
  4.     i = 1
  5.     Do While Cells(i, "F") <> ""
  6.         t = 0
  7.         Do
  8.             t = t + Cells(i, "e")
  9.             i = i + 1
  10.         Loop Until Cells(i - 1, "F") <> Cells(i, "F")
  11.         Cells(i - 1, "g") = t
  12.     Loop
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


    G¤j§Ú¦³¥h¸Õ¹L¤F¡A¦ý§¹¥þ¨S¤ÏÀ³£°¡A§Ú±Nµ{¦¡©ñ¦bsheet1¹ï§a?

TOP

¦^´_ 3# ÂŤÑÄR¦À
µ{¦¡½X½Æ»s¦b¨º­Ó¤u§@ªí¼Ò²Õ¤W¤@©w¦³¤ÏÀ³ªº.
¦pªG¬O¥ô¤@­Ó¤u§@ªí¼Ò²Õ¤W½Ð¥Î¤U­±ªºµ{¦¡½X.
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Integer, t As Integer
  4.     i = 1
  5.     With ActiveSheet   '«ü©w¤u§@ªí: ActiveSheet->§@¥Î¤¤ªº¤u§@ªí
  6.         Do While .Cells(i, "F") <> ""
  7.             t = 0
  8.             Do
  9.                 t = t + .Cells(i, "e")
  10.                 i = i + 1
  11.             Loop Until .Cells(i - 1, "F") <> .Cells(i, "F")
  12.             .Cells(i - 1, "g") = t
  13.         Loop
  14.     End With
  15. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


    ÁÙ¬O¨S¤ÏÀ³£°¡AG¤j§A«üªº¤ÏÀ³¥¦·|¦Û¤v¸õ¥X¼Æ¦r¶Ü??

TOP

¦^´_ 5# ÂŤÑÄR¦À
½Ð¤W¶ÇÀɮ׬ݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE

Book1.rar (126.92 KB)

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-10-28 07:32 ½s¿è

¦^´_ 7# ÂŤÑÄR¦À
¤£°õ¦æªº­ì¦]¥X¦Û¦b [F1] ¬°ªÅ¥Õ¡A¦Ó¥B i ¤§ªì¨Ï³]©w­È¬° 1¡A©Ò¥H Do While ¤@¶}©l«K¥¼¯à°õ¦æ¡G(­×§ï¦¨ i = 2)
  1.     Dim i As Integer, t As Integer
  2.     i = 1
  3.     With ActiveSheet   '«ü©w¤u§@ªí: ActiveSheet->§@¥Î¤¤ªº¤u§@ªí
  4.         Do While .Cells(i, "F") <> ""
½Æ»s¥N½X
¦P®É¡A§Aªº¸ê®Æ¿ý¦@­p¦³ 58559 ¦C¡Ai «¬ºA«Å§i¬° ¾ã¼Æ¡A©Ò¥H·|²£¥Í­Èªº·¸¦ì°T®§¡C
©Ò¥H­ì¥»ªº  i As Integer §ï¦¨  i As Long (ªø¾ã¼Æ)¡A¥t¥~ Loop Until Cells(i - 1, "F") <> Cells(i, "F")

  1.        Do
  2.             t = t + Cells(i, "e")
  3.             i = i + 1
  4.         Loop Until Cells(i - 1, "F") <> Cells(i, "F")
½Æ»s¥N½X
¦b°õ¦æ¨ì³Ì«á®É·|²£¥Í 1004 ªº¿ù»~°T®§¡A©Ò¥Hµyµy­×§ï¦¨¦p¤U¡G
  1. Sub Ex()
  2.     Dim i As Long, t As Integer
  3.    
  4.     i = 2
  5.     With Sheets(1)   ' «ü©w¤u§@ªí: ActiveSheet->§@¥Î¤¤ªº¤u§@ªí
  6.         Do
  7.             t = 0
  8.             Do
  9.                 t = t + .Cells(i, "e")
  10.                 i = i + 1
  11.             Loop Until .Cells(i - 1, "F") <> .Cells(i, "F") Or .Cells(i, "F") = ""
  12.             .Cells(i - 1, "g") = t
  13.         Loop Until i > 2 And .Cells(i, "F") = ""
  14.     End With
  15. End Sub
½Æ»s¥N½X
³o¤]¬O GBKEE ª©¤j­n§Aªþ¤WÀɮתº½t¬G¡A¦]¬°µLÀÉ®×´£¨Ñ¹ê§@´ú¸Õ¡A
¤@¯ë¥u¯à¤Ñ°¨¦æªÅ¡A(·Q¹³¤¤) °µ·§²¤ªº¤ÀªR¸Ñ»¡¤F¡I

TOP

¦^´_ 8# c_c_lai
¨S·Q¨ì¦³³o¿ù»~ÂI,·PÁ­ץ¿
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# c_c_lai

·PÁ¤j¤j¬°¤p§Ì¸Ñ´b

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD