⑴ excel 宏 我自己做了个销售单打印，希望能自动生成单号， 单号格式为SXH+当日日期+三位数
假设A1: SXH
B1: TODAY()
假设编码在C1单元格，使用下面代码可实现打印和自动编码递增。
按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。
Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("C1"))
s = s + 1
Range("C1") = "'" & Right("00" & s, 3)
End Sub
调整一下表格 是A1 B1 C1看起来像个整体就好了