一键显示所有工作表

一个简单的小玩意

有的人喜欢把表藏啊藏

为了显示它点来点去

烦！

为了解决这个烦恼

就写了这个小玩意

懒人追求

简单粗暴

按ALT+F11进VBE

代码如下

Sub 表全显示()‘显示所有表

    Dim sh As Worksheet

    For Each sh In Sheets

        sh.Visible = 1

    Next

End Sub

运行一下，KO.

可以弄个按钮