Nhập trùng dữ liệu 1 trong 2 cột thì hiện hộp thoại thông báo (1 người xem)

[van80]

Chào các anh, chị trên diễn đàn !
Nhờ anh, chị viết dùm code trong vba nhập trùng dữ liệu thì hiện hộp thoại thông báo.
Nội dung yêu cầu tôi đã trình bày rõ trong file đính kèm.
Xin trích dẫn như sau:
Danh sách tôi nhập liệu lên tới hàng ngàn học sinh, mà mỗi học sinh mang 2 mã số, mã số thứ 1 là số PC mã số thứ 2 là số hộ. Trong quá trình nhập liệu chắc chắn sẽ bị trùng 1 trong 2 mã số nói trên. Nếi bị trùng 1 trong 2 mã số nói trên thì hiện hộp thoại thông báo và xóa mã số vừa nhập.
File đính kèm:View attachment file.xls
Trân trọng cám ơn !

 

[nhapmon]

bạn xem file nay thử có đúng ý bạn ko,
ngoài ra bạn có thể dùng condition formatting để tìm ra số trùng

 

[Luc Van]

Chào các anh, chị trên diễn đàn !
Nhờ anh, chị viết dùm code trong vba nhập trùng dữ liệu thì hiện hộp thoại thông báo.
Nội dung yêu cầu tôi đã trình bày rõ trong file đính kèm.
Xin trích dẫn như sau:
Danh sách tôi nhập liệu lên tới hàng ngàn học sinh, mà mỗi học sinh mang 2 mã số, mã số thứ 1 là số PC mã số thứ 2 là số hộ. Trong quá trình nhập liệu chắc chắn sẽ bị trùng 1 trong 2 mã số nói trên. Nếi bị trùng 1 trong 2 mã số nói trên thì hiện hộp thoại thông báo và xóa mã số vừa nhập.
File đính kèm:View attachment 102875
Trân trọng cám ơn !

Bạn thử cách này xem. Cái này cần gì dùng code hay VBA gì. Mình dùng data validation

 

[thanh tong]

BẠN VÀO ĐÂY NÀY: http://www.giaiphapexcel.com/forum/showthread.php?81277-C%E1%BA%A7n-gi%C3%BAp-code-th%C3%B4ng-b%C3%A1o-d%E1%BB%AF-li%E1%BB%87u-tr%C3%B9ng

 

[van80]

bạn xem file nay thử có đúng ý bạn ko,
ngoài ra bạn có thể dùng condition formatting để tìm ra số trùng

Cám ơn bạn nhapmon !
khi nhập trùng có hiện hộp thoại thông báo, khi lick vào lệnh OK tại sao không xóa dữ liệu trùng hả bạn ?
bạn giúp dùm mình vấn đề này đi.
Thân chào bạn.

 

[hungpecc1]

Cám ơn bạn nhapmon !
khi nhập trùng có hiện hộp thoại thông báo, khi lick vào lệnh OK tại sao không xóa dữ liệu trùng hả bạn ?
bạn giúp dùm mình vấn đề này đi.
Thân chào bạn.

Thì thêm 1 biến xác định giá trị vbok thôi mà :
^^Tự ý thêm vào code của bạn nhapmon <----------- mong bạn đừng giận nha !
[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Found As Range, chk As Long
Application.EnableEvents = False
Set Found = Range("E5:F10000").Find(Target.Value)
If Not Found Is Nothing And Found.Address <> Target.Address Then
chk = MsgBox("Trung voi cell " & Found.Address)
If chk = vbOK Then Target.ClearContents
End If
Application.EnableEvents = True
End Sub
[/GPECODE]

 

[van80]

Thì thêm 1 biến xác định giá trị vbok thôi mà :
^^Tự ý thêm vào code của bạn nhapmon <----------- mong bạn đừng giận nha !
[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Found As Range, chk As Long
Application.EnableEvents = False
Set Found = Range("E5:F10000").Find(Target.Value)
If Not Found Is Nothing And Found.Address <> Target.Address Then
chk = MsgBox("Trung voi cell " & Found.Address)
If chk = vbOK Then Target.ClearContents
End If
Application.EnableEvents = True
End Sub
[/GPECODE]

Cám ơn bạn hungpecc1 rất nhiều !