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

[µo°Ý] ¦p¦ó¨Ï¥Î¥¨¶°¨Ó¿ï¨ú¦C¦L½d³ò

[µo°Ý] ¦p¦ó¨Ï¥Î¥¨¶°¨Ó¿ï¨ú¦C¦L½d³ò

§Úª¾¹D ¥i¨Ï¥ÎActiveSheet.PageSetup.PrintArea = "$B$1:$AA$200,$B$201:$AA$227"
¨Ó¿ï¾ÜB1~AA200 ¥H¤Î B201~AA227 ¨â°Ï½d³ò§@¦C¦L½d³ò
¦ý¬O¦pªG§Ú¦³§ó¦h°Ï§Ö­n°µ¿ï¾Üªº®É­Ô¡A«Ü®e©ö·|µo¥Íloseªº¥i¯à
©Ò¥H§Ú¦³¿ìªk¥i¥H°µ¨ì
Ãþ¦ü A=range("B1:AA200")
         B = range("B201:AA227")
ActiveSheet.PageSetup.PrintArea = A,B Ãþ¦üªº¤è¦¡¶Ü??

ÁÂÁÂ!!

¦^´_ 1# lichang
¬Ý¤£¤ÓÀ´¡A§ï¥Î
Dim A as Range,B as Range
set A=range("B1:AA200")
set B = range("B201:AA227")
´N¤£·|º|±¼¶Ü ???

¤U­±·N«ä³£®t¤£¦h
  1. ActiveSheet.PageSetup.PrintArea = A.address & "," & B.address
½Æ»s¥N½X
  1. ActiveSheet.PageSetup.PrintArea = Application.Union(A, B).Address
½Æ»s¥N½X

TOP

¦^´_ 2# stillfish00

ÁÂÁ±zªº¦^ÂСA¦]¬°§Ú¦³«Ü¦h°Ï§Ö­n¨Ì¤£¦P±ø¥ó¿ï¾Ü¡A©Ò¥H§Ú¤~·|§Æ±æ¯à¥Î¦WºÙªº¤è¦¡¨Ó¨M©w¿ï¾Ü°Ï¶ô
·PÁ±zÀ°§Úªº¤j¦£!!

TOP

¦^´_ 2# stillfish00

¤£¦n·N«ä¡A§Ú¤S¹J¨ì°ÝÃD¤F
Set °ò¥»µøµ¡ = Sheet1.Range("B1:AA200")
Set ¤G¶b¸ê®Æ = Sheet2.Range("B1:Z27,B50:Z92,B148:Z185,B246:Z275,B295:Z324,B344:Z387")

§Ú³o¨âµ§¸ê®Æ¬O¦b¤£¦Pªº¤À­¶!!
§Úµo²{³o¼Ë¦n¹³¨S¿ìªk«ü©w²Ä¤G¤À­¶ªº³¡¤À¡A½Ð°Ý¬O­þ¸Ì»Ý­n­×§ï©O??

TOP

¦^´_ 4# lichang
¤£¦Pªº¤u§@ªí³]©w¬O¤À¶}ªº...
Sheet1¥u¯à«ü©wSheet1¤WªºÀx¦s®æ½d³ò
Sheet2ªº½d³ò­n¦bSheet2³]©w...
Sheet2.PageSetup.PrintArea = Sheet2.Range("A1")

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD