表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

应用场景下图工作簿中一共有七张工作表 , 目前只显示了第一张工作表“表1”,还有六张工作表“表2”至“表7”被隐藏 。这篇文章就跟大家分享如何利用VBA代码将隐藏的六张工作表批量显示出来 。

表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

文章插图
操作步骤1.单击窗口上方“开发工具”选项卡“代码”功能组中的“Visual Basic”按钮,打开VBA编辑器窗口 。
表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

文章插图

表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

文章插图
2.执行“插入”—“模块”命令,此时在窗口左侧列表中会增加一个用于存放编写代码的“模块1”,同时在右侧会看到模块1(代码)编辑窗口 。
表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

文章插图

表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

文章插图
3.在模块1(代码)编辑窗口中输入如下代码:
Sub 取消工作表隐藏()
Dim sht As Worksheet
'定义变量
For Each sht In Worksheets
'循环工作簿里的每一个工作表
sht.Visible = xlSheetVisible
'将工作表的状态设置为非隐藏
Next
End Sub
表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

文章插图
4.代码输入完毕后,单击VBA编辑器窗口上方的“运行子过程/用户窗体”按钮(方向向右的绿色三角形)运行代码 。
表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

文章插图
【表格被隐藏的弄不出来 隐藏表格怎么全部显示出来】5.返回工作表,可见窗口下方多了“表2”到“表7”六个工作表标签,代表被隐藏的工作表已经全部被显示出来了 。
表格被隐藏的弄不出来 隐藏表格怎么全部显示出来

文章插图
#职场技能#

    推荐阅读