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

¥[Á`°ÝÃD

¥[Á`°ÝÃD

¦U¦ì¤j¤j~

¤£¦n·N«ä§Ú·Q½Ð°Ý¤@¤U

¦p¤U¹Ï~¦³¦h­Ósheet

¨C­Ósheetªº¸ê®Æ¶q¤£¦P

¦ý®æ¦¡³£¤@¼Ë

§Ú·Q¦b¨C­Ósheetªºª÷ÃBÄæ¥[Á`

¦]¬°sheet«Ü¦h~­nªá¤@¨Ç®É¶¡~

¤£ª¾¹D¦³¨S¦³¥¨¶°¬O¥i¥H«ö¤@¤U´N¥[Á`§¹¥~¥[§â®æ¦¡§Ë¦n(¤W©³½u+¤UÂù©³½u)?

³]¤@­Ó«ö¶s
  1. Sub ¥[Á`()

  2. Dim sh As String '«Å§i¬°¦r¦ê«¬ºA
  3. sh = ActiveWorkbook.Sheets.Count '°»´ú¬¡­¶³¡¤ºªº¤u§@ªí¼Æ¶q
  4. For i = 1 To sh '±q²Ä¤@­Ó°µ¨ì³Ì«á¤@­Ó¤u§@­¶
  5. Sheets(i).Select
  6.     s = [A65536].End(xlUp).Row '°»´úAÄæ³Ì«á¤@¦C¼Æ¦r
  7.     '¥[Á`
  8.     Cells(s + 1, 4).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 4), Cells(s, 4)))
  9.     Cells(s + 1, 4).Select
  10.         '¤W©³½u¥[¤UÂù©³½u
  11.     Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
  12.     Selection.Borders(xlEdgeBottom).LineStyle = xlDouble
  13.      
  14. Next i
  15. End Sub
½Æ»s¥N½X
«ü©w¥¨¶°  ·d©w

TOP

¦^´_ 1# sky00264

³]¤@­Ó«ö¶s
  1. Sub ¥[Á`()

  2. Dim sh As String '«Å§i¬°¦r¦ê«¬ºA
  3. sh = ActiveWorkbook.Sheets.Count '°»´ú¬¡­¶³¡¤ºªº¤u§@ªí¼Æ¶q
  4. For i = 1 To sh '±q²Ä¤@­Ó°µ¨ì³Ì«á¤@­Ó¤u§@­¶
  5. Sheets(i).Select
  6.     s = [A65536].End(xlUp).Row '°»´úAÄæ³Ì«á¤@¦C¼Æ¦r
  7.     '¥[Á`
  8.     Cells(s + 1, 4).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 4), Cells(s, 4)))
  9.     Cells(s + 1, 4).Select
  10.         '¤W©³½u¥[¤UÂù©³½u
  11.     Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
  12.     Selection.Borders(xlEdgeBottom).LineStyle = xlDouble
  13.      
  14. Next i
  15. End Sub
½Æ»s¥N½X
«ü©w¥¨¶°
«ö¤U«ö¶s ·d©w!

TOP

·PÁ¤j¤j~±ßÂI¨Ó¸Õ¸Õ¬Ý^^

TOP

¨º§Ú·Q¦b°Ý¤@¤U¤j¤j~
s = [A65536].End(xlUp).Row ~¬O°»´úAÄæ³Ì«á¤@¦C¼Æ¦r
°²³]§Ú¤µ¤Ñ­n°»´úBÄæ¦@¦³´X¦Cªº¸Ü~
­n«ç»ò¼g©O?

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-11-30 08:30 ½s¿è

¦^´_ 1# sky00264


   ¨Ï¥Î¥ßÅé°Ñ·Ó¤½¦¡§Y¥i­pºâ
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# die78325

§Ú·Q­n¦b°Ý¤@¤U~
¤j¤jÀ°§Ú¼gªº¥¨¶°¦bµ²ªG¤W·|ª½±µÅã¥Ü¥[Á`¼Æ¦r
¦ý¦pªG§Ú¤µ¤Ñ­nÅý¥[Á`ÄæÅã¥Üsumªº¤½¦¡ªº¸Ü³o¼Ë°µ±o¨ì¶Ü?

TOP

¥»©«³Ì«á¥Ñ kimbal ©ó 2012-12-1 09:00 ½s¿è

¦^´_ 7# sky00264
­ÉDIE¥Sªº¨Ó§ï¤@¤U
  1. Sub ¥[Á`()

  2. Dim ws As Worksheet
  3.     For Each ws In ThisWorkbook.Sheets '±q²Ä¤@­Ó°µ¨ì³Ì«á¤@­Ó¤u§@­¶
  4.         With ws.[A65536].End(xlUp).Offset(1, 3)
  5.             '3¬O²Ä3¦æ¶}©l¥[Á`ªº·N«ä
  6.             '[A65536].End(xlUp).Row °»´úAÄæ³Ì«á¤@¦C¼Æ¦r, BÄ檺¸Ü¬O [B65536]....
  7.            .Formula = "=Sum(" & Range(Cells(3, 4), Cells(ws.[A65536].End(xlUp).Row, 4)).Address & ")"
  8.             '¤W©³½u¥[¤UÂù©³½u
  9.             .Borders(xlEdgeTop).LineStyle = xlContinuous
  10.             .Borders(xlEdgeBottom).LineStyle = xlDouble
  11.         End With
  12.     Next
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 5# sky00264


    s = [A65536].End(xlUp).Row     ±qA65536©¹¤W§ä ¥ý¸I¨ìªº¦ì¸m
¬õ¦â³¡¤À   ­nBÄæ´N§ï¬°B65536     
¦pªGBÄæ³£¦³¼Æ­È  ¤¤¶¡³£¨S¦³ªÅ®æªº¹º  ¤]¥i¥H¨Ï¥Î  s =  [B1].End(xldown).Row        ·N«ä¬O ±qB1©¹¤U§ä
s³£¥i¥H¦Û¦æÅܤƠ   ¥i¥H©w¸q¬°§A¤ñ¸û¯à¿ëÃѪº¥N¸¹
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 8# kimbal


K¤j~
§Ú½Æ»s¤F±z¼gªº¥¨¶°«á~
«ö¤F³£¨S¤ÏÀ³@@~
¤£ª¾¹D¬O¤£¬O§Ú³oÃä­þ­ÓÀô¸`¥X¤F°ÝÃD>"<

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD