在 Excel中怎么让他自动更改单号

来源：百度知道 编辑：UC知道 时间：2024/05/04 21:34:42
大体意思是让他每保存一次增加一个单号 如这次是QZCK000001下一次就是QZCK000002

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim x, y, z
x = Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
If x = 0 Then
Sheet1.Cells(1, 1) = "QZCK000001"
Else
z = Val(Right(Sheet1.Cells(x, 1), 6))
y = Application.WorksheetFunction.Rept(0, 6 - Len(z)) & Application.WorksheetFunction.Sum(z, 1)
Sheet1.Cells(x + 1, 1) = "QZCK" & y
End If

End Sub

要在Beforsave事件中写入此代码哦

自己写一个宏，打开一下就更改一次就行了。