ªð¦^¦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µL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD