Giúp đỡ cách hiển thị dữ liệu trùng lặp (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

phamvienthong

Thành viên chính thức
Tham gia
8/8/17
Bài viết
69
Được thích
9
Giới tính
Nam
Em chào mọi người!

Em có một bảng dữ liệu (File đính kèm). Ở cột A em có nhập mã (tên viết tắt) của các loại vật tư.

Em muốn nhờ mọi người giúp em cách làm sao để các mã vật tư em nhập vào cột A không bị trùng lặp, tức là ví dụ như ở ô A1 em nhập mã vật tư là "o pvc 27" thì chỉ có ở ô duy nhất đó là không định dạng màu, còn lại nếu có bất kỳ ô thứ hai nào trở đi, bị trùng tên với ô A1, thì sẽ lập tức hiển thị màu đỏ, tương tự tới các mã vật tư khác.

Mong mọi người giúp đỡ em cảm ơn!
 

File đính kèm

Em chào mọi người!

Em có một bảng dữ liệu (File đính kèm). Ở cột A em có nhập mã (tên viết tắt) của các loại vật tư.

Em muốn nhờ mọi người giúp em cách làm sao để các mã vật tư em nhập vào cột A không bị trùng lặp, tức là ví dụ như ở ô A1 em nhập mã vật tư là "o pvc 27" thì chỉ có ở ô duy nhất đó là không định dạng màu, còn lại nếu có bất kỳ ô thứ hai nào trở đi, bị trùng tên với ô A1, thì sẽ lập tức hiển thị màu đỏ, tương tự tới các mã vật tư khác.

Mong mọi người giúp đỡ em cảm ơn!
Bạn xem thử, công thức ở ô conditional formatting
 

File đính kèm

Upvote 0
Upvote 0
Em chào mọi người!

Em có một bảng dữ liệu (File đính kèm). Ở cột A em có nhập mã (tên viết tắt) của các loại vật tư.

Em muốn nhờ mọi người giúp em cách làm sao để các mã vật tư em nhập vào cột A không bị trùng lặp, tức là ví dụ như ở ô A1 em nhập mã vật tư là "o pvc 27" thì chỉ có ở ô duy nhất đó là không định dạng màu, còn lại nếu có bất kỳ ô thứ hai nào trở đi, bị trùng tên với ô A1, thì sẽ lập tức hiển thị màu đỏ, tương tự tới các mã vật tư khác.

Mong mọi người giúp đỡ em cảm ơn!
Thử cách này:

Chọn vùng của cột A cần đánh dấu, trên Ribbon vào Home > conditional-formatting > Highlight Cells Rules > Duplicate Values...Hiển thị hộp thoại Duplicate Values, vào mũi tên (bên phải) mục Values with chọn Light Red Fill hay Light Red with Dark Red Text, xong nhấn OK.
 
Upvote 0
Sao mình nhìn nó ra sao sao ấy, bạn xem lại xem :D
Híc nhìn nhầm rồi :D
Chữ true, false bạn để nguyên không cần trong dâu "" với không cần if đâu so sánh ngang nó tự ra true false rồi:
=COUNTIF($A$1:A1,$A1)>1
Thử cách này:

Chọn vùng của cột A cần đánh dấu, trên Ribbon vào Home > conditional-formatting > Highlight Cells Rules > Duplicate Values...Hiển thị hộp thoại Duplicate Values, vào mũi tên (bên phải) Values with chọn Light Red with Dark Red Text, xong nhấn OK.
Dạ vâng, em cảm ơn mọi người rất nhiều ạ. Để em nghiên cứu thử! Có nhiều cách hay quá, em hơi rối! Do lâu quá nên em bị lụt nghề, mất hết kiến thức!
 
Lần chỉnh sửa cuối:
Upvote 0
Sao mình nhìn nó ra sao sao ấy, bạn xem lại xem :D
Híc nhìn nhầm rồi :D
Chữ true, false bạn để nguyên không cần trong dâu "" với không cần if đâu so sánh ngang nó tự ra true false rồi:
=COUNTIF($A$1:A1,$A1)>1
Hình như cách của Anh giống như cách của em thì phải?
Em cảm ơn Anh!

p/s: Anh nghiên cứu VBA tới đâu rồi Anh?
 
Upvote 0
Upvote 0
Bổ sung cho thớt 1 cách sử dụng vba : Alt + F11 rồi klick vào sheet1 dán caí này vô
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long, i As Long, j As Long

If Target.Column = 1 Then
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
  For j = i + 1 To lastrow
      If Cells(i, 1) = Cells(j, 1) Then
        Cells(j, 1).Interior.Color = vbRed
        Cells(i, 1).Interior.Color = vbRed
        MsgBox "duplicate tai dia chi: " & Cells(i, 1).Address & " va " & Cells(j, 1).Address
      End If
  Next j
Next i
End If
End Sub
 
Upvote 0
Bổ sung cho thớt 1 cách sử dụng vba : Alt + F11 rồi klick vào sheet1 dán caí này vô
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long, i As Long, j As Long

If Target.Column = 1 Then
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
  For j = i + 1 To lastrow
      If Cells(i, 1) = Cells(j, 1) Then
        Cells(j, 1).Interior.Color = vbRed
        Cells(i, 1).Interior.Color = vbRed
        MsgBox "duplicate tai dia chi: " & Cells(i, 1).Address & " va " & Cells(j, 1).Address
      End If
  Next j
Next i
End If
End Sub
Vâng mình cảm ơn nhiều ạ! ^_^
 
Upvote 0
Bổ sung cho thớt 1 cách sử dụng vba : Alt + F11 rồi klick vào sheet1 dán caí này vô
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long, i As Long, j As Long

If Target.Column = 1 Then
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
  For j = i + 1 To lastrow
      If Cells(i, 1) = Cells(j, 1) Then
        Cells(j, 1).Interior.Color = vbRed
        Cells(i, 1).Interior.Color = vbRed
        MsgBox "duplicate tai dia chi: " & Cells(i, 1).Address & " va " & Cells(j, 1).Address
      End If
  Next j
Next i
End If
End Sub

Có chừng chục cái "duplicate tai dia chi: " thì nhấn "Ok" mệt nghỉ.

Vả lại code này nó chỉ bôi đỏ phần trùng lặp nhưng khong tháo ra.
Ví dụ bạn bị trùng lặp, sửa lại thì nó vẫn còn đỏ
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom