求大神赐单据编号自动生成的代码

caimh · 发表于 2018-3-21 17:20

如题，详情见附件，感恩先！

xd3210 · 发表于 2018-3-21 17:29

Sub 按钮1_单击()
Dim sbh As String
Dim ibh As Integer

sbh = Range("h2")
ibh = Int(Split(sbh, "-")(1))
ibh = ibh + 1
sbh = "000000" & CStr(ibh)
sbh = Right(sbh, 7)
sbh = "XSCK-" & sbh
Range("h2") = sbh
End Sub

xd3210 · 发表于 2018-3-21 17:30

附件供参考

caimh · 发表于 2018-3-21 17:35

@XD3210感恩了

caimh · 发表于 2018-3-21 17:45

xd3210 发表于 2018-3-21 17:30
附件供参考

为什么相同的代码只改动一点地方就运行错误,这是什么原因

xd3210 · 发表于 2018-3-21 17:54

caimh 发表于 2018-3-21 17:45
为什么相同的代码只改动一点地方就运行错误,这是什么原因

为什么要改？想要达到什么目的？你思考清楚，能说明白，估计你就能自己处理了！

xd3210 · 发表于 2018-3-21 18:00

你的代码我看过了，你编码是七位数的整数，变量定义要改为长整型，Dim ibh As Long

caimh · 发表于 2018-3-21 18:01

本帖最后由 caimh 于 2018-3-21 18:02 编辑

xd3210 发表于 2018-3-21 17:54
为什么要改？想要达到什么目的？你思考清楚，能说明白，估计你就能自己处理了！

只是想采购入库单的编号想从CGRK-1000001这样的格式编号还想学习学习代码的含义

caimh · 发表于 2018-3-21 18:05

xd3210 发表于 2018-3-21 18:00
你的代码我看过了，你编码是七位数的整数，变量定义要改为长整型，Dim ibh As Long

看不懂这Dim ibh As Long加在代码的哪里

caimh · 发表于 2018-3-21 18:07

caimh 发表于 2018-3-21 18:05
看不懂这Dim ibh As Long加在代码的哪里

搞明白了,知道更换了

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

[求助] 求大神赐单据编号自动生成的代码