Tạo mã số thứ tự tăng dần nhưng theo điều kiện (1 người xem)

[khuongnguyencm69]

Em mới tự học VBA nên còn cùi mía lắm, em có vấn đề thế này mà mấy ngày rồi em không làm được. Em muốn lập số thứ tự tăng dần nhưng phải có điều kiện là ở cột tên khách hàng và ngày lấy hàng giống nhau thì số thứ tự là 001, nếu khác nhau thì tăng một đơn vị là 002,.... Em có gửi file đính kèm, cái cột STT mà em tô màu đỏ! Mong các anh/chị cao thủ chỉ bảo ạ!

 

[quanluu]

Em mới tự học VBA nên còn cùi mía lắm, em có vấn đề thế này mà mấy ngày rồi em không làm được. Em muốn lập số thứ tự tăng dần nhưng phải có điều kiện là ở cột tên khách hàng và ngày lấy hàng giống nhau thì số thứ tự là 001, nếu khác nhau thì tăng một đơn vị là 002,.... Em có gửi file đính kèm, cái cột STT mà em tô màu đỏ! Mong các anh/chị cao thủ chỉ bảo ạ!

Bạn thử code này

Sub STT()
Dim i As Integer, dem As Integer
For i = 2 To 10
    If Cells(i, 2) <> Cells(i - 1, 2) And Cells(i, 3) <> Cells(i - 1, 3) Then dem = dem + 1
    Cells(i, 1) = "00" & dem
Next i
End Sub

 

[khuongvietphong]

Sub STT()
Dim i As Integer, k As Long
For i = 2 To 9
    If WorksheetFunction.CountIfs(Range("B2:B" & i), Cells(i, 2), Range("C2:C" & i), Cells(i, 3)) = 1 Then
       k = k + 1
    End If
    Cells(i, 1) = Format(k, "000")
   
Next i
End Sub

 

[Lê Duy Thương]

Em mới tự học VBA nên còn cùi mía lắm, em có vấn đề thế này mà mấy ngày rồi em không làm được. Em muốn lập số thứ tự tăng dần nhưng phải có điều kiện là ở cột tên khách hàng và ngày lấy hàng giống nhau thì số thứ tự là 001, nếu khác nhau thì tăng một đơn vị là 002,.... Em có gửi file đính kèm, cái cột STT mà em tô màu đỏ! Mong các anh/chị cao thủ chỉ bảo ạ!

công thức cho a2 , định dang cho số là 000

=IF(COUNTIFS($B$1:$B2,$B2,$C$1:$C2,$C2)<=1,MAX($A$1:$A1)+1,$A1)

 

[khuongnguyencm69]

Em cám ơn anh nhiều lắm ạ