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

自己做个打印按钮
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

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

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

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

貌似不行