Question

求修改以下3个 excel VBA代码

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

Answer 1

第1、2段代码中的
If Sh.Name <> "签收单(不能删除)" Or "模板" Then

改为
If Sh.Name <> "签收单(不能删除)" Or Sh.Name <> "模板" Then

第3段代码中的
For i = 3 To Worksheets.Count

改为
For i = Worksheets.Count To 3 Step -1

试试吧。

追问

谢谢啊，非常正确，没有问题了。

追答

希望能帮到您，同时也希望得到您的认可。不要忘了采纳答案哟。呵呵