ªð¦^¦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 Ãþ¦üªº¤è¦¡¶Ü??

ÁÂÁÂ!!

¦^´_ 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

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD