VBA实现删除任意工作表

删除工作表

好几天没写关于VBA之类的东西了，放松也够了，今天在家休息就来写写代码吧。

平时大家删除工作簿里的工作表都是选中该工作表，然后在菜单中选择删除，但是我们本着折腾的理念，今天就来写段宏吧！

上菜：

Sub 删除工作表()
‘
‘ 删除工作表 Macro
‘ 宏由 Kael.Z 录制，时间: 2011/5/29
Dim ws As Worksheet
Dim str As String
str = Application.InputBox(prompt:="输入需要删除的工作表：", Title:="删除工作表", Default:="sheet1", Type:=2)
On Error GoTo back
Set ws = Worksheets(str)
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
Exit Sub
back:
MsgBox "您要删除的工作表不存在！"
End Sub

运行界面

将上述代码另存为宏，在需要的时候按快捷键ALT+F8调用，随大爷您高兴删除哪个就哪个，只要输入工作表名称即可！

如果需要删除的工作表不存在则返回下图：运行界面2

代码是固定的，其实还可以利用窗体和控件按钮加以扩展，这里就不多说了，多了消化不掉，积食0.0