[µo°Ý] ½Ð°Ý,¤wª¾¼Æ¤d¦C¸ê®Æ¨C50¦C­n¦C¦L¦¨¤@­¶,¤£ª¾excel¦p¦ó°µ¡C

¦t¶ý

¦pÃD,ÁÂÁÂ!!

linshin1999

¦t¶ý:¤U¦C¬O¥»½×¾Â¦³¥»°ÝÃDªº¤@¨t¦C°Q½×,À³¸Ó¥i¥H±o¨ìµª®×

http://forum.twbts.com/thread-2275-1-1.html

¦t¶ý

ÁÂÁÂlinshin 1999ªº¤èªk,¥Î½Æ¨î¸Õ¹L¤FÅý§Ú¬Ù«Ü¦h®É¶¡,¥u¬Ovba¹ï§Ú¨Ó»¡¤ÓÃø¤FÂI,¤£ª¾¬O§_ÁÙ¦³¨ä¥Lªº¤èªk,¤£¬Ovbaªº,ÁÂÁÂ!!

linshin1999

³o¬O vba ªº°µªk

Sub ¦Û°Ê¤À­¶
    Dim rows_count As Long
    Dim page_count As Long                                               
    Dim i As Long                                                                 
    Dim str_row_index As String                                          
    Dim first_row As Long                                                        
   
    ActiveWindow.View = xlPageBreakPreview                        
    rows_count = Range("A1").CurrentRegion.Rows.Count     
    first_row = 50                                                                     
    For i = first_row To rows_count Step 50
        page_count = page_count + 1
        str_row_index = "A" + Trim(Str(i + 1))
        Set ActiveSheet.HPageBreaks(page_count).Location = Range(str_row_index)
    Next i
    ActiveWindow.View = xlNormalView
End Sub