格式颜色比例

Question

我有一个提供矩阵的宏，我只想将这些矩阵放在色标格式下（见下文），这已经完成了：

预期输出：

我得到的最接近的是这种格式，这意味着相反：

电流输出：

我过去常常这样做：

Sheets("Hoja1").Range("B3:BA26").FormatConditions.AddColorScale ColorScaleType:=3

我尝试过多种颜色类型但只有2和3似乎可以运行，但不会产生我预期的输出。

感谢您的帮助

这种方式既不起作用，（我实际上有8个矩阵）

Sheets("Hoja1").Range("B3:BA26").FormatConditions.AddColorScale ColorScaleType:=2
Sheets("Hoja1").Range("B29:BA52").FormatConditions.AddColorScale ColorScaleType:=2
Sheets("Hoja2").Range("B55:BA78").FormatConditions.AddColorScale ColorScaleType:=2
Sheets("Hoja2").Range("B81:BA104").FormatConditions.AddColorScale ColorScaleType:=2

Sheets("Hoja2").Range("B3:BA26").FormatConditions.AddColorScale ColorScaleType:=2
Sheets("Hoja2").Range("B29:BA52").FormatConditions.AddColorScale ColorScaleType:=2
Sheets("Hoja1").Range("B55:BA78").FormatConditions.AddColorScale ColorScaleType:=2
Sheets("Hoja1").Range("B81:BA104").FormatConditions.AddColorScale ColorScaleType:=2


FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue

Answer 1

您可以使用：

With FormatConditions(1)
    'Define the color for your lowest value
    .ColorScaleCriteria(1).FormatColor.Color = 8109667

    'Define the type of definition for the mid value. The default is 50%.
    .ColorScaleCriteria(2).Type = xlConditionValuePercentile
    .ColorScaleCriteria(2).Value = 50
    'Define the color for your mid-point value
    .ColorScaleCriteria(2).FormatColor.Color = 8711167

    'Define the color for your highest value
    .ColorScaleCriteria(3).Type = xlConditionValueHighestValue
    .ColorScaleCriteria(3).FormatColor.Color = 7039480

End With

当然，这是为了让您完全自由地处理条件格式的结果。考虑到你想要的只是默认样式之一，我的评论就足够了。