[已解决]请教

chin15

若已经存在你要更名的工作表，当然出错的

zjdh

你运行时输入100，得到101、102、103、104、105
第二次输入104，将得到105、106....
其中第一个表改名为105时与第5个表重名所以出错！

我心飞翔410

chin15 发表于 2012-11-13 16:33
若已经存在你要更名的工作表，当然出错的

但是不是同一个表啊 比如说 sheet1  命名1 在运行一下 sheet2  变1怎么不行啊 有啥解决的办法没

无聊的疯子

我心飞翔410 发表于 2012-11-13 17:50
但是不是同一个表啊 比如说 sheet1  命名1 在运行一下 sheet2  变1怎么不行啊 有啥解决的办法没

给你看个动画片吧。。



再来看一个动画片



明白了吗？？输入100以后，表的名称是 101到105
第二次如果输入的是在 101到104之间都会遇到重名的情况，

我心飞翔410

无聊的疯子 发表于 2012-11-13 19:01
给你看个动画片吧。。

意思这个问题没办法解决啊

爱疯

明白楼主意思了

是题目的修改方法，有机会使得 即将的工作表名 与 已存在的工作表名 重复。

建议说明至少是为了满足什么要求，重新设计变名的方式。

我心飞翔410

爱疯 发表于 2012-11-13 22:09
明白楼主意思了

是题目的修改方法，有机会使得 即将的工作表名 与 已存在的工作表名 重复。

恩 就是这样的情况 有什么方法可以解决嘛

我心飞翔410

我心飞翔410 发表于 2012-11-13 20:53
意思这个问题没办法解决啊

疯子帮忙解决哈嘛
就是不管充不重复都命名

上清宫主

On Error Resume Next   ' 在程序的开头加这句，以改变错误陷阱。

'更名部分参照以下来按自己的想法写代码
x = Worksheets(" 101 .00").Name
If Err.Number = 0 Then
     ' 101 .00表存在，按你的想法写代码吧
Else
     ' 101 .00表不存在，按你的想法写代码吧
End If
Err.Clear


On Error GoTo 0   ' 在程序的结尾加这句，以关闭错误陷阱。

我心飞翔410

爱疯 发表于 2012-11-13 22:09
明白楼主意思了

是题目的修改方法，有机会使得 即将的工作表名 与 已存在的工作表名 重复。

恩 麻烦你们帮我看看 这个问题怎么解决