这个序号打印时怎么设置递增？
答案:1 悬赏:40
解决时间 2021-01-07 20:12
- 提问者网友：wodetian
- 2021-01-07 13:44
这个序号打印时怎么设置递增？
最佳答案
- 二级知识专家网友：青灯有味
- 2021-01-07 14:02
亲，代码如下。
以A1单元格递增为例，请根据实际情况修订代码中的引用。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧ThisWorkbook上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Range("a1").NumberFormatLocal = "@"
ActiveSheet.Range("A1") = Format(--ActiveSheet.Range("A1") + 1, "00000")
End Sub来自：求助得到的回答
以A1单元格递增为例，请根据实际情况修订代码中的引用。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧ThisWorkbook上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Range("a1").NumberFormatLocal = "@"
ActiveSheet.Range("A1") = Format(--ActiveSheet.Range("A1") + 1, "00000")
End Sub来自：求助得到的回答
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯