Есть ли способ в VBA указать масштабирование условного форматирования, чтобы отрицательные числа были закодированы красным цветом?

Question

Wordy вопрос, но я выполняю условное форматирование на основе интервала, чтобы работать с жестко закодированным условным форматированием, поскольку прежние всегда имеют приоритет над последним. По сути, цветовые коды между жестко закодированными заголовками, но в некоторых случаях у меня есть только одна строка между жестко закодированными цветами, поэтому условное форматирование в трех масштабах по умолчанию выделяет отрицательное число зеленым цветом; как я могу заставить его в VBA выделить негативы в красном?

End With 
With Range(Replace(range_, "#", "N")).FormatConditions.AddColorScale(3) 
End With 

Answer 1

Исходя из этого Post, я создал метод, чтобы изменить цветовые гаммы.

SetColorScale Range (Replace (range_, "#", "N"))

Sub SetColorScale(rng As Range) 
    With rng 
     .FormatConditions.AddColorScale ColorScaleType:=2 
     .FormatConditions(.FormatConditions.Count).SetFirstPriority 
     With .FormatConditions(1) 
      With .ColorScaleCriteria(1) 
       .Type = xlConditionValueLowestValue 
       .FormatColor.Color = vbRed 
       .FormatColor.TintAndShade = 0 
      End With 
      With .ColorScaleCriteria(2) 
       .Type = xlConditionValueHighestValue 
       .FormatColor.Color = vbGreen 
       .FormatColor.TintAndShade = 0 
      End With 
     End With 
    End With 

End Sub