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

[µo°Ý] vba°µ¦Û°Ê¦X­p

[µo°Ý] vba°µ¦Û°Ê¦X­p

¥»©«³Ì«á¥Ñ tomtracy ©ó 2015-7-31 21:54 ½s¿è

«ç¼Ë³]­p¤@­ÓVBA¥N½X¡AÅý§ÚB¦C¿ï¤¤©Î¿é¤J"¤p­p"¤§«á¡A¦b¤p­pªº¥k°¼ªº  K¦C¦Û°Ê¥[Á`¡H­nª`·N¡G¡§¤p­p¡¨¬O¤£©T©w¦b®R¤@¦æ¥X²{ªº¡C"¤p­p"¤§«á¦p¦³²K¥[°l¥[¼Æ®É ¦b  "Á`­p" ®É¯à©M"¤p­p¤@°_¥[Á` ,¥Ø«e§Ú¸Õ¤F¤@²ÕVBA¥i¬O¤´µLªk°õ¦æ½Ð¦U¦ì°ª¤â(¦Ñ®v)À°¦£­×§ï§¹µ½

«Ø¥Á¤½¥q (VBA¸m¤J).rar (21.3 KB)

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-8-1 12:24 ½s¿è

¦^´_ 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

TOP

¦^´_ 2# c_c_lai

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

TOP

¦^´_ 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)

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-8-1 18:22 ½s¿è

¦^´_ 4# tomtracy

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

TOP

¦^´_ 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)

TOP

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

­ì¥»ªí³æ¤§³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

TOP

¦^´_ 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ÁÂ!
¤T¤d¦~Ū¥v, ¤£¥~¥\¦W§Q¸S, ¤E¸U¨½®©¹D, ²×Âk¸Ö°s¥Ð¶é

TOP

¦^´_ 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)
¤T¤d¦~Ū¥v, ¤£¥~¥\¦W§Q¸S, ¤E¸U¨½®©¹D, ²×Âk¸Ö°s¥Ð¶é

TOP

¦^´_ 7# c_c_lai


    lai ¥ý¥Í±z¦n  ¤£¥Î±H¤F , ³£¬O§Ú¨S«ö°õ¦æ¤~·|¨S¦³¼Æ¾Ú , ÁÂÁ±zÀ°§Ú¨º»ò¤jªº¦£ . ·PÁ±z
«Ø¥Á¤½¥q (Lai ¥ý¥Í(¤w§¹¦¨¤F).rar (17.87 KB)
¤T¤d¦~Ū¥v, ¤£¥~¥\¦W§Q¸S, ¤E¸U¨½®©¹D, ²×Âk¸Ö°s¥Ð¶é

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD