Bạn thử nhé.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, srng As Range
Application.EnableEvents = False
If Target.Column = 1 Then
Set rng = Sheets("sheet1").Range("A1:A5")
Set srng = rng.Find(Target.Value, , xlFormulas, xlWhole)
If srng Is Nothing Then
MsgBox "Ma sv khong co"
Target.Value = Empty
End If
End If
Application.EnableEvents = True
End Sub
làm biến trả lời tầm bậy nữa. Thế họ copy ở ngoài họ dán vô thì sao, hoặc gõ 1 từ tại ô A1 sau đó họ bôi đen từ A1 xuống A5 rồi nhấn Ctrl +D để cho nó Fill xuống thì "Data Validation" cũng bó tay
thế nếu copy paste, hoặc họ gõ 1 từ tại A1 sau đó bôi đen A1:A5 nhấn Ctrl + D thì có hiện thông báo không em
họ copy vào passte vào thì sao a
Theo thông lệ của dân chuyên nghiệp, bạn cũng nên giải thích cho người dùng biết mình nhập cái gì mà không có. Empty mất đất rồi người ta lấy gì check.
làm biến trả lời tầm bậy nữa. Thế họ copy ở ngoài họ dán vô thì sao, hoặc gõ 1 từ tại ô A1 sau đó họ bôi đen từ A1 xuống A5 rồi nhấn Ctrl +D để cho nó Fill xuống thì "Data Validation" cũng bó tay . Vui lòng cho tôi xem phương án FiX lổi này triệt để 100% ( Lúc trước có nghe nói làm Manager Projet code c++ mà ) thử trổ tài nghe thử đúng không @VetMini
Validation chỉ hỗ trợ nhập trực tiếp còn copy kéo hay crtl D không đc ạ
Trong yêu cầu dưới đây. Bạn chỉ giùm tôi chỗ "copy kéo" hay "ctrl D".
https://streamable.com/xgapya
bạn thử cái này được chưa. Thử nhập vào cột B, Cho dù copy hay Ctrl D vẩn hiện thông báo
file bị lỗi ạ. sao thanh công cụ mất hết
bác ơi, đối với trường hợp dùng hàm lấy dữ liệu từ 1 cột khác hay sheet khác thì code này không hoạt động ạ.
Thì code của mình không cho copy và Ctrl + D đó. bạn chỉ gõ trực tiếp từ bàn phím thôi
