Excel表格的单号每次打印后能否自动生成下一个单号每次打印以后下一次打印时又要手动设置单号这样经常出错
答案:1 悬赏:0
解决时间 2021-10-14 00:08
- 提问者网友：玫瑰园
- 2021-10-13 11:18
Excel表格的单号每次打印后能否自动生成下一个单号每次打印以后下一次打印时又要手动设置单号这样经常出错
最佳答案
- 二级知识专家网友：旧脸谱
- 2021-10-13 12:56
用宏可以解决。在Excel窗口同时按Alt和F11进入宏界面，在左上窗口找到ThisWorkbook，双击它，如下图：
在右边粘贴如下代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xStr As String
xStr = Right(Sheets("Sheet1").Range("F5"), 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("F5") = xStr
End Sub
粗体部分表示工作表“Sheet1"的单元格F5里是”单号：LD20110709001“，请相应修改。
存盘退出。
功能：当你在Excel里打印时，它判断单号的日期与今天是否一致，如果不一致，F5改为”单号：LD20110710001“；如果一致，单号后加1。然后再打印。
也就是说，打印前生成新单号，而非你要的打印后。（比如，上班开始打印时，它会自动生成当天的第一个单号）
在右边粘贴如下代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xStr As String
xStr = Right(Sheets("Sheet1").Range("F5"), 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("F5") = xStr
End Sub
粗体部分表示工作表“Sheet1"的单元格F5里是”单号：LD20110709001“，请相应修改。
存盘退出。
功能：当你在Excel里打印时，它判断单号的日期与今天是否一致，如果不一致，F5改为”单号：LD20110710001“；如果一致，单号后加1。然后再打印。
也就是说，打印前生成新单号，而非你要的打印后。（比如，上班开始打印时，它会自动生成当天的第一个单号）
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息