Đánh số thứ tự

[lp0042019.dkdn]

Chào các anh chị
Mình nhờ các anh chị viết giúp mình code VBA để đánh số thứ tự , với điều kiện mã nhân viên trống thì số thứ tự =0, nếu trùng mã nhân viên thì cùng số thứ tự. Cảm ơn các anh chị.

 

[Hoàng Tuấn 868]

Chào các anh chị
Mình nhờ các anh chị viết giúp mình code VBA để đánh số thứ tự , với điều kiện mã nhân viên trống thì số thứ tự =0, nếu trùng mã nhân viên thì cùng số thứ tự. Cảm ơn các anh chị.

Dùng tạm hàm nhé, bạn xem thử.

 

[lp0042019.dkdn]

Dùng tạm hàm nhé, bạn xem thử.

Cảm ơn bạn, bạn có code VBA không cho mình xin với.

 

[PacificPR]

Cảm ơn bạn, bạn có code VBA không cho mình xin với.

Bạn qua đây tham khảo

 

[Hoàng Tuấn 868]

Cảm ơn bạn, bạn có code VBA không cho mình xin với.

Mình lại không có code này bạn ạ.

 

[lp0042019.dkdn]

Bạn qua đây tham khảo

Cảm ơn bạn, mình có tham khảo rồi nhưng không thấy cái nào giống với mong muốn của mình, những dòng nào không có mã thì số thứ tự =0, nhưng những code đó ="", bạn sửa giúp mình nhé

 

[PacificPR]

Cảm ơn bạn, mình có tham khảo rồi nhưng không thấy cái nào giống với mong muốn của mình, những dòng nào không có mã thì số thứ tự =0, nhưng những code đó ="", bạn sửa giúp mình nhé

Bạn tìm chỗ nào có "" thì cho nó bằng 0 thử

 

[hunglam123]

Cảm ơn bạn, bạn có code VBA không cho mình xin với.

Sub Macro1()

      Range("E6:e1000") = "=IF(RC[1]="""",0,IF(COUNTIF(R6C6:RC[1],RC[1])=1,MAX(R5C5:R[-1]C)+1,LOOKUP(2,1/(RC[1]=R5C6:R[-1]C[1]),R5C5:R[-1]C)))"
     Range("E6:e1000").Value = Range("E6:e1000").Value
End Sub