ªð¦^¦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 : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD