关于Excel自动编号的问题！

来源：百度知道 编辑：UC知道 时间：2024/07/04 10:37:45
我要打印很多的表单，并且给表单加上一个编号，№0000001.......

我想让它每打印一张就自动增加一号。
目的是防止下次再打印这个模板的时候，避免重复编号！
根据打印的张数进行编号的增加...

如何在关闭文件后，下次打开还继续上次的排号？

做一个宏吧,代码如下:

Sub 按钮1_单击()

Range("A1").Select '[A1]是要变单元格位置

ActiveCell.FormulaR1C1 = [A1] + 1 '1是看你要加多少,[A1]是单元格位置
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '1是打印1份
End Sub

添家页眉或者页脚啊

设a1打印编号，将a1自定义格式"№"0000000，输入0 。
ALT+F11，粘贴以下代码。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cells(1, 1) = Cells(1, 1) + 1
End Sub

已答过,请看http://zhidao.baidu.com/question/77669588.html

------------------------

你没点打印就不会增加了