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

[¤À¨É] µ½¥Î¿ý»s¥¨¶°¥i¥H§ä¨ì«Ü¦h°ÝÃDªºµª®×,¥H¦Û°Ê¤À­¶¬°¨Ò.

§Úªº¤À­¶¹wÄýªº¶i¤JÂIÀ³¸Ó¹ïªº§a,(À˵ø---->¤À­¶¹wÄý)
¥YºlªO¥D¤W¶Çªº½d¨ÒÀɦn¹³¤]没¦³¼ÐÃD¦C³]©w.
V98

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-27 16:42 ½s¿è

¦^´_ 10# linshin1999

¨º¥i¯à¬O¤W¤UÃä¬É°ÝÃD
¦b¹wÄý¦C¦L¤¤¡AÅã¥ÜÃä¬É¡A½Õ¾ã¤W¤UÃä¬ÉÅý¦C¦L°Ï°ì®e¯Ç50¦C
¥¼©R¦W.PNG
2010-12-27 16:42
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ª©¥D¤j¤j,§Ú¦³°µ¹L¼Ò¼¯,À³¸Ó¬O§ÚªºVBA¦³°ÝÃD,¦]¬°§Ú¼Ò¼¯ªºÀÉ®×没°ÝÃD,§Ú·|§â°ÝÃD§ä¥X¨Ó,¥i¯à¬O§Úªº²M³æ没§¹¥þ¬¡¤Æ,ÁÂÁÂ!!
V98

TOP

¦^´_ 13# linshin1999
¦b¤À­¶¹wÄý¼Ò¦¡¤U :
²¾°Ê¥ô¦ó¦Û°Ê¤À­¶½u(µê½u) ´NÅܦ¨¤â°Ê(¹ê½u)
²Ä¤@±ø¦Û°Ê¤À­¶½u(µê½u) ¦p©¹¤W©ì²¾¤p©ó ²Ä¤@±ø¦Û°Ê¤À­¶½u(µê½u)  ¬OµLªk ±N©Ò¦³¤À­¶½u©T©w¦b²¾°Êªº­¿¼Æ¦C¤W
²Ä¤@±ø¦Û°Ê¤À­¶½u(µê½u) ¦p©¹¤U©ì²¾¤j©ó ²Ä¤@±ø¦Û°Ê¤À­¶½u(µê½u)  ¥i±N©Ò¦³¤À­¶½u©T©w¦b²¾°Êªº­¿¼Æ¦C¤W
µ¹§A¤@µ{§Ç¸Õ¸Õ¬Ý
  1. Sub Ex()
  2. Dim Rng As Range, R%, C%, i%, A%
  3. With ActiveSheet '§@¥Î¤¤ªº¤u§@ªí
  4. Set Rng = .Range("A1:J182") '©Ò­n¦L¦Cªº¤@³sÄòªº½d³ò
  5. R = 50 '¦L¦C¨C­¶©T©w¤§¦C¼Æ
  6. C = Rng.Columns.Count '¤@³sÄòªº½d³òªºÄæ¼Æ
  7. With .PageSetup '¦L¦Cªº³]©w
  8. .Zoom = False '°±¤îÁY©ñ
  9. .FitToPagesTall = 1 '³]©w¬°1­¶°ª
  10. .FitToPagesWide = 1 '³]©w¬°1­¶¼e
  11. .CenterHorizontally = True '­¶­±¤Wªº¤u§@ªí¬O¤ô¥­¸m¤¤
  12. .CenterVertically = True '­¶­±¤Wªº¤u§@ªí¬O««ª½¸m¤¤
  13. End With
  14. For i = 1 To Rng.Rows.Count '©Ò­n¦L¦Cªº¤@³sÄòªº½d³òªºÁ`¦C¼Æ
  15. A = IIf(Rng.Rows.Count > i + R, R, Rng.Rows.Count - i + 1)
  16. .PageSetup.PrintArea = Rng(i, 1).Resize(A, C).Address '³]©w­n¦C¦L½d³òªº¦ì¸m¦r¦ê
  17. i = i + R - 1
  18. .PrintPreview '¦L¦C¹wÄý
  19. '.PrintOut '¦L¦C
  20. Next
  21. End With
  22. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂGBKEEª©¥D,§Ú·|¥h¸Õ¸Õ¬Ý,¦³°ÝÃD¦A½Ð±Ð.
V98

TOP

GBKEE ³o´N¬O¤@­Ó¦Û°Ê¤À­¶ªº¨ç¼Æ§a,´N¬O§Ú­nªº,ÁÂÁ§Aªºµª®×.
V98

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD