RE: Tìm và tự động nhập dự liệu từ excel và table hoặc query
DustWind > 16-11-13, 08:59 AM
Nếu như dùng Excel thì có 2 methods:
1- Highlight Column B, click vào Condition và dùng Countif
2- Dùng VBa, paste code Envent này vào ThisWorbook
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If Target.Column = 2 Then
If Application.CountIf(Columns(2), Target) > 1 Then
'//If duplicate found notify user
intResponse = MsgBox(Prompt:="DUPLICATE Value !!!!!", Title:="DUPLICATES NOT ALLOWED")
End If
End If
End Sub
Sở dĩ dùng Event là để mỗi khi ai type vàp cột B mà trùng thì nó báo liền, ko phải đợi check mới biết