Rắc rối với lệnh tô màu (1 người xem)

[PhuongThaoQN]

Rất mong sớm nhận được sự giúp đỡ của các bạn.

Dữ liệu của mình nằm trên sheet 2 (cột A), và trên sheet 1 ( cột A).
Nhiệm vụ của macro rất đơn giản: Tìm kiếm trên sheet 1 ( cột A) , ô nào có giá trị bằng với một ô được tô màu đen trên cột A của sheet 2 thì ô trên sheet 1 sẽ được tô màu đen.

Các bạn xem qua file của mình và macro mình đã viết, xem giúp mình, lỗi sai của mình là gì và phải sửa như thế nào?
Cảm ơn các bạn

http://www.mediafire.com/?d2zhucjjlp41hxb

 

[huuthang_bd]

Rất mong sớm nhận được sự giúp đỡ của các bạn.

Dữ liệu của mình nằm trên sheet 2 (cột A), và trên sheet 1 ( cột A).
Nhiệm vụ của macro rất đơn giản: Tìm kiếm trên sheet 1 ( cột A) , ô nào có giá trị bằng với một ô được tô màu đen trên cột A của sheet 2 thì ô trên sheet 1 sẽ được tô màu đen.

Các bạn xem qua file của mình và macro mình đã viết, xem giúp mình, lỗi sai của mình là gì và phải sửa như thế nào?
Cảm ơn các bạn

http://www.mediafire.com/?d2zhucjjlp41hxb

Dùng Conditional Formatting với Macro4 cũng được.
Nếu kết quả chưa đúng thì nhấn F9 một phát nha.

 

[PhuongThaoQN]

Dùng Conditional Formatting với Macro4 cũng được.
Nếu kết quả chưa đúng thì nhấn F9 một phát nha.

Cám ơn bạn đã trả lời bài viết và đưa ra một giải pháp khá tiện lợi, tuy nhiên mình muốn hỏi về code VBA, vậy nếu bạn có giải pháp về code VBA, bạn có thể chỉ giúp mình được không? Cảm ơn bạn nhiều ^^

Mình đã thấy bạn sử dụng Conditional Formatting với code dành cho cột A ở sheet 1 là

=GPE=15

Nhưng mình không biết macro4 của bạn là gì, bạn có thể chỉ cho mình biết rõ hơn cách làm của bạn được không? cảm ơn bạn nhiều.

 

[ndu96081631]

tuy nhiên mình muốn hỏi về code VBA, vậy nếu bạn có giải pháp về code VBA, bạn có thể chỉ giúp mình được không?

VBA thì dùng Find Method nhé

Private Sub ColorRange(SrcRng As Range, DesRng As Range)
  Dim fRng As Range, Clls As Range
  For Each Clls In DesRng
    If Clls.Value <> "" Then
      Set fRng = SrcRng.Find(Clls, , xlValues, xlWhole, , , True)
      If Not fRng Is Nothing Then
        Clls.Interior.ColorIndex = fRng.Interior.ColorIndex
      End If
    End If
  Next
End Sub

Sub Main()
  Dim SrcRng As Range, DesRng As Range
  Set SrcRng = Sheet2.Range(Sheet2.[A1], Sheet2.[A65536].End(xlUp))
  Set DesRng = Sheet1.Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp))
  ColorRange SrcRng, DesRng
End Sub

Chạy Sub Main sẽ có ngay kết quả
Code trên viết theo nguyên tắc: Duyệt các cell trong vùng cần tô màu, lấy từng cell và tìm trong vùng dữ liệu gốc... Nếu tìm thấy có thì cứ dữ liệu gốc tô màu gì. vùng cần tô màu sẽ được tô y chang