Question

execl中如何用vba做个流水编号，具体如下，字母+年份+月份+流水号，求高手解答，谢谢。请将具体代码写出来

Answer 1

字母和流水号有什么规律或者要求不，年份和月份一个函数就搞定了，只要连在一起就是一个流水编号了

追问

EXECL表格打印出来的效果是：“字母+年份+月份+流水号”整体是一起的，比如JJ201108-001，这样的，而且每打印一张，数字就自动增加一个，也就是变成JJ201108-002，年份和月份也要自动更新的。谢谢

追答

dim NO as string '流水编号
const N=100
dim i as integer
for i=0 to N
NO="JJ" & format（now(),"YYYY-MM"）& format（i,"***"）
sheets.print
next i

追问

比如我在EXCEL中A2栏的位置要打印：“字母+年份+月份+流水号”整体是一起的，比如JJ201108-001，这样的，而且每打印一张，数字就自动增加一个，也就是变成JJ201108-002，年份和月份也要自动更新的。具体要怎么写，愚人再问，万分感谢！

追答

Dim mySN As String
Dim i As Integer
For i = 1001 To 9999
mySN = "JJ" & Format(Now, "YYYY") & Format(Now, "MM") & Right(Str(i), 3)
Range("A2").Value = mySN
ActiveSheet.PrintOut
Next i

追问

把上面的代码直接写在模板中吗？

追答

放一个按钮单击事件里面就可以了，不过这个循环很长，可控性也不是很好，放在实际中用肯定要改善一下的，

追问

能否帮忙改一下，就是做个打印按钮，按一次，打印一次，而且编号会自动增加一个的那种。

追答

放在按钮单击事件里
Dim mySN As String
Dim i As Integer
i = 1000 + InputBox("请输入开始序号如001：", "输入框", 1)
Do
mySN = "JJ" & Format(Now, "YYYY") & Format(Now, "MM") & Right(Str(i), 3)
Range("A2").Value = mySN
ActiveSheet.PrintOut
i = i + 1
Loop While MsgBox("是否继续打印?", vbYesNo + vbExclamation) = vbYes

追问

Sub 打印()
ActiveWindow.SelectedSheets.PrintOut
Dim mySN As String
Dim i As Integer
i = i + 1
mySN = "TL" & Format(Now, "YYYY") & Format(Now, "MM") & "-" & Right("00" & i, 3)
Range("K2").Value = mySN
End Sub

您好，我自己改了个按钮，只不过，打印的格式是这样的：“TL201108-001”，每次打印后后面的编号001不能自动变为002,003.。。。递增的效果，请问，怎么修改一下代码？

追答

mySN = "TL" & Format(Now, "YYYY") & Format(Now, "MM") & "-" & Right("00" & i, 3)
这一句改下吧，不然超过10以后会显示**0010的
mySN = "TL" & Format(Now, "YYYY") & Format(Now, "MM") &Right( str(i+1000), 3)
不能自动增加是因为程序本身是没有记忆功能的，每执行一次i都会初始化为0，可以把上次执行到的号码记录在另一个地方，然后当再次执行时再读取出来