怎样excel自动生成单号

Question

例如：由NO.KG00001在下一次开表格时会自动弹出KG00002以此类推！

Answer 1

在a1输入NO.KG00001，按alt+f11，双击左上窗口的thisworkbook，复制以下代码粘贴，关闭窗口回到表格，下次打开表格就自动出单号。如果不想在a1生单号，可以改在其他单元格，稍微改下代码就行。

Private Sub Workbook_Open()
Dim a
a = Mid(Cells(1, 1), 6, 5)
a = a + 1
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

Answer 2

只能用VBA设个程序。追问

怎么设置啊？可否教我详细的流程...在百度看了，就是看不懂！！！

Answer 3

有更详细的规定，以做