从SumIfs中排除彩色单元格

Question

我有一张这样的表：

我需要在VBA中创建一些Sumifs命令，以从标准中排除绿色单元格。我有excel公式= SUMIFS（D：D; C：C; 1）并且需要以某种方式添加下一个条件。在VBA中我有：

Func<TOut, TIn>

返回10。

我只需计算范围内没有任何边框颜色的行＆＃34; A：A＆＃34;。我试着写这样的公式，但它返回一个错误：

Sub TotalItems()
    Dim sum As Integer
    sum = Application.WorksheetFunction.SumIfs(Range("D:D"), Range("C:C"), _
         3)
   MsgBox sum
End Sub

知道如何解决这个问题吗？

Answer 1

您可以使用SUMPRODUCT（），无需VBA：

=SUMPRODUCT((C1:C100=3)*(D1:D100)*(A1:A100 <>"")*(countif(Sheet2!A:A,A1:A100)=1))