自动判断生产流水码

wfh040401 · 发表于 2019-3-21 16:03

jinlikun865 发表于 2019-3-21 15:39
代码居然还需要审核！？

谢谢！
哈~已经实现了，但功能有点过剩啦，能否帮忙把在记录表中自动记录的功能去掉？只要在编号表中生成流水码即可，但要确保在任何情况下的流水码不会重复就行，感谢！

jinlikun865 · 发表于 2019-3-21 16:18

你把下面的删掉就行了啊，
Sheet1.Cells(hang + 1, 1) = Application.Max(Sheet1.Range("A1:A10000").Value) + 1
Sheet1.Cells(hang + 1, 2) = Cells(3, 1) & Cells(3, 2) & Cells(3, 3) & Cells(3, 4) & Cells(3, 5)
Sheet1.Cells(hang + 1, 3) = Date

xd3210 · 发表于 2019-3-21 16:27

wfh040401 发表于 2019-3-21 15:56
非常感谢！
已实现了大部分功能，但有个小问题，当记录表中前一个编号的流水码比后一个大时，会生成重复 ...

ADO方法自动编号

wfh040401 · 发表于 2019-3-21 16:28

jinlikun865 发表于 2019-3-21 16:18
你把下面的删掉就行了啊，
Sheet1.Cells(hang + 1, 1) = Application.Max(Sheet1.Range("A1:A10000"). ...

哈~没细看代码，搞定了，非常感谢 ^_^

wfh040401 · 发表于 2019-3-21 16:30

xd3210 发表于 2019-3-21 16:27
ADO方法自动编号

非常感谢！^ ^

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

[求助] 自动判断生产流水码

最新热点 /1