Kiểm tra nhập trùng bằng Data Validiatiton (1 người xem)

[nonggia.tan]

Mình đang nhập data vào 1 cột và có thông báo lỗi khi nhập trùng data.
Có dòng cho phép nhập nhiều tên, mỗi tên cách nhau bằng dấu ";"
ví dụ :
HOA
HOA;HUE => sau khi bấm enter => thông báo trùng lý do nhập trùng "Hoa"
HUE => sau khi bấm enter => thông báo trùng lý do nhập trùng "Huệ"

 

[befaint]

ví dụ :
(1) HOA
(2) HOA;HUE => sau khi bấm enter => thông báo trùng lý do nhập trùng "Hoa"
(3) HUE => sau khi bấm enter => thông báo trùng lý do nhập trùng "Huệ"

(2) trùng (1) --> Không phân biệt chữ hoa và chữ thường?
(2) trùng với (1) thì sít tốp, không nhập. Chưa biết nhập cái gì vô?
(3) chẳng trùng cái nào vì (2) chưa biết có cái gì. Và "Huệ" luôn luôn khác mấy cái phía trên --> không có chuyện trùng được.

 

[nonggia.tan]

Sorry vì đã mô tả không kỹ:
(1) Không phân biệt chữ thường hoa,
(2) Trùng thì hiện thông báo "Nhập trùng"
(3) "HUE" chứ không phải "Huê"
Cảm ơn bạn Befaint nhiều nhé.
Rất mong nhận được phản hồi từ bạn

 

[befaint]

Sorry vì đã mô tả không kỹ:
(1) Không phân biệt chữ thường hoa,
(2) Trùng thì hiện thông báo "Nhập trùng"
(3) "HUE" chứ không phải "Huê"
Cảm ơn bạn Befaint nhiều nhé.
Rất mong nhận được phản hồi từ bạn

Xét cả chuỗi trong một ô thì công thức mần nổi,
Xét từng chữ trong một ô (kiểu HOA; HUE) thì chắc VBA thôi!

Nghi ngờ cái "ý tưởng"? Nêu bài toán thực tế coi?????

 

[nonggia.tan]

Mình gửi bạn file nhé
Ý tưởng của mình là sử dụng Data Validiation để kiểm tra.
Ở vd này: ở cell 4 nhập HOA nó sẽ hiện ra thông báo. Mình cần khi ở cell 5 mình nhập HUE nó cũng sẽ thông báo như vậy.

 

[phulien1902]

Mình gửi bạn file nhé
Ý tưởng của mình là sử dụng Data Validiation để kiểm tra.
Ở vd này: ở cell 4 nhập HOA nó sẽ hiện ra thông báo. Mình cần khi ở cell 5 mình nhập HUE nó cũng sẽ thông báo như vậy.
View attachment 180861

1 cách để bạn tham khảo:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A999")) Is Nothing Then
        If Application.CountIf(ActiveSheet.Range("A1:A999"), Target.Value) > 1 Then
            MsgBox "DL cua ban da co !", , "Thong bao"
            Target = ""
        End If
    End If
End Sub