excel在某一单元格生成一个唯一不重复合同号

tanglf188 · 发表于 2023-1-10 10:26

快捷方式Ctrl+s

太极拍天雄 · 发表于 2023-1-10 10:29

本帖最后由太极拍天雄于 2023-1-10 15:04 编辑

zhangyurx888 发表于 2023-1-10 09:37
能否帮我改一下第二张表生成合同号时固定不动的那个几字。第一张表合同号前面几个字是“桦担字23D”，第 ...

增加字母P

tanglf188 · 发表于 2023-1-10 11:35

点击表格1或2，按Ctrl+s就能快捷运行，参数根据标注自定义
代码设计了去重功能，不会有重复合同号
不要对单元格做任何格式设置，设置了也会取消
增加了自动画线功能，不需要根据提示删除两行代码

zhangyurx888 · 发表于 2023-1-10 13:02

太极拍天雄发表于 2023-1-10 10:29
增加字母P

第二张表，还在D呢

太极拍天雄 · 发表于 2023-1-10 13:03

zhangyurx888 发表于 2023-1-10 13:02
第二张表，还在D呢

你下载的不是我挂的附件

zhangyurx888 · 发表于 2023-1-10 13:04

tanglf188 发表于 2023-1-10 11:35
点击表格1或2，按Ctrl+s就能快捷运行，参数根据标注自定义
代码设计了去重功能，不会有重复合同号
不要对 ...

每次生成5个合同号，是每次生成的5个不重复，还是所有生成过的都不重复。

tanglf188 · 发表于 2023-1-10 13:52

zhangyurx888 发表于 2023-1-10 13:04
每次生成5个合同号，是每次生成的5个不重复，还是所有生成过的都不重复。

Set findcell = ActiveSheet.Range("V:V").Find("intrand", LookAt:=xlWhole)
这就是在V列找重复的代码，也就是所有的都不重复

zyf19890315 · 发表于 2023-1-10 14:06

这个吧不重复

zhangyurx888 · 发表于 2023-1-10 14:28

太极拍天雄发表于 2023-1-10 10:29
增加字母P

下载的是这个最新的啊！10：29分的附件，还是原来的

，

zhangyurx888 · 发表于 2023-1-10 14:36

tanglf188 发表于 2023-1-10 10:23
参与一下，每次生成的数量和合同号前缀可以自定义。
Sub GetNumber()
If Sheet1.Range("C" & Rows.Co ...

十分感谢

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

[求助] excel在某一单元 格生成一个唯一不重复合同号