这是我刚刚为您编写的一些顶级代码...
Public Enum ToggleSheets
Show = 1
Hide = 2
Toggle = 3
End Enum
Sub ToggleSheets(Optional ByVal startIndex As Integer = 1, Optional ByVal StopIndex As Integer = 0, Optional ByVal Toggle As Integer = Toggle)
If StopIndex = 0 Then StopIndex = ThisWorkbook.Sheets.Count
For i = startIndex To StopIndex
Select Case Toggle
Case Show
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Case Hide
ThisWorkbook.Sheets(i).Visible = xlSheetHidden
Case Toggle
If ThisWorkbook.Sheets(i).Visible = 0 Then
ToggleSheets i, i, Show
Else
ToggleSheets i, i, Hide
End If
End Select
Next
End Sub
示例调用:
ToggleSheets , , hide'hides all sheets
ToggleSheets 1,5, show 'displays first 5 sheets.
togglesheets workbooks.count - 9, , show ' shows last 10 sheets