VBA即用型代码手册之取消隐藏工作表及删除工作表

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA即用型代码手册之取消隐藏工作表及删除工作表

【分享成果，随喜正能量】喝茶是一项轻松愉快，很简单的事，先把水烧开，再加入茶叶，然后用适当的方式来喝，就是这么简单的动作，一种单纯的生活方式。。

第四章 工作表代码

Worksheet Codes

2 取消隐藏所有隐藏的工作表Unhide all Hidden Worksheets

Sub nzUnhideAllWorksheet() '取消隐藏所有隐藏的工作表

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

如果您想取消隐藏使用以前的代码隐藏的所有工作表，那么这里是该代码。

And if you want to un-hide all the worksheets which you have hide with previous code, here is the code for that.

• 本节内容参考程序文件：Chapter04.xlsm

3 删除除活动工作表之外的所有工作表Delete all but the Active Worksheet

Sub nzDeleteWorksheets() '删除除活动工作表之外的所有工作表

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

If ws.Name <> ThisWorkbook.ActiveSheet.Name Then

Application.DisplayAlerts = False

ws.Delete

Application.DisplayAlerts = True

End If

Next ws

End Sub

如果要删除除活动工作表以外的所有工作表，此宏对您很有用。运行此宏时，它会将活动工作表的名称与其他工作表进行比较，然后将其删除。

If you want to delete all the worksheets other than the active sheet, this macro is useful for you. When you run this macro it will compare the name of the active worksheet with other worksheets and then delete them.

• 本节内容参考程序文件：Chapter04.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：