时间:2020-02-10  来源:百度经验  作者:shaowu459  阅读:2

本例向大家介绍如何在Excel中根据单元格填充颜色来求和。

操作步骤:

首先,看一下原始数据。原始数据A列是姓名,B列是对应的数量。现在需要对黄色标注的单元格数量求和。

首先,按Alt+F11进入VBE编辑界面。

如下图,选择【插入】-【模块】插入一个新的模块,完成效果如下图:

双击模块名称,在右侧的空白处粘贴如下代码然后保存:Function 颜色求和(参照颜色区 As Range, 求和区 As Range)    Dim cell As Range, Colors, Data1, Data2 As Integer    Application.Volatile    Colors = 参照颜色区(1).Interior.Color    For Each cell In 求和区        If cell.Interior.Color = Colors Then            Data2 = Data2 + 1            Data1 = WorksheetFunction.Sum(cell) + Data1        End If    Next cell    If Data2 = 0 Then 颜色求和 = "无此背景色": Exit Function    颜色求和 = Data1End Function

返回工作表界面,双击任意单元格,输入下列公式后回车:=颜色求和(B3,B2:B12)其中的B2是要求和单元格颜色的参考单元格,只要底色和要求和单元格颜色一致即可。第二参数B2:B12是要求和单元格所在的区域。

按照上述操作完成以后单元格内就返回了所有黄色标注单元格的数量合计。

本操作是在当前工作簿中进行的,如果想在所有工作簿中都可以使用该自定义函数,可以参考我的另外一篇经验“个人宏工作簿使VBA代码在本机任何工作簿都可用”将该模块插入在个人宏工作簿中即可。

本操作是在当前工作簿中进行的,如果想在所有工作簿中都可以使用该自定义函数,可以参考我的另外一篇经验“个人宏工作簿使VBA代码在本机任何工作簿都可用”将该模块插入在个人宏工作簿中即可。

Top