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

¸ê®Æ¶×¥X¥t¦s·sÀÉ

¦^´_ 1# hugh0620
  1. Private Sub CommandButton1_Click()
  2.     Sheets("Test").Copy
  3.     ActiveWorkbook.VBProject.VBComponents(2).Name = "Sheet1"
  4. End Su
½Æ»s¥N½X

TOP

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD