VBA执行自动编号问题

baojun026 · 发表于 2018-8-19 10:44

本帖最后由 baojun026 于 2018-8-19 10:48 编辑

各位大师求助，我录制了一个宏保存成个人宏工作薄，然后在EXCEL工具栏添加了自定义功能，在每个工作薄打开后我要点击这个自定义宏执行这个VBA（每次执行会自动保存这个EXCEL）。
需求：我要怎么在每个工作薄执行VBA保存时在J1单元格增加编号，而且能记忆递增编号，起始编号：201800001，比如第一个工作薄执行VBA后在J1单元格写入"编号：201800001"，第二个工作薄执行VBA后在J1单元格写入"编号：201800002"，以此类推.....
这个记忆递增起始编号应该放在哪里，能否放在VBA代码中，或者放在保存个人宏工作薄中调用，（我这个VBA中有调用另一个工作薄的数据，或者能否将记忆递增编号保存在另一个工作薄中，然后再调用到此工作薄表的J1单元格中）
请大师帮忙写下代码，非常感谢！

朱荣兴 · 发表于 2018-8-19 11:27

提示: 作者被禁止或删除内容自动屏蔽

gbgbxgb · 发表于 2018-8-19 11:28

本帖最后由 gbgbxgb 于 2018-8-19 12:34 编辑

。。。。。。。。。。。。。。。。。。

abc123281 · 发表于 2018-8-19 11:29

那你的附件呢

mmx1122 · 发表于 2018-8-21 12:20

本帖最后由 mmx1122 于 2018-8-21 12:32 编辑

增加单据时候，先获取已经存在的单号：201800001，然后定义a=201800001+1
这时候a就等于201800002了，把这个值显示出来，就实现了。
如果第一次的时候，那就是a=fromat(year(date),"00000") & 1

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-8-19 11:27 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] VBA执行自动编号问题