EXCEL做的送货单。那个单号怎么打印时自动加1比如 10000 在打印就是10001。

Question

EXCEL做的送货单。那个单号怎么打印时自动加1比如 10000 在打印就是10001。步骤详细一点谢谢。。

Answer 1

使用VB代码来完成
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xStr As String
xStr = Right(Sheets("Sheet1").Range("D4"), 11)
If Left(xStr, 8) = Format(Date, "yyyymmdd") Then
xStr = "LD" & Format(Date, "yyyymmdd") & Right(xStr, 3) + 1
Else
xStr = "LD" & Format(Date, "yyyymmdd") & "001"
End If
Sheets("Sheet1").Range("D4") = xStr
End Sub

我用这个代码 现在打印第一张是20140422001 可打第二张就成了201404222 第三张又成了20140422001 。。。。。

Answer 2

用连接“&”轻松完成

请看以下图片内容

Answer 3

Vba 轻松实现

Answer 4

同意，用vba