[已解决]请教

我心飞翔410

上清宫主 发表于 2012-11-14 16:20
On Error Resume Next   ' 在程序的开头加这句，以改变错误陷阱。

'更名部分参照以下来按自己的想法写代 ...

这个怎么怎么解决啊

我心飞翔410

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

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

麻烦帮忙解决哈嘛 出现那样的问题 怎么处理

爱疯

Sub TEST()
    Dim B As Variant
   
    B = InputBox("请输入数字", "温馨提示", 4000)
    If B = "" Then End
   
    '改为临时名字，确保临时名不会出现在新表名中即可
    For i = 1 To Sheets.Count
        Sheets(i).Name = "temp" & i
    Next i
   
    '正式改名
    For i = 1 To Sheets.Count
        Sheets(i).Name = Application.Text(B + i, "\ 0 .00")
    Next i
   
End Sub

我心飞翔410

爱疯 发表于 2012-11-14 21:22
Sub TEST()
    Dim B As Variant
   

这个方法确实不错 两次命名法 学的 一招能让我学习 就不能不给个最佳答案

爱疯

我心飞翔410 发表于 2012-11-16 15:30
这个方法确实不错 两次命名法 学的 一招能让我学习 就不能不给个最佳答案

因为要改名对不多，也没其它要求。
所以，我觉得这是一个好理解的笨办法{:011:}

我心飞翔410

爱疯 发表于 2012-11-16 15:37
因为要改名对不多，也没其它要求。
所以，我觉得这是一个好理解的笨办法

意思有更好的办法了  可以也说说 我好不断的改进嘛 如果需要改名的很多 那怎么处理啊

爱疯

对于当前要求，我觉着这么就比较省事了，现在还没想到更好方法。