我想在EXCEL中使单元格中的数字在打印时递增

"你提供的代码不完整，具体要求也说的不是很明白。没法帮你分析。追问：Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Left(Sheets(""Sheet1"").Range(""A5""), 8) = Format(Date, ""YYYYMMDD"") Then
Sheets(""Sheet1"").Range(""A5"") = Left(Sheets(""Sheet1"").Range(""A5""), 8) & Format(Sheets(""Sheet1"").Right(Range(""A5""), 4) + 1, ""0000"")
Else
Sheets(""Sheet1"").Range(""A5"") = Format(Date, ""YYYYMMDD"") & ""0001""
End If
ThisWorkbook.Save
End Sub
这就是全的，我想在EXCEL中使单元格中的数字在打印时递增。补充：代码本身没有问题！
但是，看起来那个单元格地址“A5”好像是全角字符！
请改为半角字符试试。"

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/jyey33v23efr7jevf3.html