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

[µo°Ý] «ü©wAÄæ²Ä1¦C¦³¸ê®Æ¤§½d³ò³]©w¦C¦L½d³ò°ÝÃD½Ð±Ð

[µo°Ý] «ü©wAÄæ²Ä1¦C¦³¸ê®Æ¤§½d³ò³]©w¦C¦L½d³ò°ÝÃD½Ð±Ð

DEAR ALL ¤j¤j'
1.»Ý¨D : «ü©wAÄæ²Ä1¦C¦³¸ê®Æ¤§½d³ò³]©w¦C¦L½d³ò°ÝÃD½Ð±Ð
1.1¦p¤U AÄæ¥i¥Î R = Sheet1.[A65536].End(xlUp).Row §ä¨ì³Ì«á¤@¦C¤§­È¥N¤J
1.2¦ý ²Ä1¦C¥Î  F = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column() §ä¨ì¬O¼Æ¦r
  1.1.2 ½Ð±Ð ActiveSheet.PageSetup.PrintArea = "$A$1:$I" & R    ¤§ I¦p¦ó³B²z??
1.3 ·Ð¤£§[½ç±Ð. THANKS*10000

Sub A()
Sheet1.Select
Range("A1").Select
R = Sheet1.[A65536].End(xlUp).Row
F = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I" & R
Range("A1").Select
End Sub
ù

DEAR  ALL ¤j¤j
1.¤p§Ì¥Ø«e¥Î¦p¤U¤è¦¡«j±j§JªA(¥ý¼g¨ìR).¦ý­n¼g A-IV ¤Óªø°Õ
GetChoice = Choose(F, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "", "Q", "R")

Sub A()
Sheet1.Select
  Range("A1").Select
  R = Sheet1.[A65536].End(xlUp).Row
  F = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column()
  GetChoice = Choose(F, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "", "Q", "R")
  ActiveSheet.PageSetup.PrintArea = "$A$1" & GetChoice & R
Range("A1").Select
End Sub
ù

TOP

DEAR jackyq ¤j¤j
«D±`·PÁ±z.OK°Õ THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD