我的worksheets里有若干个sheet，我想全部隐藏
For i = 1 To Sheets.Count
Worksheets(i).Visible = xlSheetVeryHidden
Next i
我现在是用一个循环语句完成的，能不能用一个语句就完成啊？
excel中如何用vba隐藏所有sheet
答案:4 悬赏:80
解决时间 2021-02-22 12:00
- 提问者网友：曖昧情执
- 2021-02-21 15:14
最佳答案
- 二级知识专家网友：留下所有热言
- 2021-02-21 16:18
没有快捷的方法
全部回答
- 1楼网友：嗷呜我不好爱
- 2021-02-21 20:18
1
For i = 1 To Sheets.Count 这句最后面得加上减1 （-1）之类的，得至少留一个不隐藏的
Worksheets(i).Visible = xlSheetVeryHidden
Next i
2
你可以这样：
Applicion.screenupdating=false
For i = 1 To Sheets.Count-1
Worksheets(i).Visible = xlSheetVeryHidden
Next i
Applicion.screenupdating=true
- 2楼网友：摧毁过往
- 2021-02-21 19:31
sheet名称.visible=xlsheethidden,或者xlsheetveryhidden.帮助文件里有很清楚的解释
- 3楼网友：情窦初殇
- 2021-02-21 17:56
sub 宏1()
rows("2:19").select
selection.entirerow.hidden = true
end sub
你想隐藏多少，自己写
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯