MS Excel 2007:如何在每次打印输出后增加单元格中的数字

问题描述 投票:0回答:2

我正在打印一份Excel文件说100份。

我有一个字段,如“复制号码:”0001“”

我需要在每次打印输出后增加此数字,以便每个打印件都有一个复制号:0002,复制号码:0003 .....复制号码.0100

我的意思是说当我给出打印作业并将其设置为100份时,所述数字应该递增并自动打印。

这可能使用宏或一些公式? :)

excel excel-formula excel-2007
2个回答
1
投票

您可以使用以下宏:

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

告诉我你是否有问题


0
投票

感谢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
© www.soinside.com 2019 - 2024. All rights reserved.