[已解决]求解，除 Sheet2 和 sheet4 以外所有工作表深度隐藏的VBA

ccc919

如题，知道要用到循环但是具体不知道怎么写？

Sub 隐藏所有工作表()
    Dim MySht As Object
    For Each MySht In Sheets
        MySht.Visible = 2
    Next
End Sub

怎么改才能变成 sheet2和sheet4 工作表不隐藏其他工作表全部隐藏？
先谢谢了

最佳答案

月排行榜 / 总排行榜

雪舞子

2015-2-9 07:48

1. Sub 隐藏所有工作表()
   
2.     Dim MySht As Object
   
3.     For Each MySht In Sheets
   
4.         If MySht.Name <> "Sheet2" And MySht.Name <> "Sheet4" Then MySht.Visible = 2
   
5.     Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

youfang

if MySht.name <>……

雪舞子

1. Sub 隐藏所有工作表()
   
2.     Dim MySht As Object
   
3.     For Each MySht In Sheets
   
4.         If MySht.Name <> "Sheet2" And MySht.Name <> "Sheet4" Then MySht.Visible = 2
   
5.     Next
   
6. End Sub

复制代码