[已解决]如何一次取消所有隐藏工作表

wuyanshan · 发表于 2014-10-22 14:02

大家下午好！EXCEL表格在工作表标签外右键取消隐藏的工作表，一次只能取消一个，如何一次取消所有被隐藏的工作表？请大家支招，谢谢！

最佳答案

qh8600

2014-10-22 14:15

wuyanshan 发表于 2014-10-22 14:07
您好！请问如何操作呀？谢谢！

Sub demo()
Dim i As Worksheet
For Each i In ThisWorkbook.Worksheets
i.Visible = xlSheetVisible
Next i
End Sub

把代码加入工作簿，然后运行宏

zyouong · 发表于 2014-10-22 14:03

wuyanshan · 发表于 2014-10-22 14:07

zyouong 发表于 2014-10-22 14:03
VBA

您好！请问如何操作呀？谢谢！

qh8600 · 发表于 2014-10-22 14:15

wuyanshan 发表于 2014-10-22 14:07
您好！请问如何操作呀？谢谢！

Sub demo()
Dim i As Worksheet
For Each i In ThisWorkbook.Worksheets
i.Visible = xlSheetVisible
Next i
End Sub

把代码加入工作簿，然后运行宏

zyouong · 发表于 2014-10-22 14:22

取消隐藏.rar (7.13 KB, 下载次数: 57)

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