如何让单号在清空的时候自动更新下一个

冻果麻麻

请教各路大神，如何让单号在清空的时候自动更新新的单号，日期也随着时间有变动。

laterite

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If [K24] = 0 Then [l10] = "" Else [l10] = "=TODAY()"
    Application.EnableEvents = True
End Sub

3190496160

Sub 清空()
With Sheets("出入库明细")
    r = .Cells(Rows.Count, 5).End(xlUp).Row
    zd = Format(Date, "yyyymmdd")
    For i = r To 9 Step -1
        If InStr(.Cells(i, 5), zd) > 0 Then
            h = i
            Exit For
        End If
    Next i
    If h = "" Then
        xh = 1
    Else
        xh = Val(Right(.Cells(h, 5), 3)) + 1
    End If
End With
With Sheets("表单录入")
   .[E9] = ""
   .[E10] = ""
   .[I9] = ""
   .[I10] = ""
   .[E12:l23] = ""
   .[l9] = zd & "-" & Format(xh, "000")
   .[l10] = Date
End With
MsgBox "已完成!"
End Sub

3190496160

(已瘦身)出入库管理系统.rar (975.99 KB, 下载次数: 16)

2024-1-19 12:45 上传

点击文件名下载附件