返回列表 上一主題 發帖

[分享] 選取多個工作表

[分享] 選取多個工作表

Sub 選取多個工作表()
    MsgBox "選取第一及第三個工作表"
    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 "奇數頁被選取"
Sheets(Ay).Select
MsgBox "偶數頁被選取"
End Sub
學海無涯_不恥下問

TOP

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候,卻被這種隨心所欲的自由蒙蔽,虛擲時光而毫無覺知。
返回列表 上一主題