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

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

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

¦U¦ì¤j¤j¦n
§Ú­n°}¦C30­Ósheets ³o¼Ë¥´¤U¥h¥i¯à·|«Üªø...
½Ð°Ý¥H¤U¸Ó¦p¦ó²¤Æ
  1. Sub TEST()

  2. Dim x%

  3. Dim bx(30) As String
  4.    
  5.     For x = 1 To Sheets.Count
  6.       bx(x) = Sheets(x).Name
  7.     Next x
  8.    
  9.      If Sheets.Count = 2 Then Sheets(Array(bx(1), bx(2))).Select
  10.      If Sheets.Count = 3 Then Sheets(Array(bx(1), bx(2), bx(3))).Select
  11.      If Sheets.Count = 4 Then Sheets(Array(bx(1), bx(2), bx(3), bx(4))).Select
  12.      If Sheets.Count = 5 Then Sheets(Array(bx(1), bx(2), bx(3), bx(4), bx(5))).Select
  13.      If Sheets.Count = 6 Then Sheets(Array(bx(1), bx(2), bx(3), bx(4), bx(5), bx(6))).Select
  14.       .
  15.       .
  16.       .
  17.       .
  18.       .
  19.       .

  20.    
  21. End Sub
½Æ»s¥N½X

¦^´_ 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

¦^´_ 2# white945


    ÁÂÁ white945 ¦Ñ®vªº«ü¾É
¯uªºÂ²¤Æ¦n¦h
³o¤@¦æ §Ú¤£À´  ReDim Preserve sh(i - 1)
³o¥y¬O¤°»ò·N«ä

TOP

sheets´N¬O¤u§@ªí°}¦Cª«¥ó
¿ï¤¤©Ò¦³¤u§@ªí¥u¶· ¡Gsheets.select §Y¥i
1

µû¤À¤H¼Æ

    • Hsieh: ÀY¸£²M´·¡A¨S³Q¥DÃD»~¾Éª÷¿ú + 2

TOP

¦^´_ 3# alex520188
ReDim ¥Î¨Ó­«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡¡C
Preserve ¿ï¾Ü©Ê¤Þ¼Æ¡C·í§ïÅܭ즳°}¦C³Ì«á¤@ºûªº¤j¤p®É¡A¤´µM«O¦³­ì¨Óªº¸ê®ÆªºÃöÁä¦r¡C

TOP

¦^´_ 4# chin15


    ­ì¨Ó§Ë¤F¤@¤j¦ê ¥u»Ý­n sheets.select
   chin15 ¦Ñ®v·PÁ§A
   §Ú¤S¤W¤F¤@½Ò¡C

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD