如何批量取消隐藏的工作表

fanlan · 发表于 2008-12-30 14:19

引用:
原帖由 yuanzhuping 于 2008-12-22 15:52 发表

2003版本将Visible设置为xlSheetVeryHidden后是不能通过格式-工作表-取消隐藏的，是在属性窗口将Visible设置为2而不是0。

我按这种方式隐藏了很多表，是一个一个隐藏的，现在我又想取消隐藏，有没有简单的方法能一次性取消隐藏啊，因为一个一个的取消很浪费时间啊

6688 · 发表于 2008-12-30 17:53

sub kk()
For i = 1 To Sheets.Count
Sheets(i).Visible = -1
Next i
end sub

fanlan · 发表于 2008-12-31 12:01

可以指取消隐藏了，但有不知道怎么选择性取消，因为一运行就是所有的都取消隐藏了

maditate · 发表于 2008-12-31 12:06

可以参考下贴2楼5楼的，不过下贴是选择性隐藏，你要的是取消隐藏，原理是一样的，自己改一下吧。

http://club.excelhome.net/viewth ... p;page=1#pid2451018

gyzzf · 发表于 2008-12-31 13:07

原帖由 fanlan 于 2008-12-31 12:01 发表
可以指取消隐藏了，但有不知道怎么选择性取消，因为一运行就是所有的都取消隐藏了

Sub zf() '批量取消工作表隐藏
Dim sh As Object
For Each sh In Worksheets
      If sh.Name <> "1" Then '加判断条件进行选择性取消隐藏
      sh.Visible = -1
      End If
Next
End Sub

fanlan · 发表于 2008-12-31 16:27

谢谢各位，对编程不了解，还真不好学VBA啊

wx-x · 发表于 2010-8-5 16:43

非常感谢，太好了

www505 · 发表于 2011-8-12 15:24

太好了，谢谢。

cxwsky · 发表于 2011-12-13 13:59

二楼的，厉害！谢谢了！哈哈

laihuibest · 发表于 2012-2-14 11:27

6688 发表于 2008-12-30 17:53
sub kk()
For i = 1 To Sheets.Count
Sheets(i).Visible = -1

这个很好用，刚才学习了，谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 如何批量取消隐藏的工作表

回复 2楼 6688 的帖子

回复 2楼 6688 的帖子