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

§Q¥Î¥¨¶°¦Û°Ê¿ï©w¦C¦L½d³ò

§Q¥Î¥¨¶°¦Û°Ê¿ï©w¦C¦L½d³ò

¥»©«³Ì«á¥Ñ mmggmm ©ó 2010-7-27 17:09 ½s¿è

12345678.rar (14.11 KB)
¥i§_§Q¥Î¥¨¶°¦Û°Ê¿ï©w¦C¦L½d³ò,
,§â

¤£À´±z©Ò¿×ªº"¦Û°Ê"¬O¤°»ò·N«ä?

¬O¦Û°Ê±NSheet©Ò¦³¸ê®Æ"¦Û°Ê"¦C¦L¬°¤@­¶¶Ü?
ÁÙ¬O¬Y­ÓÂI »Ý­n¤À­¶?
ActiveSheet.PageSetup.PrintArea = "$A$1IV$65535"   '³o¬O³]©w¦C¦L½d³ò ±z¦Û¤v¸Õ¸Õ§a~
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

¥Î"®Ö¼Æ­û"©w¦ì
ActiveSheet.ResetAllPageBreaks
    For Each rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
        If WorksheetFunction.IsText(rng.Value) Then
            If Left(rng.Value, 3) = "®Ö¼Æ­û" Then
                ActiveWindow.SelectedSheets.HPageBreaks.Add before:=rng.Offset(1, 0)
            End If
        End If
    Next
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

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

TOP

¦^´_ 1# mmggmm
  1. ActiveSheet.ResetAllPageBreaks
  2.     For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
  3.         If WorksheetFunction.IsText(Rng.Value) Then
  4.             If Left(Rng.Value, 3) = "®Ö¼Æ­û" Then
  5.             If Rng.Offset(-1, 7) = 0 Then Exit For
  6.                 ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
  7.                 ActiveSheet.PageSetup.PrintArea = "A1:J" & Rng.Row
  8.             End If
  9.         End If
  10.     Next
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦hÁÂ,°ÝÃD¥H¸Ñ¨M

TOP

¦n±j³á~~
¥i¥H¦Û°Ê§P§O¤º®e¦³µLª«
¨Ó¨M©w­n¤£­n¦C¦L
¤S¾Ç¨ì¤F

TOP

¦^´_  mmggmm
Hsieh µoªí©ó 2010-7-27 23:05




    ³o­Ó¤Ó´Î¤F,·|¦Û°Ê·P´ú¨ì¤å¦r³]©w¦C¦L½d³ò,¦ý§Ú¦³¤@¨ÇªÅ®æ¬O¿é¤J¤F¨ç¼Æ¦ÓÁôÂäF¤å¦r,
    ³o­Ó¤½¦¡¯à§_©¿²¤ÁôÂ꺤å¦r?THX

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD