请教如何一键批量隐藏指定工工作表

wcj6376tcp

以下代码执行后没有实现任何隐藏，请大神优化，谢谢


Sub 隐藏人事报表()   '人事                                            '备用
Application.ScreenUpdating = False

        ThisWorkbook.Sheets("标准").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("公积金汇总表").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("缴费工资申报数据").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("公积金汇总表").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("公积金基数调整").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("公积金基数明细").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("岗位薪级标准").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("薪级表模板").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("薪级表自动生成").Visible = xlSheetVeryHidden
        ThisWorkbook.Sheets("标准").Visible = xlSheetVeryHidden
       ThisWorkbook.Sheets("身份证数据库").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub

wcj6376tcp

已搞定
Sub 隐藏人事报表()   '人事
Dim ws As Worksheet '备用
Application.ScreenUpdating = False
For Each ws In Worksheets(Array("标准", "电子模板", "公积金汇总表", "缴费工资申报数据", "公积金汇总表", "公积金基数调整", "公积金基数明细", "岗位薪级标准", "薪级表模板", "薪级表", "薪级表自动生成", "身份证数据库", "基金", "基础表", "工资变动审批表", "事业工资报批表")) '人事
    If ws.Visible = True Then
    ws.Select
    ws.Visible = False
    End If
Next
Application.ScreenUpdating = True
Sheets("首页").Activate
Range("P1").Select
End Sub

lhj323323

wcj6376tcp 发表于 2024-2-1 21:13
已搞定
Sub 隐藏人事报表()   '人事
Dim ws As Worksheet '备用

学习了。                                    

sj15627581616

可以不通过循环一次性选择多个工作表 然后隐藏

ykcbf1100

参与一下。。。

1. Sub 指定工作表隐藏或显示()
   
2.     For Each sh In Worksheets(Array("Sheet2", "Sheet3"))
   
3.         sh.Visible = 0      '隐藏
   
4.     '    sh.Visible = -1    '显示
   
5.     Next
   
6. End Sub
   

复制代码

ykcbf1100

指定工作表隐藏或显示

大灰狼1976

普通隐藏可以这样：
Worksheets(Array("Sheet2", "Sheet3", "Sheet4")).Visible = 0
深度隐藏或者取消隐藏就要遍历。