vba代码大全001：如何用vba批量隐藏或显示工作表？ |
您所在的位置：网站首页 › excel中怎么批量隐藏 › vba代码大全001：如何用vba批量隐藏或显示工作表？ |
|
vba代码大全001：如何用vba批量隐藏或显示工作表？
2017年1月8日
作者：水星Excel
6,228 次浏览
暂无评论
用vba隐藏或显示工作表是工作表对象的Visible属性控制的。 当Visible属性的值为xlSheetHidden时隐藏工作表（可以用右键取消隐藏来显示），当值为xlSheetVeryHidden时为深度隐藏工作表（无法用右键取消隐藏来显示），当值为xlSheetVisible时为取消隐藏工作表。 当拿到一个excel文件，里面有很多工作表隐藏了，需要取消隐藏时，可以使用如下的vba代码： Sub 批量取消隐藏工作表() 'QQ：1722187970，微信:xycgenius,公众号:水星excel Dim oWK As Worksheet Dim oWB As Workbook Set oWB = Excel.ActiveWorkbook For Each oWK In oWB.Worksheets oWK.Visible = xlSheetVisible Next End Sub
当要对一个excel文件内的多个工作表进行批量隐藏时，需要注意的是由于每个工作簿至少需要显示1个工作表，所以没有办法隐藏所有的工作表。 以下是批量隐藏工作表的vba代码： Sub 批量隐藏工作表() 'QQ：1722187970，微信:xycgenius,公众号:水星excel Dim oWK As Worksheet Dim oWB As Workbook Set oWB = Excel.ActiveWorkbook For Each oWK In oWB.Worksheets '至少要显示1个工作表 If oWK.Name = "Sheet1" Then oWK.Visible = xlSheetVisible Else oWK.Visible = xlSheetHidden End If Next End Sub Sub 批量深度隐藏工作表() 'QQ：1722187970，微信:xycgenius,公众号:水星excel Dim oWK As Worksheet Dim oWB As Workbook Set oWB = Excel.ActiveWorkbook For Each oWK In oWB.Worksheets '至少要显示1个工作表 If oWK.Name = "Sheet1" Then oWK.Visible = xlSheetVisible Else oWK.Visible = xlSheetVeryHidden End If Next End Sub 其它相关文章推荐：如何用vba调整word表格的行高、列宽？如何用vba获取word文档中的表格数量?如何用vba给word新增、插入表格？如何用vba批量删除word文档中的表格？如何用vba在工作表中新建图表？如何用vba删除工作表中的所有图表？ 分类 : VBA , VBA 基础知识 , VBA代码大全 标签 : vba批量显示工作表 , vba批量隐藏工作表 , Visible , 隐藏工作表声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |