[¤À¨É] ¿ï¨ú¦h­Ó¤u§@ªí

Min

Sub ¿ï¨ú¦h­Ó¤u§@ªí()
    MsgBox "¿ï¨ú²Ä¤@¤Î²Ä¤T­Ó¤u§@ªí"
    Worksheets(1).Select
    Worksheets(3).Select False
End Sub

Hsieh

Sub Sel_Sheet()
Dim Sh As Worksheet, Ar(), Ay(), s%, x%
For Each Sh In Sheets
  If Sh.Index Mod 2 = 1 Then
Sh.Tab.ColorIndex = 3
   ReDim Preserve Ar(s)
    Ar(s) = Sh.Name
    s = s + 1
    Else
    Sh.Tab.ColorIndex = 6
    ReDim Preserve Ay(x)
    Ay(x) = Sh.Name
    x = x + 1
  End If
Next
Sheets(Ar).Select
MsgBox "©_¼Æ­¶³Q¿ï¨ú"
Sheets(Ay).Select
MsgBox "°¸¼Æ­¶³Q¿ï¨ú"
End Sub

HUNGCHILIN

¤u§@ªí«OÅ@ª¬ºA