Đánh số thứ tự theo tháng !

[darkmoon]

Em nhập liệu trên form, có các textbox là ngày chứng từ, và số chứng từ. Combo là mã nghiệp vụ. Em gắn biến cố AfterUpdate cho combo box là số chứng từ sẽ tự động nhảy theo dạng mã nghiệp vụ-mmyy-số .
mã nghiệp vụ: lấy từ combo mã nghiệp vụ
mmyy: lấy từ textbox ngày chứng từ

Mã nghiệp vụ thì em ko bàn tới nhưng cho em hỏi em muốn đánh số thứ tự tự động theo tháng thì em phải làm thế nào ạ ?
Ví dụ tháng 7 số chứng từ có dạng là 0707-01.... đến 10, sang tháng 8, tự động đánh số là 0807-01. Nếu nhập lại tháng 7 thì tự động đánh số là 0707-11.

Em xin cám ơn ạ

 

[ThuNghi]

Bạn thử dùng code sau

Private Sub Txb1_AfterUpdate()
If Not IsDate(Txb1.Value) Then
    MsgBox "Ngay khong hop le"
    'Txb1.SetFocus
Else
    Cells(3, 2).Value = Right(Year(Txb1), 2) & Right("0" & Month(Txb1), 2)
    Cells(3, 3).FormulaArray = "=MAX(IF(LEFT(SoCT,4)=R3C2,RIGHT(SoCT,2),0)+1)"
    Txb2.Value = Cells(3, 2).Value & "-" & Cells(3, 3).Value
End If
End Sub

Tạm thời chưa nghỉ ra cái gì hay thì dùng tạm nhé.

Soct: =OFFSET(Sheet1!$A$2:$A$1000,0,0,COUNTA(Sheet1!$A$2:$A$1000),1)