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

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

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

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

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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD