首页 > 其他 > 详细

excel批量取消隐藏工作表

时间:2015-10-26 15:18:18      阅读:199      评论:0      收藏:0      [点我收藏+]

 按下"Alt+F11"键,在打开的"Microsoft Bisual Basic"窗口中,选择"插入——模块".,复制下面的代码,按F5键运行,就完成了批量取消隐藏工作表。

Sub 批量取消隐藏工作表()  

Dim i As Integer    

For i = 1 To Worksheets.Count  

     Worksheets(i).Visible = True   

  Next End Sub

批量取消隐藏工作表代码二:

Sub 批量取消隐藏工作表()

  For Each AA In Sheets  

   AA.Visible = True  

Next End Sub

excel批量取消隐藏工作表

原文:http://www.cnblogs.com/yuwenfeng/p/4911111.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!