可否实现“每次点击打印后编号依次递增”

tntg534462

如下图，可否实现：












1、只需要C2的单号
2、在点击文件“打印”后，实现编号“01”递增【如C9-C13单元格】
3、在保存文件后能保存当前应用的编号，同一天下一次打开文件时能按着上次关闭文件时的编号继续递增
4、在次日的时候日期更新，重新从序号“01”开始



打印后编号递增.zip (7.98 KB, 下载次数: 8)

2023-5-5 16:35 上传

点击文件名下载附件

高个子

你这恐怕要VBA解决了，不会就去VBA版块问

mmwwdd

有workbook_BeforePrint事件，你试一下打印前设置，一样的

mmwwdd

tntg534462

mmwwdd 发表于 2023-5-5 17:02

是的是的， 就是这个效果

tntg534462

高个子 发表于 2023-5-5 16:45
你这恐怕要VBA解决了，不会就去VBA版块问

这就是VBA版块了呀。。。

tiewuya

补充回答题主的第三四项问题：
”3、在保存文件后能保存当前应用的编号，同一天下一次打开文件时能按着上次关闭文件时的编号继续递增
4、在次日的时候日期更新，重新从序号“01”开始“

个人认为完美解决，望采纳。

1. Private Sub Workbook_Open()
   
2. '本次打开的日期
   
3. Sheet1.Range("e" & 20) = Date
   
4. '本次打开后的次数+1
   
5. Sheet1.Range("e" & 21) = Sheet1.Range("f" & 21) + 1
   
6. End Sub
   
7. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
8. '上次关闭的日期：
   
9. Sheet1.Range("e" & 19) = Date
   
10. If DateValue(Range("E19").Value) = DateValue(Range("E20").Value) Then
    
11. '如果日期在同一天，把上次的次数移动到F21单元格作为累加基数
    
12.     Sheet1.Range("f" & 21) = Sheet1.Range("e" & 21)
    
13.     Else
    
14. '如果日期不在同一天，重置F21单元格的累加基数
    
15.     Sheet1.Range("f" & 21) = 0
    
16. End If
    
17. End Sub

复制代码

tntg534462

tiewuya 发表于 2023-5-5 18:15
补充回答题主的第三四项问题：
”3、在保存文件后能保存当前应用的编号，同一天下一次打开文件时能按着上 ...

谢谢啦，是说要的是f21的这个单元格是递增的是吗

tntg534462

tiewuya 发表于 2023-5-5 18:15
补充回答题主的第三四项问题：
”3、在保存文件后能保存当前应用的编号，同一天下一次打开文件时能按着上 ...

也不完全是这样，是说
1、今日无论打开多少次不作为递增的记录，是打印多少次作为记录。
2、就跨了次日的日期，F21 变回 1 ，启动打印后 F21 递增，当日关闭后保存打印了多少次，下次打开文件再次点打印可以接驳上次关闭文件打印的次数

mmwwdd

Private Sub Workbook_Open()
    Dim today As Date
    today = Date
   
    If Range("A1").Value = today Then
        Range("B2").Value = Range("B2").Value + 1
    Else
        Range("A1").Value = today
        Range("B2").Value = 0
    End If
End Sub