获取颜色并进行计算

时间:2015-03-16 11:14:53

标签: vba excel-vba excel-2010 background-color cells

我想在C3中执行此操作:C5 - 如果其他单元格(月份)的颜色为绿色,则将总减去绿色值,如果单元格为红色,则不执行任何操作。

对于Ex。 - 项目2 - 我有200个,在2015年1月1日有1个单元格有绿色和其他红色所以它将是200-100 = 100(值)

项目3 - 我有300个,在2015年2月1日和2015年3月1日有绿色,所以它将是300-100-150 = 50(价值)

我想在VBA这样做,但没必要

Image Link

1 个答案:

答案 0 :(得分:0)

尝试(适用于绿色#4)

Sub Roeid()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To N
        v = Cells(i, "B").Value
        For Each a In Array("D", "E", "F", "G")
            If Cells(i, a).Interior.ColorIndex = 4 Then
                v = v - Cells(i, a).Value
            End If
        Next a
        Cells(i, "C").Value = v
    Next i
End Sub