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

tiewuya

tntg534462 发表于 2023-5-5 20:58
也不完全是这样，是说
1、今日无论打开多少次不作为递增的记录，是打印多少次作为记录。
2、就跨了次日 ...

因为题1、2已有网友解答，所以此是针对3、4问题的补充；要满足你的需要，将累加基数替换为打印次数即可。
修改如下：

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

复制代码

沈默00

函数也可以，不过还是用VBA好呀，学习了

tntg534462

mmwwdd 发表于 2023-5-6 04:30
Private Sub Workbook_Open()
    Dim today As Date
    today = Date

非常感谢大神，4楼的代码加上你这个已经实现我需要的了