ªð¦^¦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 : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD