[已解决]简化代码

dyzx

请各位老师怎样简化下列一段代码，多谢。
Sub 清除座位表()
Dim sh As Worksheet
    For Each sh In Worksheets
        If sh.Name Like "*教室" Then
           Application.DisplayAlerts = False
           sh.Delete
        End If
    Next
    Application.DisplayAlerts = True
Dim shs As Worksheet
    For Each shs In Worksheets
        If shs.Name Like "*班" Then
           Application.DisplayAlerts = False
           shs.Delete
        End If
    Next
    Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

云影

2014-6-3 11:08

1. Sub 清除座位表()
   
2. Dim sh As Worksheet
   
3.     For Each sh In Worksheets
   
4.         If sh.Name Like "*教室" Or sh.Name Like "*班" Then
   
5.            Application.DisplayAlerts = False
   
6.            sh.Delete
   
7.         End If
   
8.     Next
   
9.     Application.DisplayAlerts = True
   
10. End Sub

复制代码

跳转到最佳答案楼层

云影

1. Sub 清除座位表()
   
2. Dim sh As Worksheet
   
3.     For Each sh In Worksheets
   
4.         If sh.Name Like "*教室" Or sh.Name Like "*班" Then
   
5.            Application.DisplayAlerts = False
   
6.            sh.Delete
   
7.         End If
   
8.     Next
   
9.     Application.DisplayAlerts = True
   
10. End Sub

复制代码

开心妙妙

看看这样能不能达到你想要的效果

1. Sub 清除座位表()
   
2.     Dim sh As Worksheet
   
3.     For Each sh In Worksheets
   
4.         If sh.Name Like "*教室" Or sh.Name Like "*班" Then
   
5.             Application.DisplayAlerts = False
   
6.             sh.Delete
   
7.         End If
   
8.     Next
   
9.     Application.DisplayAlerts = True
   
10. End Sub

复制代码

su45

嗯，一次判断就可以解决！

dyzx

云影老师：多谢你的支持。

海雨天风007

学习学习再学习