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

Question

这是我的VBA

Function CellColour(Irow As Integer, Icol As Integer) As Long
CellColour = Cells(Irow, Icol).Interior.ColorIndex
End Function

我正在使用的灰色单元格的颜色是-4142，我通过=CellColour(5,11)

我目前有两行包含每月的销售数据，当月结束时，我将行手动涂成灰色，“-4142”

我有一个总计D6的部分，它是几个单元格的总和D6 = Sum（D9：D12）

我要完成的操作是在D6单元内...减去此灰色数字。

单元格D6公式： Sum(D9:D12)-If(Cellcolour *IN ROWS F11:Q12* = *GRAY "-4142)

最终结果SUM D9：D12减去行F11:Q12灰色数字

我认为我的问题在于无法创建正确的公式。

我觉得仅执行条件格式可能会更容易？

任何帮助都是极好的。

谢谢！

Answer 1

使用单元格颜色对信息进行编码不是一个好方法：使用“状态”列会更好（它可以驱动条件格式来添加颜色，但也可以更轻松地用在其他公式中）

除此之外，您的函数还有一个问题：

Function CellColour(Irow As Integer, Icol As Integer) As Long
    CellColour = Cells(Irow, Icol).Interior.ColorIndex
End Function

...在这里， Cells()将始终应用于ActiveSheet，它可能是您期望/想要的那个，也可能不是。

这可能可以解释为什么您的“灰色”单元格给出-4142，这实际上是“不填充”（xlNone）的代码

这在引用正确的工作表时更加明确，因为您使用了Range参数代替数字参数：

Function CellColour(r As Range) As Long
    CellColour = r.Cells(1).Interior.ColorIndex
End Function

编辑：这可能是您需要的更多：

Function SumByColour(r As Range, indx As Long) As Long
    Dim c As Range, t As Double, v
    Application.Volatile
    For Each c In r.Cells
        v = c.Value
        If IsNumeric(v) And c.Interior.ColorIndex = indx Then
            t = t + v
        End If
    Next c
    SumByColour = t
End Function

然后，您可以执行以下操作：

 =SUM(D9:D12)-SumByColour(F11:Q12, 15)