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

[µo°Ý] ½Ð°Ý°}¦C¸Ó¦p¦ó²¤Æ

¦^´_ 1# alex520188
  1. Sub nn()
  2. Dim sh()
  3. For i = 1 To Sheets.Count
  4. ReDim Preserve sh(i - 1)
  5.   sh(i - 1) = Sheets(i).Name
  6. Next
  7. Sheets(sh).Select
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD