giúp em công thức biến tất cả các số 1 thành màu đỏ giùm em vói

[lovet4]

1	1
1	1
1	1
1	1
2	2
2	2
1	1

giúp em nhóe

 

[phihndhsp]

1	1
1	1
1	1
1	1
2	2
2	2
1	1

giúp em nhóe

đinh dạng có đk thôi, format condititonal trong thẻ home

 

[HungQuoc49]

1	1
1	1
1	1
1	1
2	2
2	2
1	1

giúp em nhóe

Dùng conditional formatting
Nhấn alt+O+D để xem

 

[lovet4]

cảm ơn nhé


mấy bác nhiệt tình quá @@!

 

[lovet4]

à chỗ này em không hiểu lắm
nếu nhiều hơn 2 giá trị mầu nó chuyển lung tung ai giậy em với được ko
chi tiết nhá em hơi ngu 1 tý

 

[comet_1701]

1	1
1	1
1	1
1	1
2	2
2	2
1	1

giúp em nhóe

Sub Tomau()
    Dim Rng As Range, Rng1 As Range, Vung As Range
    Set Rng = Range("A1:A10")
    Set Rng1 = Range("B1:B10")
    Set Vung = Union(Rng, Rng1)
    For i = 1 To Vung.Rows.Count
        If Vung(i, 1) = 1 Then
            Vung.Rows(i).Interior.ColorIndex = 3
        End If
    Next
End Sub

Góp vui thêm một cách, mà hỏi gì mà hỏi ngu, cứ hỏi bình thương thôi, chưa biết thì học dần thôi bạn . chia sẻ là chính
Nếu tô màu không số 1 thì

Sub Tomau()
    Dim Rng As Range, Rng1 As Range, Vung As Range
    Set Rng = Range("A1:A10")
    Set Rng1 = Range("B1:B10")
    Set Vung = Union(Rng, Rng1)
    For i = 1 To Vung.Rows.Count
        If Vung(i, 1) = 1 Then
            Vung.Rows(i).Font.ColorIndex = 3
        End If
    Next
End Sub

 

[comet_1701]

à chỗ này em không hiểu lắm
nếu nhiều hơn 2 giá trị mầu nó chuyển lung tung ai giậy em với được ko
chi tiết nhá em hơi ngu 1 tý

Bạn có thể trả lời với trích dẫn nhé, mà đừng dùng từ "Ngu", Nghe kỵ lắm, anh em ở đây nếu rỗi đều nhiệt tình cả