EXCEL操作---如何按照颜色条件汇总函数

1、在EXCEL界面中，按下组合键　Alt + F11，弹出一个MicrosoftVisual Basic窗口。

2、在窗口中，执行菜单操作：“插入”—>“模块”，如下图。

3、看到一个“（通用）”的窗体，这个窗体就是用来输入VBA代码的窗体，如下图：

4、将如下代码粘贴到该窗体中：

FunctionSumByColor(Ref_color As Range, Sum_range As Range)

Application.Volatile

Dim iCol As Long

Dim rCell As Range

SumByColor = 0

iCol =Ref_color.Interior.ColorIndex

For Each rCell InSum_range

    If iCol = rCell.Interior.ColorIndex And WorksheetFunction.IsNumber(rCell) Then

       SumByColor = SumByColor + rCell.Value

    End If

Next rCell

End Function

结果如下图：

5、关闭Microsoft VisualBasic窗口，返回到EXCEL窗口，函数SumByColor设置完毕。

设置完成的函数SumByColor（Ref_color, Sum_range），函数有2个参数：

第一个是要想统计颜色的单元格（任意一个与要汇总颜色相同的单元格均可），

第二个是要汇总的单元格区域。

如本例，在B16格中输入：      =SumByColor(B15,B2:F13)        得出结果：1690748