应用场景
下图工作簿中一共有七张工作表，目前只显示了第一张工作表“表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”六个工作表标签，代表被隐藏的工作表已经全部被显示出来了。
本文所有内容来自互联网，如有侵权/不实内容请联系我们删除，联系邮箱postusb@foxmail.com
发布者：缘分，转转请注明出处：https://www.bjxdyg.com/life/271987.html
