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

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

VBA增加sheet,重名时自动命名相关推荐

当对项目强名时自动构建失败（TeamFoudationServer试用笔记）
当对项目强名时(带密码保护)自动构建失败原因为弹出密码输入框的造成自动构建任务不能继续! 临时解决办法为去掉密码保护,目前还没有更好的解决办法. 最近微软的TeamFoundationServer中 ...
适合前端初学者，vue.js完成ToDoList的增删改，支持回车提交增加，及修改时自动获取焦点
重新学习vue,将实例中的ToDoList做了些调整.增加了些功能功能: 1.添加要做事项,支持回车完成添加,也可以点击按钮添加,添加后input清空 2.待做事项,是一个有序列表 3.列表可以删除 ...
c语言全局变量和局部变量作用域重合时,c语言全局变量与局部变量(当变量重名时)的使用情况...
ABP框架 - 时间文档目录本节内容: 简介时钟客户端时区客户端绑定器与转换器简介虽然有些应用目标市场只是在一个时区,有些应用目标市场是许多不同时区,为满足这种需求并集中化日期操作, ...
workbench tabular data怎么增加一行_pandas 索引名重名怎么办
pandas 索引名重名怎么办本文中索引名包括行名和列名,也就是index和column. 也许很少有人注意到,pandas中索引名是可以重名的. 试一下. import pandas as pd ...
【VBA研究】EXCEL启动时自动启动窗体
作者:iamlaosong VBA编程时为了界面美观,我们经常用到窗体Form(比如欢迎窗口),那么,如何做到让VBA窗体在EXCEL启动时自动运行呢? 方法有二: 第一,双击ThisWorkbook ...
Cookie重名问题处理
常用 API --- Cookie重名问题 1).Cookie 重名时,可能执行覆盖操作 2).什么情况下不覆盖? A.站点不同时 B.setPath("路径");//路径不同时, ...
局部变量能否和成员变量重名？
局部变量可以和成员变量重名,不加"this"修饰时,优先使用最近的变量. public class Mainceshi {private String a = "成员变量 ...
文件的上传与下载及解决文件重名问题
Upload 文件上传文件上传首先在前端页面form表单中需要添加属性enctype="multipart/form-data" 代表用于发送二进制的文件获取磁盘工厂对象Dis ...
ROS 学习笔记重名
工作空间覆盖工作空间覆盖,是指不同工作空间中,存在重名的功能包的情形.(应该尽量避免) 功能包重名时,会按照 ROS_PACKAGE_PATH 查找,配置在前的会优先执行. 隐患: 存在安全隐患,比 ...

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

VBA增加sheet,重名时自动命名相关推荐

最新文章

热门文章