作者:乔山办公网日期:
返回目录:excel表格制作
看了一下Excel的工作表隐藏功能,隐藏可以批量进行,取消隐藏只能一个一个手动取消。
因此想隐藏哪些还是仔细考虑好再隐藏吧
在工作表标签上知单击右键道
查找代码
代码窗口粘贴下版面的VBA代码
sub 取消隐藏
for each sh in worksheets
sh.visible=true
next
end sub
然后按F5执行代权码
按键盘上的Alt+F11,调出VBE对话框,然后双击左面的任百何一度个工作表的名称,然后将下列代码粘贴进去。然后点击工具栏上的绿色按钮运行一次内即可。
Sub unhide()
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub
如果我的回答容没能帮助您,请继续追问。
有些语句没有用,简化如下:
Sub 取消所有隐藏工作表()
Dim i%
For i = 1 To Sheets.Count
Sheets(i).Visible = ture
Next i
End Sub