发货单号打印后可以递增

tanyongzhen · 发表于 2020-2-23 19:55

发货单号：20200223+001，希望可以添加一个打印的按钮，点击就可以保存发货单，然后001变成002，以此类推

tanyongzhen · 发表于 2020-2-23 20:00

附件在这，望大佬们帮帮忙

3190496160 · 发表于 2020-2-24 10:00

Sub binahao()
With Sheets("康尔绿厨销货单 ")
dh = Trim(.[m2])
If dh = "" Then
      .[m2] = Format(Date, "yyyymmdd") & Format(1, "000")
ElseIf dh <> "" Then
      If --Mid(dh, 1, 8) <> --Format(Date, "yyyymmdd") Then
         .[m2] = Format(Date, "yyyymmdd") & Format(1, "000")
      Else
         .[m2] = Format(Date, "yyyymmdd") & Format(Val(Right(dh, 3)) + 1, "000")
      End If
End If
End With
End Sub

3190496160 · 发表于 2020-2-24 10:01

保存数据不知道你需要如何保存，比如，日期，究竟需要保存那个日期呢？？

kr2492_进销存20200218.rar (41.76 KB, 下载次数: 10)

mmx1122 · 发表于 2020-2-24 10:11

我还没看你的，我一般是在新增单据时，触发新增单号。而不是在打印之后。

tanyongzhen · 发表于 2020-2-25 18:58

3190496160 发表于 2020-2-24 10:01
保存数据不知道你需要如何保存，比如，日期，究竟需要保存那个日期呢？？

就是如果能直接保存在销售记录那个工作表里就好了，我把销售记录表格稍微修改了一下，您看看能不能帮我弄一下，谢谢

3190496160 · 发表于 2020-2-25 20:50

tanyongzhen 发表于 2020-2-25 18:58
就是如果能直接保存在销售记录那个工作表里就好了，我把销售记录表格稍微修改了一下，您看看能不能帮我弄 ...

看是看明白了，但是，这个问题，没有什么技术性，纯粹是个力气活，

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

发货单号打印后可以递增

最新热点 /1