Excel 条件格式化VBA

我有一系列的数据，我希望对每一行数据使用条件格式，而最高值为红色，最低值为绿色。请参见示例图片：

为此，我使用了以下代码：

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

表示，应用颜色比例时，需要添加代码以更改最低/最高值的颜色

这段代码可以做到这一点，但您可能希望使用颜色来获得您想要的颜色

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