Làm sao báo khi có dữ liệu trùng

[790312]

Thí dụ mình có 1 cột dữ liệu:
1
2
3
4
5
a
nếu a là số từ 1-5 thì báo trùng,Xin chân thành cảm ơn.

 

[DOSNET]

Giả sử dữ liệu ở cột A, a ở ô A6, bạn dùng công thức này !

=IF(COUNTIF(A1:A5,A6)<>0, "trùng","không trùng")

 

[TKT]

Bạn xem file đính kèm

 

[790312]

Giả sử dữ liệu ở cột A, a ở ô A6, bạn dùng công thức này !

Ý mình không phải vậy.thí dụ ta có 1 cột A1 thì những số đã hiện ở hàng trên rồi thì hàng dưới bất kỳ nếu nhập số nào đã có ở hàng trên rồi thì báo trùng.

 

[DOSNET]

Ý mình không phải vậy.thí dụ ta có 1 cột A1 thì những số đã hiện ở hàng trên rồi thì hàng dưới bất kỳ nếu nhập số nào đã có ở hàng trên rồi thì báo trùng.

Thì cũng là tuỳ biến của COUNTIF thôi mà bạn, tham khảo bài của bác 090TRI bên trên.
- Bài của bác TRI thừa một cái IF, chỉ như này là đủ

B9=IF(COUNTIF($C$9:$C$100,A9)>1,"Trùng số","")

 

[hoangdanh282vn]

Thí dụ mình có 1 cột dữ liệu:
1
2
3
4
5
a
nếu a là số từ 1-5 thì báo trùng,Xin chân thành cảm ơn.

Bạn xem file VD minh họa này thử nha

 

[anhtruong397]

Ý mình không phải vậy.thí dụ ta có 1 cột A1 thì những số đã hiện ở hàng trên rồi thì hàng dưới bất kỳ nếu nhập số nào đã có ở hàng trên rồi thì báo trùng.

Bạn thử làm theo như vậy xem có đúng ý bạn không nha

 

[SA_DQ]

Thêm một tham khảo bằng VBA cho bạn

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range, Clls As Range
  Set Rng = Range(Cells(1, Target.Column), Target.Offset(-1))
  Set Clls = Rng.Find(Target, LookIn:=xlValues)
  If Not Clls Is Nothing Then MsgBox "Da Co"

End Sub

 

[Hai Lúa Miền Tây]

Đoạn code trên rất tuyệt vời, nhưng để cho nó không báo lỗi khi chúng ta xóa trống hết dữ liệu cũng như chưa có dữ liệu mà ta nhập vào, xin được phép chèn thêm dòng code sau:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Rng As Range, Clls As Range
Set Rng = Range(Cells(1, Target.Column), Target.Offset(-1))
Set Clls = Rng.Find(Target, LookIn:=xlValues)
If Not Clls Is Nothing Then MsgBox "Da Co"
End Sub

 

[cadafi]

Đoạn code trên rất tuyệt vời, nhưng để cho nó không báo lỗi khi chúng ta xóa trống hết dữ liệu cũng như chưa có dữ liệu mà ta nhập vào, xin được phép chèn thêm dòng code sau:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Rng As Range, Clls As Range
Set Rng = Range(Cells(1, Target.Column), Target.Offset(-1))
Set Clls = Rng.Find(Target, LookIn:=xlValues)
If Not Clls Is Nothing Then MsgBox "Da Co"
End Sub

Mình có thấy gì đâu bạn, nó vẫn báo lỗi khi xóa 1 cell nào đó mà.
Mà Resume Next mà mình đâu có thấy label nào tên Next cả?