Sub 選取多個工作表()
MsgBox "選取第一及第三個工作表"
Worksheets(1).Select
Worksheets(3).Select False
End Sub作者: Hsieh 時間: 2010-5-10 10:02
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 "奇數頁被選取"
Sheets(Ay).Select
MsgBox "偶數頁被選取"
End Sub作者: HUNGCHILIN 時間: 2010-5-15 22:11
