- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 148
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-6-19
               
|
2#
發表於 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 |
|
發表於 2010-5-9 19:25
| 
