隐藏或显示工作簿中的所有工作表

隐藏或显示工作簿中的所有工作表

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参-

如果要隐藏工作簿中除活动工作表外的所有工作表，代码可以定为：

Sub 隐藏活动工作表外的所有工作表() Dim Sht As Worksheet For Each Sht In Worksheets If Sht.Name <> ActiveSheet.Name Then Sht.Visible = False End If Next ShtEnd Sub

如果要显示工作簿中所有已经隐藏的工作表，代码可以写为：

Sub 显示已经隐藏的工作表() Dim Sht As Worksheet For Each Sht In Worksheets Sht.Visible = True Next ShtEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。