Code kiểm tra, nếu sai thì tô màu

[Son-Thuy]

Nhờ các bạn giúp code Sub Kiemtra() như sau:
Trong các ô từ A1 đến D6
Nếu có ô nào sai so với $A$1 thì tô màu đỏ (lưu ý không phân biệt chữ viết hoa hay viết thường)
Cảm ơn các bạn!

 

[SA_DQ]

Chúc vui nha:

Sub KiemTraVaToMauOSai()
 Dim Rng As Range, Cls As Range
 Dim MyColor As Integer, StrC As String

 Set Rng = [B1].CurrentRegion:         Randomize
 Rng.Interior.ColorIndex = 2:          MyColor = 34 + 9 * Rnd() \ 1
 StrC = UCase$(Rng(1).Value)
 For Each Cls In Rng
    If UCase$(Cls.Value) = StrC Then
    Else
        Cls.Interior.ColorIndex = MyColor
    End If
 Next Cls
End Sub

 

[Thóc Sama]

Chúc vui nha:

Sub KiemTraVaToMauOSai()
 Dim Rng As Range, Cls As Range
 Dim MyColor As Integer, StrC As String

 Set Rng = [B1].CurrentRegion:         Randomize
 Rng.Interior.ColorIndex = 2:          MyColor = 34 + 9 * Rnd() \ 1
 StrC = UCase$(Rng(1).Value)
 For Each Cls In Rng
    If UCase$(Cls.Value) = StrC Then
    Else
        Cls.Interior.ColorIndex = MyColor
    End If
 Next Cls
End Sub

KKK...
Người ta xin màu đỏ mà bác cho bảy sắc cầu vồng luôn vậy!?

 

[SA_DQ]

Màu nền mà đổ thì màu Font chữ phải vàng, tốn thêm công!

Chúc mọi người vui!

 

[be_09]

Nhờ các bạn giúp code Sub Kiemtra() như sau:
Trong các ô từ A1 đến D6
Nếu có ô nào sai so với $A$1 thì tô màu đỏ (lưu ý không phân biệt chữ viết hoa hay viết thường)
Cảm ơn các bạn!

1/ File thực tế thì một đằng mà ví dụ thì một nẻo. Tiêu đề bài viết thì cũng không ăn nhậu gì với Sheet1.
2/ Tôi làm theo Sheet1 bạn để ẩn.