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

copyµù¸Ñ®æ¦¡ªº»yªk ??

¦^´_ 1# t8899
  1. Sub Ex()
  2.     With ActiveSheet
  3.         .[H1].Copy .[B1]
  4.         With .[B1]
  5.             .Value = ""
  6.             .NoteText "OK!"
  7.         End With
  8.     End With
  9.         
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD