关于单号生成请教

xjfzzl · 发表于 2013-12-20 15:43

关于单号自动生成，我找了很多都是针对单独出库单或入库单的，请大神们教教我。

单号生成.rar (6.93 KB, 下载次数: 19)

kuangben8 · 发表于 2013-12-20 17:30

=IF(LEFT(A2)="入","R","C")&TEXT(C2,"yyyymmdd")&TEXT(COUNTIF(A$2:A2,A2),"000")

复制代码

单号生成.rar (7.86 KB, 下载次数: 16)

xjfzzl · 发表于 2013-12-20 21:23

不是这样的，我的意思是根据数据库里的内容在新的出入单中生成新单号

单号生成.rar (15.42 KB, 下载次数: 7)

liulang0808 · 发表于 2013-12-24 14:19

xjfzzl 发表于 2013-12-20 21:23
不是这样的，我的意思是根据数据库里的内容在新的出入单中生成新单号

Sub 入库test111()
For j = Sheet2.[D65536].End(4).Value To 2
      If Left(Sheet2.Cells(j, 4), 1) = "R" Then
         xinxuhao = Val(Right(Sheet2.Cells(j, 4), 2)) + 1
      End If
Next j
End Sub
单号后两位的变化，xinxuhao ，你看看是不是你想要的

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

[求助] 关于单号生成请教