½Ð°Ýª©¤W¤j¤j¡A³oÓn«ç»ò¼gVBA
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ 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)- Dim i As Integer, t As Integer
- i = 1
- With ActiveSheet '«ü©w¤u§@ªí: ActiveSheet->§@¥Î¤¤ªº¤u§@ªí
- 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")-
- Do
- t = t + Cells(i, "e")
- i = i + 1
- Loop Until Cells(i - 1, "F") <> Cells(i, "F")
½Æ»s¥N½X ¦b°õ¦æ¨ì³Ì«á®É·|²£¥Í 1004 ªº¿ù»~°T®§¡A©Ò¥Hµyµyק令¦p¤U¡G- Sub Ex()
- Dim i As Long, t As Integer
-
- i = 2
- With Sheets(1) ' «ü©w¤u§@ªí: ActiveSheet->§@¥Î¤¤ªº¤u§@ªí
- Do
- t = 0
- Do
- t = t + .Cells(i, "e")
- i = i + 1
- Loop Until .Cells(i - 1, "F") <> .Cells(i, "F") Or .Cells(i, "F") = ""
- .Cells(i - 1, "g") = t
- Loop Until i > 2 And .Cells(i, "F") = ""
- End With
- End Sub
½Æ»s¥N½X ³o¤]¬O GBKEE ª©¤jn§Aªþ¤WÀɮתº½t¬G¡A¦]¬°µLÀÉ®×´£¨Ñ¹ê§@´ú¸Õ¡A
¤@¯ë¥u¯à¤Ñ°¨¦æªÅ¡A(·Q¹³¤¤) °µ·§²¤ªº¤ÀªR¸Ñ»¡¤F¡I |
|
|
|
|
|
|