[已解决]全部取消隐藏

adan_bai

我写了个宏，出错了。请老师们帮我看看
取消隐藏.zip (6.86 KB, 下载次数: 10)

2012-12-27 21:52 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zhoucs00

2012-12-27 22:01

1. Sub 取消隐藏()
   
2. Dim sht As Worksheet
   
3. For Each sht In Worksheets
   
4.    sht.Visible = True
   
5. Next sht
   
6. End Sub

复制代码

试下这段代码，之前得定义sht为工作表对象才可以的

跳转到最佳答案楼层

zhoucs00

1. Sub 取消隐藏()
   
2. Dim sht As Worksheet
   
3. For Each sht In Worksheets
   
4.    sht.Visible = True
   
5. Next sht
   
6. End Sub

复制代码

试下这段代码，之前得定义sht为工作表对象才可以的

hannanrenjie

学习了，复制下来试了一下，很好用。