EXCEL VBA -按单元格颜色减法-基本减法公式

Sub SubtractByColor()
    Dim rng As Range
    Dim cell As Range
    Dim colorIndex As Integer
    Dim result As Double
    
    Set rng = Range("A1:A10") '设置要进行减法运算的单元格范围
    
    For Each cell In rng
        colorIndex = cell.Interior.ColorIndex '获取单元格的颜色索引
        
        '根据颜色索引进行减法运算
        Select Case colorIndex
            Case 3 '红色
                result = result - cell.Value
            Case 4 '绿色
                result = result + cell.Value
            Case Else '其他颜色
                '不进行任何操作
        End Select
    Next cell
    
    MsgBox "减法运算的结果为：" & result
End Sub