Tô màu dòng, nếu đếm các phần tử trong dòng là số lẻ (1 người xem)

[Excel365]

Nhờ các anh chị giúp em viết code tô màu nếu đếm các phần tử trong dòng (từ cột D4:I4) là số lẻ.
Hiện tại thì em đang sử dụng conditional formatting (mod(counta(D4:I4);2) để tô màu, nhưng không biết cách chuyển qua sử dung VBA, rất mong được các anh chị giúp đỡ.
Trân trọng
https://drive.google.com/file/d/0Bz23-2tBuYb1RmttVXRsd0dnZGs/view?usp=sharing

 

[giangleloi]

Nhờ các anh chị giúp em viết code tô màu nếu đếm các phần tử trong dòng (từ cột D4:I4) là số lẻ.
Hiện tại thì em đang sử dụng conditional formatting (mod(counta(D4:I4);2) để tô màu, nhưng không biết cách chuyển qua sử dung VBA, rất mong được các anh chị giúp đỡ.
Trân trọng
https://drive.google.com/file/d/0Bz23-2tBuYb1RmttVXRsd0dnZGs/view?usp=sharing

Bạn sử dụng code sau nhé:

Sub ToMau()
Dim I As Long
    For I = 4 To Range("C" & Rows.Count).End(3).Row
      Range("D" & I & ":I" & I).Interior.Pattern = xlNone
        If Application.WorksheetFunction.CountA(Range("D" & I & ":I" & I)) Mod 2 = 1 Then
            Range("D" & I & ":I" & I).Interior.Color = 65535
        End If
    Next
End Sub

 

[Excel365]

Bạn sử dụng code sau nhé:

Sub ToMau()
Dim I As Long
    For I = 4 To Range("C" & Rows.Count).End(3).Row
      Range("D" & I & ":I" & I).Interior.Pattern = xlNone
        If Application.WorksheetFunction.CountA(Range("D" & I & ":I" & I)) Mod 2 = 1 Then
            Range("D" & I & ":I" & I).Interior.Color = 65535
        End If
    Next
End Sub

Đúng ý mình rồi, cám ơn bạn nhiều