/(hông có dấu, tại sao không dấu?!su dung chuc nang conditional format ( dat dieu kiẹn)
/
Nếu trên 3 nhóm cần fân định = màu thì fải xài VBA, thích sẽ chìu!
yeah, đúng vậy, condition format có thể được 30 điều kiện.
Bạn tham khảo tại đây, nếu cần cụ thể sẽ tiếp tục sau!cac ban nao co VBA, vui long cho minh xin nhe.
toto_dang@yahoo.com
Bạn tham khảo thêm những ví dụ sau:cac ban nao co VBA, vui long cho minh xin nhe.
toto_dang@yahoo.com
Sub BAndFColor()
Dim Rng As Range, rRng As Range
Set Rng = Selection.SpecialCells(xlCellTypeConstants, 1)
1' Tô màu những ô có giá trị <=O
For Each rRng In Rng
If rRng.Value <= 0 Then
rRng.Interior.ColorIndex = 34
rRng.Interior.Pattern = xlSolid
End If
Next rRng
Set Rng = Selection.SpecialCells(xlCellTypeFormulas, 21)
2' Tô màu những ô công thức có giá trị <=O
For Each rRng In Rng
If rRng.Value <= 0 Then
rRng.Font.ColorIndex = 3
End If
Next rRng
Set Rng = Nothing
End Sub
/)/ếu chỉ là 3 giá trị thay đổi trong cột thì bạn dùng Conditional Formatting;Có cách nào để khi mình gõ một cột có các nội dung khác nhau mà màu khác nhau không? Vd: Trẻ em => có màu đỏ ;
Người lớn => màu xanh ; Người già => màu đen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ij As Integer
If Not Intersect(Target, Range("D")) Is Nothing Then
With Target
If .Value <= 18 Then
Ij = 35
ElseIf .Value < 35 Then: Ij = 34
ElseIf .Value < 55 Then: Ij = 38
Else: Ij = 39
End If
.Interior.ColorIndex = Ij: .Interior.Pattern = xlSolid
End With: End If
End Sub