excel 宏 我自己做了个销售单打印，希望能自动生成单号， 单号格式为SXH+当日日期+三位数

Question

excel 宏 我自己做了个销售单打印，希望能自动生成单号， 单号格式为SXH+当日日期+三位数 能打印一次单号后三位自动+1 谢谢！

Answer 1

假设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看起来像个整体就好了

Answer 2

在数据表的任意单元格存储三位序列号（如A2）

宏中加入代码：
aaa = "SXH" & Date & Format([A2], "-000")
[A1] = aaa
[A2] = [A2] + 1

其中aaa即是自动生成的单号，可以用宏打印

Answer 3

刚回答了一个类似的问题，
http://zhidao.baidu.com/question/504842866.html?oldq=1

代码还在，需要的话，Hi我