ªð¦^¦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 : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD