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

°ÊºA¸ê®Æ½d³ò ¦WºÙ©w¸q

¦^´_ 4# ciboybj
  1. Sub ex()
  2. Dim Sh As Worksheet
  3. For Each Sh In Sheets '©Ò¦³¤u§@ªí°j°é
  4.    With Sh
  5.       ActiveWorkbook.Names.Add .Name, .UsedRange '¥H¤u§@ªí¦WºÙ¬°¦W¡A©Ò¦³¸ê®Æ¬°½d³ò¡A·s¼W©w¸q¦WºÙ
  6.    End With
  7. Next
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD