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

分享到:

11 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 学夫子

    VBA属于VB的一个东西?

    1. Kael.Z

      可以这么说,但有些区别

  2. 迷途动漫

    不是很会哎.努力努力!
    话说最近鸟哥要升级主题了.期待的说..

    1. Kael.Z

      呵呵,共同进步吧,鸟哥还没放出吧!

  3. 太子虹

    呵呵。。。来看看了,支持!

  4. 七七

    好好研究学习

  5. JaCall

    俺 来啦!

    1. Kael.Z

      好久没看到你的影子了~

      1. JaCall

        是啊!
        很久 没 出门 了!
        你 是 搞 软件 的?!

  6. 自贡SEO

    VB在Exel中应用还是蛮广泛的,我就是不怎么熟悉

    1. Kael.Z

      确实,属于二次开发了,可以慢慢学习啊