Tìm và tô màu các cell đúng theo điều kiện (1 người xem)

[k3nzy]

E có 2 sheet như sau: RenameFolder và Data.
Em muốn lấy:
các kí tự trước dấu - so sánh với giá trị Sheet Data cột 9
các kí tự sau dấu - so sánh với các giá trị ở Sheet Data cột 10

Ví dụ: Nếu 11 = 40 bằng với giá trị ở 2 cột bên Sheet Data thì đổ màu nền cho nó là màu đỏ
Nếu như trong trường hợp có > 2 dòng trùng với điều kiện thì đổ màu cho cell có năm lớn hơn
Trường hợp này mình cần bôi dòng có diện tích = 317.8

Mong được mọi người giúp đỡ ! mình xin up file lên đây ạ , mình xin cảm ơn !

 

[k3nzy]

Hic, ai giúp em với ạ

 

[HungQuoc49]

E có 2 sheet như sau: RenameFolder và Data.
Em muốn lấy:
các kí tự trước dấu - so sánh với giá trị Sheet Data cột 9
các kí tự sau dấu - so sánh với các giá trị ở Sheet Data cột 10

Ví dụ: Nếu 11 = 40 bằng với giá trị ở 2 cột bên Sheet Data thì đổ màu nền cho nó là màu đỏ
Nếu như trong trường hợp có > 2 dòng trùng với điều kiện thì đổ màu cho cell có năm lớn hơn
Trường hợp này mình cần bôi dòng có diện tích = 317.8

Mong được mọi người giúp đỡ ! mình xin up file lên đây ạ , mình xin cảm ơn !

Có lẽ phải nhập lại dữ liệu tại sheet "RenameFolder" mới giải quyết được vì trong cột A:A chỗ thì là chuỗi, chỗ thì là ngày tháng.

 

[k3nzy]

Có lẽ phải nhập lại dữ liệu tại sheet "RenameFolder" mới giải quyết được vì trong cột A:A chỗ thì là chuỗi, chỗ thì là ngày tháng.

Có cách nào để nhập dạng 15-11 với định dạng chuỗi ko bạn? mình viết như thế là nó đã tự hiểu là ngày tháng rồi

 

[HungQuoc49]

Có cách nào để nhập dạng 15-11 với định dạng chuỗi ko bạn? mình viết như thế là nó đã tự hiểu là ngày tháng rồi

Bạn format cells dạng text trước khi nhập xem sao

 

[k3nzy]

Cái này là do mình dùng add-on lấy từ các tên folder ra, nên cứ lấy nó lại tự format sai đi như vậy, Nhưng giả dụ như format của nó là text rồi thì phương án giải quyết như thế nào ạ?

 

[HungQuoc49]

Cái này là do mình dùng add-on lấy từ các tên folder ra, nên cứ lấy nó lại tự format sai đi như vậy, Nhưng giả dụ như format của nó là text rồi thì phương án giải quyết như thế nào ạ?

Chạy đọan code này
Nhấn vào mũi tên màu xanh

Public Sub ToMau()
Dim Nguon, Tam, r As Long

Application.ScreenUpdating = False
Nguon = Sheets("Data").UsedRange
With CreateObject("Scripting.Dictionary")
For r = 1 To UBound(Nguon)
Tam = Nguon(r, 9) & "-" & Nguon(r, 10)
If Not .exists(Tam) Then
.Add Tam, Split(r & " " & Nguon(r, 14))
Else
Tam = .Item(Nguon(r, 9) & "-" & Nguon(r, 10))
If Nguon(r, 14) > Val(Tam(1)) Then
Tam(0) = r: Tam(1) = Nguon(r, 14)
.Item(Nguon(r, 9) & "-" & Nguon(r, 10)) = Tam
End If
End If
Next r

Nguon = Sheets("RenameFolder").UsedRange
Sheets("Data").UsedRange.Interior.ColorIndex = xlNone
For r = 1 To UBound(Nguon)
If .exists(Nguon(r, 1)) Then
Sheets("Data").UsedRange.Rows(Val(.Item(Nguon(r, 1))(0))).Interior.ColorIndex = 6
End If
Next r
End With
Application.ScreenUpdating = True
End Sub

Xem file đính kèm
---
Nếu kết quả có nhiều năm thì sẽ lấy cái có số thứ tự dòng lớn nhất