excel做个销售单，怎样自动插入单号

Question

excel做个销售单，比如要在A1自动生成单号，要按照当天日期，比如201205190001，打印后自动增加1，想每天打开就直接生成当天的第一个单号

Answer 1

自己做个打印按钮
Sub myprint()
Dim x As String
If Application.Dialogs(xlDialogPrint).Show = True Then
x = Sheet1.Range("A1")
x = x + 1
Sheet1.Range("A1") = x
End If
End Sub

生成单号就在thisworkbook插入下边的代码就可以了
Private Sub Workbook_Open()
Dim a As String
Sheet1.Range("A1").NumberFormatLocal = "@"
If Month(Date) < 10 Then
a = Year(Date) & 0 & Month(Date) & Day(Date) & "0001"
Else
a = Year(Date) & Month(Date) & Day(Date) & "0001"
End If
If Left(Sheet1.Range("a1"), 8) <> Left(a, 8) Then
Sheet1.Range("a1") = a
End If
End Sub追问

代码插入没反应啊，还需要怎么设置吗，还有打印按钮怎么做啊，谢谢啦

追答

不会插入按钮 直接执行宏也可以
下边的代码 要重新打开的时候才执行

Answer 2

这个需要使用VBA才可以办到

Answer 3

每天打开倒是可以显示201205190001，但是打印则加1就有点困难。
你可以将销售单放在一个表格中，然后在新创建一个表格。用按钮操作一个表格，点击下一页就加1这样也可以。
其实还是可行的。要不你把数据截个图，我看看。

Answer 4

好像有个自动编号功能，但我没用过。推荐还是用Access
要不你就把要填充编号的单元格的格式调整为文本类型，这此列的第一个单元格中输入“1”然后把光标放在单元格的左下角，光标变成黑色十字形再往下拉它就会从1一直自动编排到你想要的编号。希望你有所帮助吧!

Answer 5

貌似不行