作者：乔山办公网日期：
返回目录：excel表格制作
FunctionSumcolor(colAsRange,sumrangeAsRange)
DimicellAsRange
Application.Volatile
ForEachicellInsumrange
Ificell.Interior.ColorIndex=col.Interior.ColorIndexThen
Sumcolor=Application.Sum(icell)Sumcolor
EndIf
Nexticell
EndFunction
需要使用VBA设置函数来完成。
1、如下百图，要求根据B列中不同的颜色进行求和计算，结果在F2单元格列示。
2、在C列做一个辅助列，然后依次点击【公式】-【定义名称】。
3、如下图，弹出【新建名称】对话框：在【名度称】中输入[SUMCOLOR];在【引用位置】后面的对话框中输入[GET.CELL(24,B2)+0/NOW()]，设置好后点击【确定】按钮。
4、返回到表格中在C2单元格问中输入[SUMCOLOR()]，点击回车键，出现数答字3，即红颜色的数字为3。
5、选中C2单元格，拖动鼠标左键，将剩余的单元格填满。
6、选中F2单元格，在单元格中输入[=]，然后点击【插入函数】按钮。
7、弹出【插入函数】对话框，在[选择函数]中选择SUMIF函数，然后点击【确定】按钮。
8、弹出【函数参专数】对话框：在第一个参数后面选择C2:C7单元格区域，按F4键绝对引用该区域；在第二个参数后面输入[SUMCOLOR]；在第三个参数后面选择B2:B7单元格区域，按F4键绝对引用该区域。所有参数设置好后点击【确定】按钮。
9、返回到工属作表中，F2单元格就求出了所有红颜色的销售总额为800，选中单元格拖动鼠标左键即可将剩余的颜色总和求出。