Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Specifying Ranges for Each Icon

Sub Main()     With Range("A1:C10")             With .FormatConditions(1).IconCriteria(2)                 .Type = xlConditionValuePercent                 .Value = 50                 .Operator = xlGreaterEqual             End With             With .FormatConditions(1).IconCriteria(3)                 .Type = xlConditionValuePercent                 .Value = 60                 .Operator = xlGreaterEqual             End With             With .FormatConditions(1).IconCriteria(4)                 .Type = xlConditionValuePercent                 .Value = 80                 .Operator = xlGreaterEqual             End With             With .FormatConditions(1).IconCriteria(5)                 .Type = xlConditionValuePercent                 .Value = 90                 .Operator = xlGreaterEqual             End With         End With End Sub