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

[µo°Ý] ½Ð±Ð~¤u§@ªí©R¦W

¦^´_ 2# jarodz
¦P¤@­Óworkbook¤UªºsheetÀ³¸Ó¬O¤£¯à¨ú¤@¼Ëªº¦W¦r¡A   ³o¬O¹ïªº
  1. Sub Ex()
  2.     Dim E
  3.     For Each E In Sheets
  4.         E.Name = E.Cells(1).Text
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

¦P¤@­Óworkbook¤UªºsheetÀ³¸Ó¬O¤£¯à¨ú¤@¼Ëªº¦W¦r¡A
¥Îworksheets(1).name = XXXX ´N¥i¥H§ïsheet ªº¦W¦r¤F¡C

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD