ªð¦^¦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

¦^´_ 2# rouber590324


    ¤j¤j ¤£¥Î§@­W¤u°Ú


GetChoice = Left(Cells(1, F).Address(0, 0) , Len( Cells(1, F).Address(0, 0) ) - 1)

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD