Setting Up Conditional Formats in VBA : FormatConditions « Excel « VBA / Excel / Access / Word

Setting Up Conditional Formats in VBA

Sub ApplySpecialFormattingAll()
    For Each ws In ThisWorkbook.Worksheets
        For Each cell In ws.UsedRange.Cells
            If Not IsEmpty(cell) Then
                cell.FormatConditions.Add Type:=xlExpression, _
                cell.FormatConditions(1).Font.Color = cell.Interior.Color
                cell.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
                cell.FormatConditions(2).Font.ColorIndex = 3
            End If
        Next cell
    Next ws
End Sub


Related examples in the same category

1.all the ranges that have conditional formatting set up
2.Identifying Row with Largest Value in G
3.generates a three-color color scale in range A1:A10:
4.Specifying an Icon Set
5.Specifying Ranges for Each Icon
6.Using Two Colors of Data Bars in a Range
7.Add Crazy Icons
8.highlight cells above average:
9.highlight cells below average:
10.Formatting Cells in the Top 10
11.Formatting Cells in the Bottom 5
12.Formatting Cells in the Top 2 percent
13.Formatting Duplicate Cells
14.Formatting Unique Cells
15.Formatting Cells whose value between 10 and 20
16.highlights all cells that contain a capital letter A
17.highlights all dates in the past week:
18.creates the formatting shown in column A
19.Highlight the Entire Row for the Largest Sales Value
20.Using the New NumberFormat Property