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

[µo°Ý] ¶W¶V¿ï©w½d³ò¦C¦L

[µo°Ý] ¶W¶V¿ï©w½d³ò¦C¦L

ªB¤Í­Ì¥­¦w
¦³¤@­ÓexcelÀɮצ³ªñ2¤dµ§¸ê®Æ
¸ê®Æ¤º®e¤ÀA,B,C,D,E,F,G,H,I,J,K ,L  
»Ý¦C¦L¦¨12¤À¸ê®Æ , ¥B­¶½X­n·ÓµÛ±Æ¦C
½Ð°Ý¥i¥H°µ¨ì¶Ü ?

¥Ø«eªº¤èªk¬O¨Ï¥Î¿ï¨ú½d³ò¦C¦L
µM«á¤@±i¤@±i¼g­¶½X
¹ê¦b«Ü¤£¸gÀÙ ¯S¨Ó´N±Ð

ÁÂÁÂ
¬¡­¶Ã¯1.rar (6.21 KB)
µL¤îºÉªº§V¤O¤W¶i

¦^´_ 1# vinejason

«ØijÃD¥Ø²¾¸mµ{¦¡°Ï¤ñ¸û¦h¤H¥i¥HÀ°¦£

©Î¡A¥i¥H¿ý¸m¤@¬q¥¨¶°¨Ó½Æ»s­×§ï
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 1# vinejason
  1. Sub SetPrintArea()
  2. Dim A As Range
  3. With ActiveSheet
  4. .ResetAllPageBreaks '­«³]¤À­¶
  5. For Each A In Range([A2], [A2].End(xlDown)) '±qA2¶}©l¶i¤J°j°é
  6.   If A <> A.Offset(1) Then 'AÄæ¸ê®Æ¹J¨ì»P¤U¤èÀx¦s®æ¤£¦P¤º®e®É
  7.      A.Offset(1).PageBreak = xlPageBreakManual '³]¸m¤À­¶½u
  8.   End If
  9. Next
  10.     With .PageSetup '¦C¦L³]©w
  11.         .PrintTitleRows = "$1:$1" '¦C¦L¼ÐÃD
  12.         .RightFooter = "&P" '­¶§ÀÅã¥Ü­¶½X
  13.     End With
  14. End With
  15. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# ML089

ÁÂÁª©¥D´£¿ô !
µL¤îºÉªº§V¤O¤W¶i

TOP

¥»©«³Ì«á¥Ñ vinejason ©ó 2019-1-12 14:27 ½s¿è

¦^´_ 3# Hsieh
´H§Nªº¤Ñ®ð¸Ì¦³¶§¥ú¬O³ÌµÎªAªº !
¦pªG­n±a¥XÁ`­¶¼Æ¥i¥H°µ¨ì¶Ü ?
·PÁÂHsieh
µL¤îºÉªº§V¤O¤W¶i

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD