VBA增加sheet,重名时自动命名

原创 2007年09月23日 14:10:00

  VBA增加sheet,如何在出现重名时自动命名?如

 Sheets.Add
   ActiveSheet.Name = "mysheet"

如果已经存在名称为“mysheet”的sheet,如何使增加的sheet名称自动加上一个括号变成"mysheet(1)"呢? 即类似在某文件夹内不断复制同一文件的效果,代码如下:

Sub addsheets()
Dim i As Long, sh As String, temp As String, mysheet As Worksheet
Application.DisplayAlerts = False
Randomize
sh = InputBox("Please enter the newsheetname", , "sheet" & Int(Rnd * 6 + 1))
On Error GoTo here
For i = 0 To Sheets.Count
temp = sh & IIf(i = 0, "", "(" & i & ")")
Set mysheet = Sheets(temp)
Next
here:
Sheets.Add.Name = temp
Application.DisplayAlerts = True
End Sub

相关文章推荐

excel中用当天日期命名工作表名vba

excel 2007 abv
  • dkink
  • dkink
  • 2016年05月30日 20:04
  • 1290

C#写的一个文件重名命名的程序

  • 2013年07月19日 17:39
  • 22KB
  • 下载

批量重命名一个文件夹的文件,例如:img下有600张图片,对其重名

import java.io.File; import java.util.ArrayList; import java.util.Arrays; public class FileUtilDeal...

jQuery+Ajax+Mysql 检测用户名注册时是否重名

利用jQuery框架,封装了底层的Ajax异步技术,通过简单的方法调用即可实现。这篇博客是针对用户注册时出现的用户名重名问题的自动检测,利用的技术是Ajax异步传输。register.jsp 注册显示...

多个分类重名时,方法的调用顺序

当我们在一个项目中给NSMutableArray建立多个分类,而且这些分类中重名时,那么当我调用这个方法的时候会调用哪个分类中的方法呢?...

在 Service 和 Activity 之间传递 Action 时,Action 定义的问题【重名】

在 Service 和  Active传递 Action 时,出现如下的错误.刚开始以为是权限不够,所以在研究 INJECT_EVENTS,最后发现不是权限的问题,而是消息定义的问题.先在 manif...

Excel VBA-批量将多个sheet表另存为单独的工作薄文件

欢迎使用Markdown编辑器写博客 本Markdown编辑器使用StackEdit修改而来,用它写博客,将会带来全新的体验哦: Markdown和扩展Markdown简洁的语法 代码块高亮 图...

新建Sheet单元格状态控制整行颜色的VBA

Sub NewSheet_Click() Dim filter As String Dim fileToOpen As Variant Dim rowCount As Inte...

文件和图像重名的批处理

  • 2016年03月11日 15:35
  • 942KB
  • 下载

max9.0-选择重名物体

  • 2014年07月14日 00:18
  • 1KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBA增加sheet,重名时自动命名
举报原因:
原因补充:

(最多只允许输入30个字)