Tự động kiểm tra mã NV trong cột

[jackylai]

Chào các bạn,

Mình có một bảng danh sách nhân viên (excel), trong đó có cột mã nhân viên (trích ra trong file đính kèm).
Yêu cầu khi người nhập liệu nhập liệu vào các cell tiếp phía dưới trong cột nếu, mã số đó đã có phía trên thì sẽ hiện báo lỗi mà mã bị trùng
Mình sẽ làm sao nếu dùng VBA?

Rất mong nhận được hồi âm,

 

[nghiaphuc]

Chào các bạn,

Mình có một bảng danh sách nhân viên (excel), trong đó có cột mã nhân viên (trích ra trong file đính kèm).
Yêu cầu khi người nhập liệu nhập liệu vào các cell tiếp phía dưới trong cột nếu, mã số đó đã có phía trên thì sẽ hiện báo lỗi mà mã bị trùng
Mình sẽ làm sao nếu dùng VBA?

Rất mong nhận được hồi âm,

Bạn nháy phải chuột tại nhãn sheet, chọn View code và dán đoạn mã này vào là OK

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    If WorksheetFunction.CountIf(Range([C2], Target), Target.Value) > 1 Then
        MsgBox "Ma nay da ton tai. Hay nhap lai ma khac.", , "Thong bao"
        Target.ClearContents: Target.Select
    End If
End Sub

 

[Hai Lúa Miền Tây]

Bạn nháy phải chuột tại nhãn sheet, chọn View code và dán đoạn mã này vào là OK

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 3 Then Exit Sub
    If WorksheetFunction.CountIf(Range([C2], Target), Target.Value) > 1 Then
        MsgBox "Ma nay da ton tai. Hay nhap lai ma khac.", , "Thong bao"
        Target.ClearContents: Target.Select
    End If
End Sub

Code trên còn một nhược điểm là khi hiệu chỉnh hoặc chèn mã phía trên cell trùng thì nó không cảnh báo.

To jackylai
Sao bạn không dùng Validation cho nó tiện.

 

[anhtotbung35]

Bạn nháy phải chuột tại nhãn sheet, chọn View code và dán đoạn mã này vào là OK

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If WorksheetFunction.CountIf(Range([C2], Target), Target.Value) > 1 Then
MsgBox "Ma nay da ton tai. Hay nhap lai ma khac.", , "Thong bao"
Target.ClearContents: Target.Select
End If
End Sub

Cảm ơn. Mình cũng đang tìm đoạn code này