怎样excel自动生成单号

发布网友发布时间：2022-04-25 14:27

共3个回答

热心网友时间：2023-10-09 02:49

在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

热心网友时间：2023-10-09 02:49

只能用VBA设个程序。追问怎么设置啊？可否教我详细的流程...在百度看了，就是看不懂！！！

热心网友时间：2023-10-09 02:50

有更详细的规定，以做