VB.NET实现DataGridView的COST列按值渐变着色（类似Excel条件格式）

本方案仅需传入列最大值、最小值即可自动匹配绿-黄-红渐变效果，适配你当前345行数据的使用场景，无多余复杂逻辑。

1. 三色插值核心函数 #

以下是封装好的直接可用的函数，输入当前值、区间最小值、区间最大值，直接返回对应渐变颜色：

' 绿-黄-红三色渐变插值函数
Private Function GetGradientColor(currentValue As Double, minValue As Double, maxValue As Double) As Color
    ' 边界值处理：最小值返回纯绿，最大值返回纯红
    If currentValue <= minValue Then Return Color.Green
    If currentValue >= maxValue Then Return Color.Red
    
    ' 计算当前值在整个区间的相对位置（0-1）
    Dim range As Double = maxValue - minValue
    Dim position As Double = (currentValue - minValue) / range
    
    ' 0-0.5区间：绿→黄渐变；0.5-1区间：黄→红渐变
    If position <= 0.5 Then
        ' 绿转黄：红色通道从0升到255，绿色通道保持255
        Dim r As Integer = CInt(255 * (position / 0.5))
        Return Color.FromArgb(r, 255, 0)
    Else
        ' 黄转红：绿色通道从255降到0，红色通道保持255
        Dim g As Integer = CInt(255 * ((1 - position) / 0.5))
        Return Color.FromArgb(255, g, 0)
    End If
End Function

2. 批量设置单元格背景色 #

建议在DataGridView数据绑定完成后执行以下逻辑：

' 你当前已确定的COST列固定最大最小值，不需要动态计算可直接使用
Const COST_MIN As Double = 4.99
Const COST_MAX As Double = 1673.86

' 遍历所有行设置COST列背景色
For Each row As DataGridViewRow In DataGridView1.Rows
    ' 跳过空白新增行（如果已禁用用户添加行功能可删除该判断）
    If row.IsNewRow Then Continue For
    
    ' 读取COST列数值
    Dim costValue As Double = Convert.ToDouble(row.Cells("COST").Value)
    ' 赋值单元格背景色
    row.Cells("COST").Style.BackColor = GetGradientColor(costValue, COST_MIN, COST_MAX)
Next

可选：动态计算最大最小值 #

如果后续数据源会变动，不想手动写死最大最小值，可通过以下代码自动计算：

Dim costValues As New List(Of Double)
For Each row As DataGridViewRow In DataGridView1.Rows
    If Not row.IsNewRow Then
        costValues.Add(Convert.ToDouble(row.Cells("COST").Value))
    End If
Next
Dim COST_MIN As Double = costValues.Min()
Dim COST_MAX As Double = costValues.Max()

说明 #

• 345行数据遍历仅需几毫秒，完全不会出现界面卡顿
• 由于用户不可修改单元格值，仅需在数据绑定完成后执行一次即可，不需要额外监听单元格修改事件
• 如果需要调整颜色深浅、渐变节点，修改GetGradientColor函数中的色值参数即可

内容的提问来源于stack exchange，提问作者Andy Andromeda