Question

我一直在寻找，直到我脸红了，才能回答这个问题。我记录了我们提供的3种车型（每种车型都有自己的纸张）之间的所有销售情况，然后是总计第4张。我遇到的问题是在总表上总计销售人员的琐事。它们是为一种保修而不是另一种保修而支付的。而不是制作另一列（已经太多），我想将保修利润单元的颜色设置为红色，这样就不会计入此countifs声明

＆＃34; = SUM（COUNTIFS（CDJR E4：E150，$ A $ 2，CDJR N4：！N150，$ Y $ 2））* 25＆＃34;

它查看表格CDJR向下E栏，以$ A $ 2和N列（保修利润）列出的销售人员将其与单元$ Y $ 2进行比较，即＆＃34;＆gt; = 1＆＃34;然后将该计数乘以25来计算应付的spiff。

它的工作正常（除了必须为每张纸张做清楚，因为CDJR：KIA不计算所有纸张并给出#VALUE返回 - 这是我正在解决的问题）但是我希望它能够理清不应付的保证。我试过这个，总共给出了0：

= SUM（IF（ColorCompare（CDJR N4：N150，总计Y2），COUNTIFS（CDJR E4：！E150，$ A $ 2，CDJR N4：N150，$ Y $ 2），）* 25）

我放置的Y2单元＆＃34;＆gt; = 1＆＃34;是红色的。

有什么想法吗？

谢谢

Function ColorCompare(refCell As Range, compareCells As Range) As Variant
Dim rCell As Range, rRw As Range
Dim TFresponses() As Boolean     'the boolean array to be returned to SUMPRODUCT
Dim rw As Long, cl As Long
Dim clr As Variant

clr = refCell.Interior.ColorIndex
ReDim TFresponses(1 To compareCells.Rows.Count, 1 To compareCells.Columns.Count)

rw = 1
For Each rRw In compareCells.Rows
    cl = 1
    For Each rCell In rRw.Cells
        If rCell.Interior.ColorIndex = clr Then
            TFresponses(rw, cl) = True
        End If
        cl = cl + 1
    Next rCell
    rw = rw + 1
Next rRw
ColorCompare = TFresponses

结束功能

excel countifs和颜色

0 个答案: