Tô màu theo điều kiện (1 người xem)

[lhthai]

Chào Anh Chị
Hiện tại đang áp dụng code của Anh Ba Tê so sánh giữ liệu 2 mảng khác nhau thì tô màu nguyên dòng nay muốn bổ sung thêm điều kiện tại ví trí nào thay đổi thì mới tô màu.
Hoặc các anh chị bổ sung thêm điều kiện vào code sau dùm mình
- Nếu giữ liệu tại bảng 1 cột G có giá trị thì mới tô màu.

Private Sub CommandButton1_Click()
Dim I As Long, Arr(), dArr(), J As Long, K As Long, Tem As String
Dim str As String, Rng As Range, Cll As Range
Dim fso As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Dic = CreateObject("scripting.dictionary")
   With Sheet1
     Arr = .Range("I5", .[I65536].End(3)).Resize(, 7).Value
      End With
   For I = 1 To UBound(Arr)
   Tem = Arr(I, 1) & Arr(I, 2) & Arr(I, 3) & Arr(I, 4) & Arr(I, 5) & Arr(I, 6)
      If Not Dic.exists(Tem) Then
          Dic.Add Tem, Empty
              End If
   Next
   With Sheet1
   Set Rng = .Range("A5", .[A65536].End(3))
   End With
     For Each Cll In Rng
    Tem = Cll & Cll.Offset(, 1) & Cll.Offset(, 2) & Cll.Offset(, 3) & Cll.Offset(, 4) & Cll.Offset(, 5)
    If Not Dic.exists(Tem) Then
                Dic.Add Tem, Empty
        With Cll.Resize(, 7)
            .Interior.ColorIndex = 6
            .Font.ColorIndex = 3
            .Font.Bold = True
        End With
    End If
       Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[Vo Tinh]

Chào Anh Chị
Hiện tại đang áp dụng code của Anh Ba Tê so sánh giữ liệu 2 mảng khác nhau thì tô màu nguyên dòng nay muốn bổ sung thêm điều kiện tại ví trí nào thay đổi thì mới tô màu.
Hoặc các anh chị bổ sung thêm điều kiện vào code sau dùm mình
- Nếu giữ liệu tại bảng 1 cột G có giá trị thì mới tô màu.

Nếu dữ liệu ít thì xài tạm cái này cũng được

Private Sub CommandButton1_Click()
Dim I As Long, Arr1(), Rng As Range, J As Long
   With Sheet1
    Arr1 = .Range("I5", .[I65536].End(3)).Resize(, 7).Value
    Set Rng = .Range("A5", .[A65536].End(3)).Resize(, 7)
   End With
For I = 1 To UBound(Arr1, 1)
    For J = 1 To UBound(Arr1, 2)
        If Arr1(I, J) <> Rng.Cells(I, J) Then Rng.Cells(I, J).Interior.ColorIndex = 6
    Next J
Next I
End Sub

 

[lhthai]

Nếu dữ liệu ít thì xài tạm cái này cũng được

Private Sub CommandButton1_Click()
Dim I As Long, Arr1(), Rng As Range, J As Long
   With Sheet1
    Arr1 = .Range("I5", .[I65536].End(3)).Resize(, 7).Value
    Set Rng = .Range("A5", .[A65536].End(3)).Resize(, 7)
   End With
For I = 1 To UBound(Arr1, 1)
    For J = 1 To UBound(Arr1, 2)
        If Arr1(I, J) <> Rng.Cells(I, J) Then Rng.Cells(I, J).Interior.ColorIndex = 6
    Next J
Next I
End Sub

Cám ơn bạn
Code này chỉ áp dụng khi hai bảng cố định nếu dòng thay đổi không tô được.

 

[doveandrose]

Cám ơn bạn
Code này chỉ áp dụng khi hai bảng cố định nếu dòng thay đổi không tô được.

nếu chỉ đi so sánh ô với ô khác nhau thì tô màu thì cần chi phải sử dụng code hả bạn
conditional formating trong excel làm được rồi mà