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

答案:3 悬赏:40 手机版

解决时间 2021-02-20 08:46

提问者网友：藍了天白赴美
2021-02-19 18:35

最佳答案

五星知识达人网友：神鬼未生
2021-02-19 19:29

"你提供的代码不完整，具体要求也说的不是很明白。没法帮你分析。追问：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”好像是全角字符！
请改为半角字符试试。"

全部回答

1楼网友：杯酒困英雄
2021-02-19 21:26

使用这款现成的，勾选递增打印即可。

2楼网友：一叶十三刺
2021-02-19 20:47

在左上角的文件下拉菜单中找到打印便可。也可在预览中打印。

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！