[已解决]老师：请问怎样实现 sheet名字重复就忽略 或给个提示 没重复就复制sheet1表内容到...

longjingcha1122

如图我想复制sheet1到    以文本框内容为名字的sheet表中 名字重复了就出错
要怎样实现 名字重复就忽略 或给个提示 没重复就复制sheet1表内容到新表中

谢谢老师们

最佳答案

月排行榜 / 总排行榜

zjdh

2015-12-24 14:16

Private Sub CommandButton1_Click()
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheet1.Copy Sheets(Sheets.Count)
    ActiveSheet.Name = TextBox1  'InputBox("请输入新建表格名字", "")
    If ActiveSheet.Name <> TextBox1.Value Then
        MsgBox "【 " & TextBox1.Value & " 】已存在！"
        ActiveSheet.Delete
    End If
    Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

zjdh

Private Sub CommandButton1_Click()
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheet1.Copy Sheets(Sheets.Count)
    ActiveSheet.Name = TextBox1  'InputBox("请输入新建表格名字", "")
    If ActiveSheet.Name <> TextBox1.Value Then
        MsgBox "【 " & TextBox1.Value & " 】已存在！"
        ActiveSheet.Delete
    End If
    Application.DisplayAlerts = True
End Sub

七彩屋

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim sName As String
sName = TextBox1
On Error Resume Next
Set ws = Sheets(sName)
If ws Is Nothing Then '指定的工作表不存在
Sheets.Add.Name = sName
Else '指定的工作表已存在
MsgBox "“" & sName & "”工作表已存在。"
ws.Activate
End If
End Sub

longjingcha1122

2楼3楼的老师 谢谢你们
不过3楼的老师语句没复制sheet1
我已经看懂思路了  谢谢指点