Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Using the New NumberFormat Property

Sub NumberFormat()     With Range("E1:G26")         .FormatConditions.Delete         .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater,Formula1:="=9999999"         .FormatConditions(1).NumberFormat = "$#,##0,""M"""         .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=999999"         .FormatConditions(2).NumberFormat = "$#,##0.0,""M"""         .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater,Formula1:="=999"         .FormatConditions(3).NumberFormat = "$#,##0,K"     End With End Sub