作者：乔山办公网日期：
返回目录：excel表格制作
要使用VBA程序，写知入道以下代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x As Integer
x = Val(Right(Sheet1.Cells(1, 1), Len(Sheet1.Cells(1, 1)) - 3))
Sheet1.Cells(1, 1) = "NO:" & WorksheetFunction.Text(x + 1, "000000")
End Sub
其中000000个数根据版需权要设置。
在抄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