是否有一种方法在VBA中指定条件格式的缩放，使负数以红色编码

Question

冗长的问题，但我正在做一些基于间隔的条件格式来解决硬编码条件格式，因为前者总是优先于后者。本质上是硬编码的标头之间的颜色编码，但在某些情况下，我在硬编码的颜色之间只有一行，所以三刻度条件格式默认情况下会突出显示绿色的负数;我怎么能强迫它在VBA突出红色的底片?

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

Answer 1

基于这篇文章，我创建了一个修改颜色比例的方法。

SetColorScale范围(替换(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