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

½Æ»s¶K¤W¹Ï¤ùªº¿ù»~°T®§???

¦^´_ 2# singo1232001


    ÁÂÁ«e½ú,½Ð±Ð«e½ú³oºI¹Ï¶K¤W¸ò®É¶¡¦³¤°»òÃö«Y?
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 4# singo1232001


    ÁÂÁ«e½ú«ü¾É
«á¾Ç¾Ç²ß¤è®×¦p¤U,½Ð«e½ú¦A«ü¾É
¸ê®Æªí:


µ²ªGªí:


Option Explicit
Sub test()
Dim xR As Range
Set xR = [¤u§@ªí2!B2]: Application.Goto xR
With Sheets("¤u§@ªí1"): Range(.[A1], .Cells(2, 12)).CopyPicture: End With
Sheets("¤u§@ªí2").Paste: xR.Activate: Application.Wait Now + TimeValue("00:00:01")
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD