- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
|
[¤À¨É] µ½¥Î¿ý»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¦Û°Ê¤À¶,¨º»ò´Nn¼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ªº¸Õ¤@¸Õ. |
|