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

[µo°Ý] ¦p¦ó¥ÎVBA½Æ»s¸ê®Æ¨ì«ü©w¦ì¸m?

¦^´_ 1# ie123456


    »yªk¦p¤U¨Ò¡G
  1. Set myCell = Application.InputBox(prompt:="½Ð¿ï¾ÜÀx¦s®æ©Î½d³ò", Type:=8)
  2. AA = myCell.Address
  3. Worksheets("¤u§@ªí1").Range("A1:D4").Copy Destination:=Worksheets("¤u§@ªí3").Range(AA)
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD