用excel做销售码单，每次改单号特麻烦，能不能设置流水号，打印过后自动往下编号这个怎么弄啊？

用excel做收款收据，每次改单号特麻烦，能不能设置流水号，打印过后自动往下编号这个怎么弄啊

做个按钮，加载宏实现打印，再实现编号+1

Sub main()

Me.PrintOut

[A1] = [A1] + 1

End Sub

搞个自动打印！

你要打印的数据如何来我不管，而且当前表格打印只一页也就是打印一次（不能一次打印几页，如果是，也只能用一个流水号）。

第一步在VBE窗口插入模块，粘贴如下代码：

Sub 打印()

Application.ScreenUpdating = False '关闭屏幕刷新

Range("B3:F14").PrintOut Copies:=1 '打印表中B3:F14区域打印1份

[D3] = [D3] + 1 '流水号累加1

Application.ScreenUpdating = False '关闭屏幕刷新

End Sub

第二步 “编辑/工具栏/窗体”，单击“按钮”后在当前工作表中合适地方画一个矩形按钮，在自动打开的“指定宏”列表中选择“打印”，再把按钮输入名称“打印”。

第三步操作打印。单击按钮“打印”，则打印选定的表格，在D3单元格中的流水号自动累加1

注意：打印区域修改成自己实际的打印区域哦！

不妨试试，无非就是多浪费几张纸而已呵呵。

不好意思，一直没上网，刚看到你的求助。

同时按Alt和F11进入宏界面，在左上窗口找到本工作簿里的ThisWorkbook，双击它，在右边粘贴如下代码：

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.Range("G3") = ActiveSheet.Range("G3") + 1

End Sub

粗体的G3为你单号所在单元格，请自己按实际修改。回到Excel，可以实现，一旦打印，单号自动加1（即加1后打印）

建议在流水帐里输入数据，送货单自动撮最后一行数据。