如何让EXCEL在打印文档时自动增加单元格里的数字？

Question

我要使A1单元格中的数字打印一张数字递增1.如打印A00106114后下次打印的是A00106115，依次递增下去。求详细解决步骤，正确的代码！

Answer 1

使用这款现成的呀，勾选仅递增打印，选择Excel类型。

Answer 2

假设A00106114后面的8个数字都作为一个序列号，可用以下代码：

Sub 自动序号打印()
y = InputBox("请输入打印页数")
For I = 1 To y
ActiveSheet.PrintOut
s = ActiveSheet.Cells(1, 1)
s = Left(s, 1) & Format(Val(Mid(s, 2)) + 1, "00000000")
ActiveSheet.Cells(1, 1) = s
Next
End Sub
在你的工作表上增加一个按钮，指定运行上述宏就可以了。
如果需要的前8位数字中只有一部分作为序列号，可以适当修改。追问

我输入打印页数是10，我打印2次10张的。数字就是这么变的。再打印每次改变的是个位数和万位数，如何才能一次递增啊？



本回答被网友采纳

Answer 3

可以将打印代码（可录制）及递增代码都写在一个宏里面，用一个按钮控件控制，我不知道你单据号是不是要补零（即“A”后面的数字要几位），不会弄你把表传上来，我帮你改。追问

　　

怎么把表传给你啊。。。这里似乎传不了文件。

追答

[email protected]

追问

表传给你了。。。