获取颜色并进行计算答案

【问题标题】：Get Color and do Calculation获取颜色并进行计算
【发布时间】：2015-05-18 11:41:40
【问题描述】：

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

例如。 - 项目 2 - 我总共有 200 个，并且在 2015 年 1 月 1 日有 1 个带有绿色和其他红色的单元格，因此它将是 200-100=100（值）

项目 3 - 我总共有 300 个，在 01/02/15 和 01/03/15 有绿色，所以它将是 300-100-150=50（价值）

我想在 VBA 上做，但没必要

【问题讨论】：

标签： vba excel excel-2010 cell background-color

【解决方案1】：

试试这个（绿色#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

【讨论】：