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

[µo°Ý] ¦p¦ó§â¾ã±i³ø§iªí§tCheckBox¿ï¶µ¤@¦P½Æ»s¸ê®ÆÂà¼g¨ì¥t¤@¤u§@ªí

¦p¦ó§â¾ã±i³ø§iªí§tCheckBox¿ï¶µ¤@¦P½Æ»s¸ê®ÆÂà¼g¨ì¥t¤@¤u§@ªí
sillykin µoªí©ó 2013-9-12 20:24
  1.   With Sheets("³ø§iªí")
  2.     .Activate
  3.     .Copy After:=Sheets(Sheets.Count)
  4.   End With

  5.   With Sheets(Sheets.Count)
  6.     .Name = "½Æ»sªº³ø§iªí"
  7.   End With
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD