[已解决]谁能帮我简化一下附件中的VBA代码？

qjsu

谁能帮我简化一下附件中的VBA代码？

最佳答案

月排行榜 / 总排行榜

zjdh

2013-4-12 13:24

Sub 新建工程表格()
    Dim I%, Y%, sh As Worksheet
    On Error GoTo 10
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Y = InputBox("请输入工程数量")
    For Each sh In Sheets
        If Not InStr("汇总表sj", sh.Name) > 0 Then
        If sh.Name * 1 > Y Then sh.Delete
        End If
    Next
    For I = Sheets.Count - 1 To Y
        Sheets("1").Copy Before:=Sheets(Sheets.Count)
        ActiveSheet.Name = I
    Next
    Sheets(1).Select
    ThisWorkbook.Save
10  Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

无聊的疯子

很多对像都是可以直接操作的,不需要  select 他们再操作

现在能做的优化也就差不多是这些吧,你先自己试试?

qjsu

无聊的疯子 发表于 2013-4-12 08:51
很多对像都是可以直接操作的,不需要  select 他们再操作

现在能做的优化也就差不多是这些吧,你先自己试试 ...

没有附件啊亲~~~~~~~~~~~~~~~

qjsu

无聊的疯子 发表于 2013-4-12 08:51
很多对像都是可以直接操作的,不需要  select 他们再操作

现在能做的优化也就差不多是这些吧,你先自己试试 ...

我能想到的优化都优化完毕了，剩下的不会了，我水平一般哈哈，大神帮弄一下呗，我对比着学习一下

无聊的疯子

qjsu 发表于 2013-4-12 09:30
没有附件啊亲~~~~~~~~~~~~~~~

我叫你自己试嘛，怎么会有附件给你呢！！

zjdh

你那
Y = InputBox("请输入工程数量")
还没考虑容错呐！
取消输入就出错！

qjsu

zjdh 发表于 2013-4-12 09:59
你那
Y = InputBox("请输入工程数量")
还没考虑容错呐！

是的，该加一段什么代码呢？

zjdh

Sub 新建工程表格()
    Dim I%, Y$, sh As Worksheet
    On Error GoTo 10
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Y = InputBox("请输入工程数量")
    For Each sh In Sheets
        If Not InStr("汇总表sj", sh.Name) > 0 And sh.Name <> "1" Then sh.Delete
    Next
    For I = 2 To Y
        Sheets("1").Copy Before:=Sheets(Sheets.Count)
        ActiveSheet.Name = I
    Next
    Sheets(1).Select
    ThisWorkbook.Save
10  Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

qjsu

zjdh 发表于 2013-4-12 10:37
Sub 新建工程表格()
    Dim I%, Y$, sh As Worksheet
    On Error GoTo 10

额 ，我那个代码弱爆了，~~~~~~~~~~~~~~~~~

qjsu

zjdh 发表于 2013-4-12 10:37
Sub 新建工程表格()
    Dim I%, Y$, sh As Worksheet
    On Error GoTo 10

代码有个小问题，就是当我发现新建的工程表格不够的时候，想再新建文档会删除以前已经新建的文档