MS Excel 2007:如何在每次打印输出后增加单元格中的数字
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了MS Excel 2007:如何在每次打印输出后增加单元格中的数字相关的知识,希望对你有一定的参考价值。
我正在打印一份Excel文件说100份。
我有一个字段,如“复制号码:”0001“”
我需要在每次打印输出后增加此数字,以便每个打印件都有一个复制号:0002,复制号码:0003 .....复制号码.0100
我的意思是说当我给出打印作业并将其设置为100份时,所述数字应该递增并自动打印。
这可能使用宏或一些公式? :)
答案
您可以使用以下宏:
Sub PrintIncrement()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim num As Integer
Range("A1").Select
num = Range("A1").Value
num = num + 1
Range("A1").Value = num
End Sub
告诉我你是否有问题
另一答案
感谢John Bustos的原始代码,添加了更多内容并且有效
Sub PrintIncrement()
Let x = 0
Do While x < 100
ActiveWindow.SelectedSheets.PrintOut Copies:=100, Collate:=True
Dim num As Integer
Range("L10").Select
num = Range("L10").Value
num = num + 1
Range("L10").Value = num
x = x + 1
Loop
End Sub
以上是关于MS Excel 2007:如何在每次打印输出后增加单元格中的数字的主要内容,如果未能解决你的问题,请参考以下文章
使用 vba 将 MS Access 查询输出到 Excel