Validation mất tác dụng khi past dữ liệu vào (1 người xem)

[thcs123]

Tôi thiết lập Validation để bẫy lỗi . Tuy nhiên dữ liệu khi dùng lệnh copy và past từ nơi khác vào thì Validaton mất tác dụng bẫy lỗi (nhập vào thì được) . Xin các anh em hướng dẫn cách khắc phục .

 

[ndu96081631]

Tôi thiết lập Validation để bẫy lỗi . Tuy nhiên dữ liệu khi dùng lệnh copy và past từ nơi khác vào thì Validaton mất tác dụng bẫy lỗi (nhập vào thì được) . Xin các anh em hướng dẫn cách khắc phục .

Xin thưa rằng: Hổng có cách khắc phục nào cho trường hợp này cả, trừ phi dùng VBA

 

[thcs123]

Xin cảm ơn ndu96081631 , anh có thể hướng dẫn cho cách dùng VBA cho ví dụ trên , để có thể học hỏi thêm .

 

[ndu96081631]

Xin cảm ơn ndu96081631 , anh có thể hướng dẫn cho cách dùng VBA cho ví dụ trên , để có thể học hỏi thêm .
http://www.giaiphapexcel.com/forum/member.php?61139-ndu96081631

Dùng sự kiện Worksheet_Change thôi

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Clls As Range
  On Error GoTo ExitSub
  If Not Intersect(Range("E1:E6"), Target) Is Nothing Then
    For Each Clls In Intersect(Range("E1:E6"), Target)
      If Clls.Value <> "A" Then Clls.ClearContents
    Next
  End If
ExitSub:
End Sub

Cứ nhập hoặc copy paste gì đó vào vùng E1:E6 mà dữ liệu không phải là "A" thì nó sẽ tự xóa