经验直达：
- excel如何给单据编号
- 怎样excel自动生成单号
一、excel如何给单据编号
步骤1：单击“开发工具”>>>插入>>>ActiveX控件>>>命令按钮，然后在工作表要放置按钮的地方 ， 按住鼠标左键，划出一个矩形，就插入了一个命令按钮控件 。
步骤2：右击命令按钮>>>属性
步骤3：把Caption属性改为要显示的字符，如“编号增加”，再关闭“属性”对话框 。
步骤4：右击控件>>>查看代码，Excel会自动打开VBA编辑器，输入代码后关闭VBA编辑器 。
【怎样excel自动生成单号 excel如何给单据编号】Private Sub CommandButton1_Click()
Dim num
If Len([F2]) = 0 Then
num = 1
ElseIf Format(Date, "yyyymmdd") = Left([F2], 8) Then
num = Right([F2], 2)1
Else
num = 1
End If
num = Format(Date, "yyyymmdd") & Format(num, "00")
[F2] = num
End Sub
步骤5：单击“设计模式”以退出设计模式 ， 再单击“编辑增加”按钮，就会自动编辑增加 。
二、怎样excel自动生成单号
在a1输入NO.KG00001，按alt f11，双击左上窗口的thisworkbook，复制以下代码粘贴，关闭窗口回到表格 ， 下次打开表格就自动出单号 。如果不想在a1生单号，可以改在其他单元格，稍微改下代码就行 。
Private Sub Workbook_Open()
Dim a
a = Mid(Cells(1, 1), 6, 5)
a = a1
If a < 10 Then
Cells(1.1) = "NO.KG" & "0000" & a
ElseIf a < 100 Then
Cells(1.1) = "NO.KG" & "000" & a
ElseIf a < 1000 Then
Cells(1.1) = "NO.KG" & "00" & a
ElseIf a < 10000 Then
Cells(1.1) = "NO.KG" & "0" & a
ElseIf a < 100000 Then
Cells(1.1) = "NO.KG" & a
End If
End Sub