Execl 隐藏所有Sheet (转)

工作簿中隐藏了大量的工作表,一个一个取消隐藏很慢很麻烦,有没有快速取消隐藏的方法?
自己找到答案了:
第一步、打开你的工作簿(自然,这个工作簿隐藏了很多个工作表的,你想一次性显示他们)。
第二步、按ALT+F11(或者点击工具-宏-Visual Basic编辑器),出现vb编辑器界面。看左边,有两个框里都有英文字母,看上边一个框里(下面的那个框框不管它)。拉动滚动条,看这个框的最上边,就是你当前文件的名称,实际它的下面就是若干个工作表的名称。
第三步、随意双击一个工作表,就会在右边黑乎乎的窗口里出现一个小窗口。这个窗口的标题就是你的文件名。我们现在就要在这个小窗口里写段代码。写什么呢?看第四步。
第四步、在这个窗口的空白处输入一组代码。代码如下:复制进去即可
Sub quxiao() 
For Each i In Sheets 
 i.Visible = -1 
Next 
End Sub

第五步、Alt+F11回到Excel ,
第六步、Alt+F8,找到quxiao宏,选中,点击运行,ok,都显示了,保存一下即可。


按键盘上的Alt+F11,调出VBE对话框,然后双击左面的任何一个工作表的名称,然后将下列代码粘贴进去。然后点击工具栏上的绿色按钮运行一次即可。

Sub unhide()
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub搜索

追问
异曲同工。
回答
主要是写代码并且弄出图片耽误了点时间,呵呵,结果自己解决了
追问
没关系,好评给你。不过没找到你说的“工具栏上的绿色按钮”
回答

图片的正中央位置,看到么,绿色的三角,就是运行按钮

 

猜你喜欢

转载自frank1998819.iteye.com/blog/2022569