加载中…
个人资料
阿呆
阿呆
  • 博客等级:
  • 博客积分:0
  • 博客访问:5,508
  • 关注人气:20
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

【Excel】中如何批量取消隐藏的工作表

(2013-01-23 10:45:27)
标签:

杂谈

分类: 【Excel】
    如果在一个工作簿里隐藏了很多个工作表,想一次性显示出来,就需要用到。听起来麻烦,实际简单。不妨按我说的操作试试。
    第一步、打开你的工作簿(自然,这个工作簿隐藏了很多个工作表的,你想一次性显示他们)。
    第二步、按ALT+F11(或者点击工具--Visual Basic编辑器),出现一个很难看得懂的界面。别急着退出。慢慢跟我走。看看左边,有两个框里都有英文字母,我们看上边一个框里(下面的那个框框不管它)。拉动滚动条,看这个框的最上边,就是你当前文件的名称,实际它的下面就是若干个工作表的名称。
    第三步、随意双击一个,就会在右边黑乎乎的窗口里出现一个小窗口。这个窗口的标题就是你的文件名吧。我们现在就要在这个小窗口里写东西呢。写什么呢?看第四步。
    第四步、在这个窗口的空白处输入一组代码。代码如下:
    Sub aa()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If Not sh.Visible = xlSheetVisible Then
            sh.Visible = xlSheetVisible            
        End If
    Next sh
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub
    第五步、再按F5键即可全部显示。现在看看你隐藏的工作表,应该都滚出来了。
    、若你打开宏时,提示宏被禁用。解决办法:1、宏--安全性--调至最低。2、重启EXCEL,提示启用宏。点击启用宏3、打开菜单工具位置选自己的工作薄执行。

0

阅读 收藏 喜欢 打印举报/Report
后一篇:青椒炒肉
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有