Tránh Nhập trùng, nếu có nhập trùng báo lỗi.

[DUONGKHALY]

Mời các bác xem yêu cầu trong file dùm em. Cảm ơn trước.

 

[nghiaphuc]

Nhìn vào biết ngay đây là bài toán phân công chuyên môn

Mời các bác xem yêu cầu trong file dùm em. Cảm ơn trước.

Đồng nghiệp sử dụng code này nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C4:CD23]) Is Nothing Then Exit Sub
    If WorksheetFunction.CountA(Intersect(Target.EntireColumn, [4:23])) > 1 Then
        MsgBox "Lop nay da duoc phan cong giang day."
        Target.ClearContents
    End If
End Sub