求助如何自动编号

管正中888 · 发表于 2014-8-12 08:02

请教大侠！我在表格中设置了表格编号，能不能将此编号在每次打开表格的时候自动向上递增1呢？

AVEL · 发表于 2014-8-12 08:42

要用到VBA的open事件。。
最好将附件上传。。

管正中888 · 发表于 2014-8-12 17:52

具体见表格中编号一栏，谢谢

xweiye · 发表于 2014-8-17 21:55

管正中888 发表于 2014-8-12 17:52
具体见表格中编号一栏，谢谢

Private Sub Workbook_Open()
a = Sheet1.Range("n3")
Sheet1.Range("n3") = ""
Sheet1.Range("n3") = Format(a + 1, "000")
End Sub

xweiye · 发表于 2014-8-17 21:55

Private Sub Workbook_Open()
a = Sheet1.Range("n3")
Sheet1.Range("n3") = ""
Sheet1.Range("n3") = Format(a + 1, "000")
End Sub

管正中888 · 发表于 2014-8-28 11:16

还是不行，需要运行宏以后才能自动增加，我要的是打开工作表的时候就能自动增加

heiheinimei2 · 发表于 2014-9-4 16:52

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

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

heiheinimei2 heiheinimei2 当前离线性别保密 UID 2806317 阅读权限 0 注册时间 2014-8-18 在线时间小时最后登录 1970-1-1 积分 20 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2014-9-4 16:52 \| 显示全部楼层 [广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[经验交流] 求助 如何自动编号