1:下面代码要求这两工作表不能打印 但是运行发生错误
Sub 打印签收()
For Each Sh In Worksheets
If Sh.Name <> "签收单(不能删除)" Or "模板" Then
Sh.PrintOut Copies:=2
End If
Next
End Sub
2:下面代码要求这两工作表不能删除, 其它全部删除
Sub 批量删除签收单2()
Application.DisplayAlerts = False
For Each Sh In Worksheets
If Sh.Name <> "签收单(不能删除)" Or "模板" Then
sh.Delete
end if
Next
Application.DisplayAlerts = True
End Sub
3:以下打码为什么删除的工作表都是 隔一个删除一个 总是保留一部分工作表
Sub 批量删除签收单2()
Application.DisplayAlerts = False
For i = 3 To Worksheets.Count
Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub
谢谢啊,非常正确,没有问题了。
追答希望能帮到您,同时也希望得到您的认可。不要忘了采纳答案哟。呵呵