VBA实现删除任意工作表

删除工作表

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

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

上菜:

 
  1. Sub 删除工作表()   
  2. ‘   
  3. ‘ 删除工作表 Macro   
  4. ‘ 宏由 Kael.Z 录制,时间: 2011/5/29  
  5. Dim ws As Worksheet   
  6. Dim str As String   
  7. str = Application.InputBox(prompt:="输入需要删除的工作表:", Title:="删除工作表", Default:="sheet1", Type:=2)   
  8. On Error GoTo back   
  9. Set ws = Worksheets(str)   
  10. Application.DisplayAlerts = False   
  11. ws.Delete   
  12. Application.DisplayAlerts = True   
  13. Exit Sub   
  14. back:   
  15. MsgBox "您要删除的工作表不存在!"  
  16. End Sub   

运行界面

 

 

 

 

 

 

 

 

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

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

 

 

 

 

 

 

 

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

分享到: