[Help] VBA tô màu có điều kiện cho sẵn

[robinhsoon]

Thân chào cả nhà GPEX!
Mong cả nhà giúp em một việc ạ,

Em có 02 Sheet Điều kiện và Data. Dựa vào Sheet điều kiện (Cột A, C, E) để Tô màu qua sheet Data theo đúng code của cột B và Tô màu ở cột G.

Ví dụ: bên sheet điều kiện code =1 và điều kiện >1 hoặc <-1 thì bên sheet Data cột G sẽ tô màu vàng vì thỏa điều kiện
Em có đính kèm file ạ.

Mong cả nhà giúp đỡ.. Em chân thành cảm ơn

 

[leonguyenz]

Tham khảo code

Sub Button1_Click()
Dim Rng As Range, i As Long, FRng As Range, xFd As Range
Set Rng = Sheet1.Range("B2:B" & Sheet1.Range("B65535").End(xlUp).Row)
Set FRng = Sheet2.Range("A2:A" & Sheet2.Range("A65535").End(xlUp).Row)
For i = 1 To Rng.Rows.Count
    Set xFd = FRng.Find(Rng(i), , , 1, , , 1)
    If Not xFd Is Nothing Then
        If Rng(i).Offset(, 5) > xFd.Offset(, 2) Or _
            Rng(i).Offset(, 5) < xFd.Offset(, 4) Then
            Rng(i).Offset(, 5).Interior.ColorIndex = 6
        Else
            Rng(i).Offset(, 5).Interior.ColorIndex = 0
        End If
    Else
        Rng(i).Offset(, 5).Interior.ColorIndex = 0
    End If
Next i
End Sub

 

[robinhsoon]

Tham khảo code

Sub Button1_Click()
Dim Rng As Range, i As Long, FRng As Range, xFd As Range
Set Rng = Sheet1.Range("B2:B" & Sheet1.Range("B65535").End(xlUp).Row)
Set FRng = Sheet2.Range("A2:A" & Sheet2.Range("A65535").End(xlUp).Row)
For i = 1 To Rng.Rows.Count
    Set xFd = FRng.Find(Rng(i), , , 1, , , 1)
    If Not xFd Is Nothing Then
        If Rng(i).Offset(, 5) > xFd.Offset(, 2) Or _
            Rng(i).Offset(, 5) < xFd.Offset(, 4) Then
            Rng(i).Offset(, 5).Interior.ColorIndex = 6
        Else
            Rng(i).Offset(, 5).Interior.ColorIndex = 0
        End If
    Else
        Rng(i).Offset(, 5).Interior.ColorIndex = 0
    End If
Next i
End Sub

Em cảm ơn Anh đã giúp đỡ ạ.. Em làm được rồi ạ.

Chúc anh sức khỏe và thành công ạ