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

[µo°Ý] ¤£¦P°Ï°ì¦C¦L¿ï¾Ü

[µo°Ý] ¤£¦P°Ï°ì¦C¦L¿ï¾Ü



¦U¦ì¤j¤j
¨¯­W¤F
·Q½Ð°Ý¦p¦ó¥Î«ö¶s¨Ó±±¨î¦L¥X°Ï°ì
¦]¬°¤§«á³øªí·|¦³«Ü¦h¹Ï¦b¦P¤@±iªí¸Ì­±
©Ò¥H·Q¥Î«ö¶s¨Ó¿ï¾Ü¦C¦L½d³ò

¦³ª¦¹L¤åÃþ¦ü¥ÎPrintArea ªº¨ç¼Æ
¦ý¥i¯à¬O¤p§Ì¹ïµ{¦¡¨S¦³«Ü¼ô±x
«ç»ò¼g³£¿ù»~
·Q½Ð°Ý¤j¤j¸Ó¦p¦ó¼g©O?
³Â·Ð¤F

ªþ¤WÀɮצp¤U
¬¡­¶Ã¯1.zip (20.97 KB)
¤£·|EXCALLªº²Â³J

Sub ¦C¦L°Ï_Aªí()
Range("A1:D9").Name = "Print_Area"
End Sub

Sub ¦C¦L°Ï_Bªí()
With ActiveSheet.Shapes("¸ê®Æ®w¹Ïªí 1")
     Range(.TopLeftCell, .BottomRightCell).Name = "Print_Area"
End With
End Sub

TOP

¦^´_ 2# ­ã´£³¡ªL

ÁÂÁ¤j¯«~
­è­è´ú¸Õ¤F¤@¤U¥¿¬O§Ú·Q­nªº
·P®¦±z
¤£·|EXCALLªº²Â³J

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