Sau 1 tháng Mã Lại reset về 1 trở lên (2 người xem)

[Bảo_Anh_]

Em có code tạo mã theo ngày chạy được,các bác ghé qua giúp em như tiêu đề nhé!

 

[ongke0711]

Em có code tạo mã theo ngày chạy được,các bác ghé qua giúp em như tiêu đề nhé!

Tôi không biết dùng Range.Find nên dùng cách duyệt mảng.

Function TaomaCT(maCT As String) As String
    Dim lrow As Long, arrData(), i As Long
    Dim nam As Long, thang As Long, stt As Long, sttMax As Long, maCT_tk As String, maCTMoi As String

    lrow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
    arrData = Sheets("Sheet1").Range("A2:A" & lrow).Value
    curyear = Year(Date): curmonth = Month(Date)
    'curyear = Sheet1.Range("E2"): curmonth = Sheet1.Range("D2") '<-- testing
    sttMax = 1
    For i = 1 To UBound(arrData)
        nam = CLng("20" & Left(arrData(i, 1), 2)): thang = CLng(Mid(arrData(i, 1), 3, 2)): stt = CLng(Right(arrData(i, 1), 3))
        maCT_tk = Mid(arrData(i, 1), 8, 1)
        If nam = curyear And thang = curmonth And maCT_tk = UCase(maCT) Then
            If stt > sttMax Then sttMax = stt
        End If
    Next
    TaomaCT = Format(Date, "yymmdd-") & UCase(maCT) & Right("000" & sttMax + 1, 3)
    'TaomaCT = Format(DateSerial(curyear, curmonth, Day(Date)), "yymmdd-") & UCase(maCT) & Right("000" & sttMax + 1, 3) '<-- testing
End Function