[已解决]在第一个工作表后新建工作表,下面代码对吗?谢谢

hcy1185

Worksheets.Add(after:=Worksheets(1)).Name = "新工作表" '在第一个工作表后新建工作表

最佳答案

月排行榜 / 总排行榜

爱疯

2014-11-10 11:12

Sub test()
    Dim flag As Boolean
    Dim sh As Worksheet
    flag = False
    For Each sh In ThisWorkbook.Sheets    '遍历当前工作薄中所有的工作表
        If sh.Name = "分施工单位统计进尺" Then flag = True: Exit For
    Next sh
    If flag = False Then Worksheets.Add(after:=Worksheets(1)).Name = "分施工单位统计进尺"    '在第一个工作表后新建工作表
    MsgBox "继续运行以后的代码"
End Sub

跳转到最佳答案楼层

爱疯

'Sheets.Add after:=Sheets(1)
Sheets.Add(after:=Sheets(1)).Name = "abc"

爱疯

是对的，试试不就知道对不对了吗

hcy1185

爱疯 发表于 2014-11-10 10:32
是对的，试试不就知道对不对了吗

请版主看看一段代码怎么修改?目的:如果当前工作簿有"分施工单位统计进尺"工作表,就不新建继续运行以后的代码,否则退出循环不再新建啦
For Each sh In ThisWorkbook.Sheets '遍历当前工作薄中所有的工作表
    If sh.Name = "分施工单位统计进尺" Then
        Exit For     '退出遍历
    Else
        Worksheets.Add(after:=Worksheets(1)).Name = "分施工单位统计进尺" '在第一个工作表后新建工作表
    End If
Next sh
......

爱疯

Sub test()
    Dim flag As Boolean
    Dim sh As Worksheet
    flag = False
    For Each sh In ThisWorkbook.Sheets    '遍历当前工作薄中所有的工作表
        If sh.Name = "分施工单位统计进尺" Then flag = True: Exit For
    Next sh
    If flag = False Then Worksheets.Add(after:=Worksheets(1)).Name = "分施工单位统计进尺"    '在第一个工作表后新建工作表
    MsgBox "继续运行以后的代码"
End Sub

hcy1185

爱疯 发表于 2014-11-10 11:12
Sub test()
    Dim flag As Boolean
    Dim sh As Worksheet

flag = False
请版主指教,为什么要flag = False,遍历有没有不行吗?

爱疯

hcy1185 发表于 2014-11-10 11:26
flag = False
请版主指教,为什么要flag = False,遍历有没有不行吗?

对于5楼来说，没这句，也行。
但因为5楼代码前后可能还有其他操作，保险起见，就还是加上。