怎样excel自动生成单号

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

2024-10-28 12:20:13

推荐回答（3个）

回答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

回答2：

只能用VBA设个程序。

回答3：

有更详细的规定，以做