如何用VBA隐藏和取消隐藏工作表

如何用VBA隐藏和取消隐藏工作表呢？看一下具体 *** 作步骤吧。

材料/工具

VBA

方法

1/4

在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在d出的右键快捷菜单单击“查看代码”进入VBA编辑环境。

请点击输入图片描述

2/4

在任意一个模块的代码窗口中输入以下的代码

Sub xyf()

Sheet1.Visible = xlSheetHidden

End Sub

将光标定位于Sub 与End Sub 之间按下快捷键F5运行代码既可以将第一个工作表隐藏。

如果要将某个工作表取消隐藏可以使用如下的代码

Sub xyf()

Sheet1.Visible = xlSheetVisible

End Sub

通过修改工作表对象的Visible属性可以在隐藏和取消隐藏之间切换。

请点击输入图片描述

3/4

如果需要批量隐藏或者取消隐藏多个工作表可以使用如下的代码

Sub xyf()

'定义一个工作表变量对象

Dim oWS As Worksheet

For Each oWS In Excel.ThisWorkbook.Worksheets

'批量取消隐藏

oWS.Visible = xlSheetVisible

Next

End Sub

通过 For Each 。。。Next的循环遍历每一个工作表，通过对每一个工作表的Visible属性的设置可以实现批量取消隐藏或者批量隐藏工作表。

请点击输入图片描述

4/4

通过运行以上的代码模式批量隐藏工作表时会d出如下图所示的错误提示。是因为任意一个工作簿至少要有一个可见的工作表，不能所有工作表都隐藏，可以通过添加一些条件判断代码来解决。

请点击输入图片描述

rivate Sub CommandButton1_Click()；

If Me.Columns("B").Width = 0 Then；

Me.Columns("B").Hidden = False；

Me.Columns("D").Hidden = False；

Me.Columns("F").Hidden = False；

Else

Me.Columns("B").Hidden = True；

Me.Columns("D").Hidden = True；

Me.Columns("F").Hidden = True；

End If

Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。

该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。

由于微软Office软件的普及，人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率。

例如：通过一段VBA代码，可以实现画面的切换；可以实现复杂逻辑的统计（比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单）等。

---