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

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

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

¦pªG§ÚªºÀɮצ³1100­Ó¦C,§Ú­n¨C50­Ó¦C¤À¤@­Ó­¶.
­ì¥»³]©w¨C¦Cªº°ª«×¬°18.75
¸gExcel¦Û°Ê¤À­¶¥H«á·|¨C51¦C¦Û°Ê¤À­¶,¨º»òÅܦ¨·|¦b(51,102,153.......)³B¦Û°Ê¤À­¶,¦pªG§Ú·Q¦b(50,100,150,....)³B¦Û°Ê¤À­¶,¨º»ò´N­n¼g¤@­Ó¥¨¶°¨Ó³B²z,©ó¬O§Q¥Î¿ý»s¥¨¶°¤è¦¡¦A­×§ï¤@¤U´N¥i¥H¤F.
1)±N¹C¼Ð²¾¦Ü¤À­¶½u,(²Ä51¦C)
2)¿ï¨ú¥\¯à°Ï¯Á¤Þ¼ÐÅÒªº¶}µo¤H­û
3)¿ï¨ú¥¨¶°¿ý»s¥\¯à
4)¿ï¨ú¥\¯à°Ï¯Á¤Þ¼ÐÅÒªºª©­±°t»s
5)±N¹C¼Ð²¾¦Ü²Ä50¦C
6)¿ï¨ú¥\¯à°Ï¯Á¤Þ¼ÐÅÒªº¤À­¶²Å¸¹¦A¿ï¨ú´¡¤J¤À­¶
7)¿ï¨ú¥\¯à°Ï¯Á¤Þ¼ÐÅÒªº¶}µo¤H­û,¦A¿ï°±¤î¿ý»s

¦p¦¹§Ú­Ì´N¥i¥H±o¨ì¦p¤UªºVBA¥¨¶°
Sub ¥¨¶°1()
    Rows("51:51").Select                                                                            '¿ï¨ú²Ä51¦C
    Application.CutCopyMode = False                                                         '¨ú®ø [°Å¤U] ©Î [½Æ»s] ¼Ò¦¡¨Ã²¾°£²¾°Ê®Ø½u¡C
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell   '¦b²Ä51¦Cªº¤W¤è(²Ä50¦C)¥[¤J·sªº¤À­¶²Å¸¹¡C
End Sub

¥i¥H¦b¦p¤Wªº¥¨¶°¦A­×§ï¤@¤U´N¥i¥H¦¨¬°³q¥Îªº¥¨¶°,¥i¥H¥Î Do Loop «ü¥O¨Ó­×¥¿¤À­¶½u,¨º»ò´N¥i¥H°µ¨ì¨Ì§Ú­Ìªº·N«ä¨Ó§@¤À­¶ªº°Ê§@.
¥i¬O¦b¦¹¤§«e¹ï©ó:
pplication.CutCopyMode = False                                                        
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
³o¨â¦æVBA«ü¥O¤@ÂI³£¤£À´,¸g¹L¿ý»s¥¨¶°¦A¥Î¤ß¤@¤U§Ú­Ì´N¥i¥Hª¾¹D§Ú­Ì­nªº°Ê§@¦p¦ó¦¨¬°VBA¥¨¶°.
­n¾Ç²ßVBA¥¨¶°ªºªO¤Í­Ì¥i¥H¤jÁxªº¸Õ¤@¸Õ.
V98

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-12-26 20:43 ½s¿è

«Ü¦n¡A±z¯à§â´¤¨ì¿ý»s¥¨¶°ªº§Þ¥©

¥i¹Á¸Õ¬Ý¬Ý¡A¦b¤À­¶¹wÄý¼Ò¦¡¤U
±N²Ä¤@±ø¤À­¶½u©ì²¾¦ÜA50
¬Ý¬Ý©Ò¦³¤À­¶½u¬O§_³£¦b50ªº­¿¼Æ¦C¤W
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ª©¥D¤j¤j¦n¹³¤£¦æ,ÁÙ¬O­n¨Ï¥ÎVBA
V98

TOP

¦^´_ 3# linshin1999


    ¦b¤À­¶¹wÄý¼Ò¦¡¤U©ì°Ê¤À­¶½u¡A¥u­n©ì°Ê²Ä¤@±ø¡A¨ä¥L·|¸òµÛÅܰʪº¡C
A.gif
2010-12-26 22:22

TOP

Ãø¹D³o¬Oª©¥»ªº°ÝÃD¶Ü?
§Úªºª©¥»µLªk³o¼Ë°µ,¥u·|¥­¦æ²¾°Ê,¤£·|°µ©T©w¤Á³Î.
¥Yºl«e½ú,§Úªºª©¥»¯uªºµLªk°µ¨ì,ÁÙ¬O¤èªk¦³»~.(§Ú¦³©ì°Ê²Ä¤@±ø½u),±o¨ìªºµ²ªG¦p¤W­z.
V98

TOP

¦^´_ 5# linshin1999

§Ú§@·~¨t²Î¤]¬OWIN7
OFFICE¤]¬O2010
°²¦p§A¤w¸g¦³¹wÄý¹L¡A¨t²Î¦Û°Ê²£¥Í¤À­¶½u«á
§A¥ÎVBA¦A50ªº­¿¼Æ¦C¥[¤J¤À­¶½u¨º»ò·|¦h¥X³\¦h¤À­¶¤~¹ï
¥H¤U¬O¿ý»s¥X¨Óªº¥¨¶°
§A°õ¦æ¬Ý¬Ý¬O¬Æ»ò±¡§Î
  1. Sub ¥¨¶°1()
  2. '
  3. ' ¥¨¶°1 ¥¨¶°
  4. '

  5. '
  6. ActiveWindow.View = xlPageBreakPreview
  7.     Set ActiveSheet.HPageBreaks(1).Location = Range("A51")

  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsiehª©¥D¤j¤j,¤£ª¾¹D¬O§_¬O§Úªº³]©w¦³°ÝÃD,¤À­¶½u¤´¬O(50,101,152,203....),¤£·|§ó°Ê©O!
V98

TOP

Hsiehª©¥D¤j¤j,¦pªG¬O³]©wªº°Ý¥i§_±Ð§Ú,¦b§Úªº¤u§@¤¤¦Û°Ê¤À­¶«Ü­«­n,¤£µM§Ú´N­n¼g¤@­Ó¦Û°Ê¤À­¶ªº¨ç¼Æ¤F,ÁÂÁÂ!!
V98

TOP

¦^´_ 8# linshin1999
½Ð§A§â§AªºÀɮפW¶Ç
¤~ª¾¹D¨ì§Aªº³]©w¬°¦ó?
§Ú¦b²q¬O§_¬O¼ÐÃD¦C°ÝÃD
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¶Ë¸£µ¬¨ì²{¦bÁÙ¤£·|¤W¶Ç¸ê®Æ.(§Ú·|´Nªñ½Ð±Ð¤H,§Ú¥H«e³£¬O¥ÎDos),¤£¹L§Ú没³]©w¼ÐÃD¦C.
V98

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD