Using Two Colors of Data Bars in a Range

 
Sub AddTwoDataBars()
    With Range("A1:D10")
        .Select ' The .Formula below requires .Select here
        .FormatConditions.Delete
        .FormatConditions.AddDataBar
        .FormatConditions(1).BarColor.Color = RGB(0, 255, 0)
        .FormatConditions(1).BarColor.TintAndShade = 0.25
        .FormatConditions.AddDataBar
        .FormatConditions(2).BarColor.Color = RGB(255, 0, 0)
        .FormatConditions(1).Formula = "=IF(A1>9,True,False)"
    End With
End Sub

1.	all the ranges that have conditional formatting set up
2.	Setting Up Conditional Formats in VBA
3.	Identifying Row with Largest Value in G
4.	generates a three-color color scale in range A1:A10:
5.	Specifying an Icon Set
6.	Specifying Ranges for Each Icon
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

Using Two Colors of Data Bars in a Range : FormatConditions « Excel « VBA / Excel / Access / Word

Related examples in the same category