条件必选格式VBA

Question

我有一个数据范围，我想为每一行数据使用条件格式，而最高值为红色，最低值为绿色。请看示例图片:

输入图片描述

对于，我使用了以下代码:

For k = 33 To  65

With WBSim.Sheets("Country_1").Rows(k)
.FormatConditions.AddColorScale ColorScaleType:=3
.FormatConditions(.FormatConditions.Count).SetFirstPriority
.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue

End With

但在结果中，最高值为绿色，最低值为红色。你能告诉我如何解决这个问题吗?

最好,Parisa

Answer 1

这是应用颜色比例时的默认设置，您需要添加代码来更改最低/最高值的颜色。

这段代码可以做到这一点，但你可能想要玩弄颜色，以得到你想要的。

Dim K As Long
For K = 33 To 65
With WBSim.Sheets("Country_1").Rows(K)
.FormatConditions.AddColorScale ColorScaleType:=3
With .FormatConditions(1)
.SetFirstPriority
With .ColorScaleCriteria(1)
.Type = xlConditionValueLowestValue
.FormatColor.Color = 5287936
End With
With .ColorScaleCriteria(2)
.Type = xlConditionValuePercentile
.FormatColor.Color = 8711167
End With
With .ColorScaleCriteria(3)
.Type = xlConditionValueHighestValue
.FormatColor.Color = RGB(255, 0, 0)
End With
End With
End With

Next K