如何使用来自另一个函数值返回的条件来 SUMIF（或？？）？

Question

我正在尝试对排除有色列的列进行非常简单的求和。我想总结的那一栏是我所有的账户，绿色的代表付费账户。我想要一个代表“剩余支付”价值的总和，以跟踪我的进度，而无需每次都重做我的公式。颜色不是有条件的，也不可能。

我已经创建了 2 个函数：

Function GetColor(MyCell As Range)
GetColor = MyCell.Interior.ColorIndex
End Function

和

Function PAID(MyCell As Range) As Boolean
    If MyCell.Interior.ColorIndex = 50 Then
        PAID = True
    Else
        PAID = False
    End If
End Function

所以我已经在我的数字旁边创建了一列，其中包含公式（更改单元格编号）：

=PAID(C13)

这会吐出 TRUE 或 FALSE 值，然后我可以基于我的 SUMIF 公式，目前我有这个（E 列包含来自 PAID 函数的值，C 包含我的帐户值）：

=SUMIF(E2:E18,"FALSE",C2:C18)

我想看看是否可以绕过制作这个额外的列并直接在 SUMIF 中运行该函数（或者可能是另一个函数？），这样我所要做的就是为我的单元格着色并只刷新一个公式。

Answer 1

在程序决策过程中使用颜色并不理想，而且对于简单的任务来说过于复杂。

但假设您想要这个（或无法控制这个），并且您想要求和的单元格 NOT 用Interior.ColorIndex = 50 着色 - 并假设您的值在C2:C18 范围内（或任何地方），执行此操作的 VBA 函数如下。

使用函数=PAID(C2:C18,50)

Function PAID(MyCells As Range, colour_avoid As Integer) As Double
Dim cc As Range
Dim accumulate As Double

accumulate = 0 'not needed but good practice

  For Each cc In MyCells
    If (cc.Interior.ColorIndex <> colour_avoid) Then
       accumulate = accumulate + cc.Value
    End If
  Next cc
PAID = accumulate
End Function

重复一遍，这个函数将把你给它的所有不用colour.index着色的单元格加起来（比如50）。