如何使用vba提示不能创建同名的工作表

baiwen_zhang · 发表于 2016-1-21 11:37

在一个工作表建立模板，利用模板新建一个日工作表，如果出现命名是同名的情况，如何进行提示
自己试着编了一个但运行时不对，请帮忙看一下，谢谢。
Sub 日报表格式生成()
Dim i As Integer
Dim sh As Worksheet
Worksheets("模板").Visible = xlSheetVisible
Worksheets("模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = Application.InputBox("请输入工作表名称", "工作表名称", Format(Date, "mm-dd"))
For i = 1 To Sheets.Count
If ActiveSheet = Sheets(i).Name Then MsgBox "工作表同名，请重新命名": cancel = True
Next
Worksheets("模板").Visible = xlSheetHidden
End Sub

opiona · 发表于 2016-1-21 11:43

If ActiveSheet.name = Sheets(i).Name Then

复制代码

baiwen_zhang · 发表于 2016-1-21 12:07

谢谢这么快就回复，但还是不行。

opiona · 发表于 2016-1-21 13:48

我测试没有问题啊

For i = 1 To Sheets.Count
If ActiveSheet.Name = Sheets(i).Name Then MsgBox "工作表同名，请重新命名" & Sheets(i).Name
Next

复制代码

baiwen_zhang · 发表于 2016-1-21 14:59

麻烦您在以下可以吗

		自动登录	找回密码
密码			免费注册