大家帮我看看这段代码，怎么没效果

llxyxll

用户窗体
点确定按钮没反应
Private Sub yhck_bnt_Click()
Dim gzbm As Worksheet
     For Each gzbm In Worksheets
     If gzbm.Name = TextBox1 Then  '当前活动工作表等于文本输入框中的值就执行下面的语句
MsgBox "工作表已经存在，请重新命名": Exit Sub
'--------------------------------------------------------------------------------------------------

Sheets("模版").Copy after:=Sheets(2) 'After将要在其之后放置所复制工作表的工作表。
Sheets(3).Name = TextBox1
     End If

Next
End Sub

lsc900707

太晚了，明天有时间再看看。>>>>>>>

llxyxll

lsc900707 发表于 2017-2-26 00:12
太晚了，明天有时间再看看。>>>>>>>

你也是个夜猫子！谢谢你

半百

不可能所有工作表名都等于textbox1的内容，所以如果第一个工作表名不等于textbox1的内容，但是后边可能有相同的，再继续给新工作表命名时就出错了。只有将工作表全部循环一边，发现没有相同的了再插入并命名才是。当然，如果只有2个表，就没必要循环了。
Private Sub yhck_bnt_Click()
Dim gzbm As Worksheet
     For Each gzbm In Worksheets
     If gzbm.Name = TextBox1 Then n=1  '当前活动工作表等于文本输入框中的值就执行下面的语句
Next
If n=1 then MsgBox "工作表已经存在，请重新命名！" : Exit sub
Sheets("模版").Copy after:=Sheets(2) 'After将要在其之后放置所复制工作表的工作表。
Sheets(3).Name = TextBox1
End Sub

liulang0808

Private Sub yhck_bnt_Click()
    Dim gzbm As Worksheet
    For Each gzbm In Worksheets
        If gzbm.Name = TextBox1 Then  '当前活动工作表等于文本输入框中的值就执行下面的语句
            MsgBox "工作表已经存在，请重新命名": Exit Sub
            '--------------------------------------------------------------------------------------------------
        Else
            Sheets("模版").Copy after:=Sheets(2) 'After将要在其之后放置所复制工作表的工作表。
            Sheets(3).Name = TextBox1
        End If
   
    Next
End Sub

llxyxll

liulang0808 发表于 2017-2-26 08:29
Private Sub yhck_bnt_Click()
    Dim gzbm As Worksheet
    For Each gzbm In Worksheets

你这试了下不行吗。

liulang0808

Private Sub yhck_bnt_Click()
    Dim gzbm As Worksheet
    For Each gzbm In Worksheets
        If gzbm.Name = TextBox1 Then  '当前活动工作表等于文本输入框中的值就执行下面的语句
            MsgBox "工作表已经存在，请重新命名": goto l1
            '--------------------------------------------------------------------------------------------------
        End If
   
    Next
            Sheets("模版").Copy after:=Sheets(2) 'After将要在其之后放置所复制工作表的工作表。
            Sheets(3).Name = TextBox1
l1：
End Sub不好意思，代码调整有误