- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 245
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-11
|
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 |
|