tomtracy

¦^´_ 7# c_c_lai

§Ú§â¥N½X¸m¤J¤´¨S¦³µ²ªG,¥i¬O¬Ý±z©ÒÅã¥ÜªºÀ³¸Ó¬O´ú¸Õ¹Lªº¤]¤w§¹¦¨¤F,¬°¦ó¨ì§Ú³o¨½Åܦ¨¤F¤£¯à°õ¦æ,½ÐLai ¥ý¥Í¦AÀ°§Ú¬Ý ,¬O§_§Ú¦b½Æ¨î®É¨S¦³ª`·N¨ì¤°»ò©O?  ¦pªGLai¥ý¥Í¤è«K¨Ã¥BÄ@·Nªº¸Ü½ÐÀ°§Ú§â¤å¥ó±H¦Ü§Úªº¶l½c[email protected]  ÁÂÁ±z «Ø¥Á¤½¥q (Lai ¥ý¥Í(ÁcÅé).rar (19.61 KB)

§ï¹Lªº¥N½X¸m¤J
¤U¸ü¦¸¼Æ: 2

2015-8-2 09:12

tomtracy

¦^´_ 7# c_c_lai


    ¤p­p¼Æ¬O§Ú¦b´ú¸Õ ©¹¤U¸Õ©¹¤U¸Õ´N¨S¬Ý¨ì¼Æ­È ©Ò¥H´N¦¨¤F«Ü¦h¤p­p¤F,±zªº­×§ï¥N½X§Ú¸Õ¸Õ! ¦b¦¹¯u«D±`·PÁÂ!

c_c_lai

¦^´_ 6# tomtracy
¥ý¼á²M¤@¤U¡A¬°¦ó§Aªºªí³æ»Ý­n³sÄò¦³¥|²Õ¡y¤p­p¡z¡A
¨C²Õ¡y¤p­p¡zªº©w¸q¬°¦ó¡H

¤U¸ü (39.71 KB)

2015-8-2 07:14

­ì¥»ªí³æ¤§³B¸Ì¡G

1. Sub Ex()
   
2.     Dim bt As Single
   
3.    
   
4.     With Sheet1
   
5.         bt = .Range("B" & .Rows.Count).End(xlUp).Row
   
6.         If InStr(.Range("B" & bt - 5), "¤p­p") Then
   
7.             .Range("K" & bt - 5).Formula = "=SUM(K8:K" & (bt - 6) & ")"
   
8.             .Range("K" & bt).Formula = "=SUM(K" & (bt - 5) & ":K" & (bt - 1) & ")"
   
9.         End If
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

¨Ì·Ó¤§«áªþ¤Wªí³æ¤§¤º®e¡A½Ð¦Û¦æ­×¥¿¬°¡G

1. Sub Ex()
   
2.     Dim bt As Single
   
3.    
   
4.     With Sheet1
   
5.         bt = .Range("B" & .Rows.Count).End(xlUp).Row
   
6.         If InStr(.Range("B" & bt - 3), "¤p­p") Then
   
7.             .Range("K" & bt - 3).Formula = "=SUM(K8:K" & (bt - 4) & ")"     '  ¤p­p
   
8.             .Range("K" & bt).Formula = "=SUM(K" & (bt - 3) & ":K" & (bt - 1) & ")"     '  Á`­p
   
9.         End If
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

«K¦³¼Æ­È¼g¤J¤F¡C

tomtracy

¦^´_ 5# c_c_lai

    ¹ï¤£°_§Ú§â§Ú¹q¸£ªº»y¨¥§ï¦¨¤F²Åé¤F, ­è¤~§Ú§â¹q¸£¨t²Î§ï¦^ÁcÅé¤F, ¤å¥óªº¤å¦r³£ÂনÁcÅé¤F¤]§â¥N½X­×§ï, ¥i¬O¤]¤´¨Sªk¹Bºâ ªþ¤W¤å¥ó ¦A½ÐLai¥ý¥ÍÀ°¦£! «Ø¥Á¤½¥q (Lai ¥ý¥Í(ÁcÅé).rar (18.35 KB)

¤U¸ü¦¸¼Æ: 2

2015-8-1 21:49

c_c_lai

¦^´_ 4# tomtracy

¤U¸ü (34.44 KB)

2015-8-1 18:16

§Ú¬O¥H§A¤W¦¸ªþ¤WªºÀɮ׬°Á|¨Ò¡A¦pªG§A
¦Û­qªº®æ¦¡¦³©Ò²§°Ê¡Aµ{¦¡½X§PÂ_¥çÀ³¸òÀH
§ó¥¿¡A¥H²Å¨Æ¹ê¡C

tomtracy

¦^´_ 2# c_c_lai


   §Ú¸Õ¤F ¦ý¤´¨S¦³°Ê§@ §Ú§â­ìVABºM¤F,¦A¶K¤W±z¼gªº½sµ{, µ²ªG¬O¨S¦³¤Þ¥X¼Æ¾Ú  §Ú§â§ï¤Fªºªþ¥ó°e¤Wµ¹±z¬Ý ½Ð±z¦AÀ°¦£¬Ý¬Ý«ç»ò³B²z? ³Ò·Ð±z¤F ÁÂÁÂ! «Ø¥Á¤½¥q (Lai ¥ý¥Í).rar (19.08 KB)

¤U¸ü¦¸¼Æ: 6

2015-8-1 16:34

tomtracy

¦^´_ 2# c_c_lai

·PÁ¦Ѯv §Ú¸Õ¸Õ  ÁÙ¬O¥ýÁÂÁ±z    ¤H¶¡¦³温·x:loveliness: :loveliness:

c_c_lai

¦^´_ 1# tomtracy
¸Õ¸Õ¬Ý¡G

1. Sub Ex()
   
2.     Dim bt As Single
   
3.    
   
4.     With Sheet1
   
5.         bt = .Range("B" & .Rows.Count).End(xlUp).Row
   
6.         If InStr(.Range("B" & bt - 5), "¤p­p") Then
   
7.             .Range("K" & bt - 5).Formula = "=SUM(K8:K" & (bt - 6) & ")"
   
8.             .Range("K" & bt).Formula = "=SUM(K" & (bt - 5) & ":K" & (bt - 1) & ")"
   
9.         End If
   
10.     End With
    
11. End Sub

½Æ»s¥N½X