按关键词隐藏表格

sulli112

当表格名字不包含中学or小学，或者辞职，全部隐藏，要怎么操作呢？

shiruiqiang

Sub cs()
Dim sht As Worksheet
Sheets("小学").Select
For Each sht In Sheets
If sht.Name = "中学" Or sht.Name = "小学" Then
sht.Visible = xlSheetVisible
Else
sht.Visible = xlSheetHidden
End If
Next
End Sub

sulli112

shiruiqiang 发表于 2021-3-31 10:02
Sub cs()
Dim sht As Worksheet
Sheets("小学").Select

1. Sub 特定表隐藏()
   
2.   Dim i As Integer, x As Integer
   
3.   x = Worksheets.Count  '统计所有表的数量
   
4.   For i = 1 To x
   
5.    If Sheets(i).Name Like "*小学*" Or Sheets(i).Name Like "*辞职*" Then   '对表的名称进行判断，like代表模糊匹配
   
6.    Sheets(i).Visible = -1      '-1代表显示
   
7.    Else
   
8.    Sheets(i).Visible = 0       '0代表相对隐藏，2代表绝对隐藏
   
9.    End If
   
10.   Next
    
11. End Sub

复制代码

我去百度找到类似的了，你那个只能是表名=中学or小学才不隐藏，而我想要的是表名包括某特定字符就不隐藏的，但是还是谢谢您的帮助