快捷搜索:  汽车  科技

职场新人实用技能excel公式大全(按颜色求和其实很简单)

职场新人实用技能excel公式大全(按颜色求和其实很简单)#职场干货##学浪计划-教育创作者扶持计划##职场达人说#小伙伴们,方法一和方法二你觉得哪个更好用呢?Function SumColor(col As Range sumrange As Range) As Long Dim icell As Range Application.Volatile For Each icell In sumrange If icell.Interior.ColorIndex = col.Interior.ColorIndex Then SumColor = Application.Sum(icell) SumColor End If Next icell End Function方法二演示VBA代码解释:SumColor函数一个自定义函数,第一个参数是颜色单元格,第二个参数是求和区域。如果你觉得Ex

职场新人实用技能excel公式大全(按颜色求和其实很简单)(1)

平时工作中小伙伴们肯定会使用颜色来标记不同类型的数据,有时候会突发奇想的来一个需求,要对不同颜色的数据进行求和,这时候该怎么办?别担心,高效君已经为您整理好方法了。

方法一:公式名称法。


操作步骤:
1、按Ctrl F调出查找对话框。
2、单击【选项】→【格式】→【从单元格选取格式】。
3、点击查找全部。
4、然后按Ctrl A选中全部带有颜色的单元格。
5、名称框中输入:蓝色 ,按回车。
6、输入公式:=SUM(蓝色)

职场新人实用技能excel公式大全(按颜色求和其实很简单)(2)

方法一演示

方法二:VBA代码法


操作步骤:
1、鼠标右键工作表名称并查看代码。
2、此时进入了VBE编辑界面了。
3、鼠标右键左边的资源管理窗口并新建一个模块。
4、在模块中粘贴以下代码。
5、点击左上角的Excel图标回到工作表界面。
6、输入公式:=SumColor(J2 B2:H11) 即可。

Function SumColor(col As Range sumrange As Range) As Long Dim icell As Range Application.Volatile For Each icell In sumrange If icell.Interior.ColorIndex = col.Interior.ColorIndex Then SumColor = Application.Sum(icell) SumColor End If Next icell End Function

职场新人实用技能excel公式大全(按颜色求和其实很简单)(3)

方法二演示

VBA代码解释:

SumColor函数一个自定义函数,第一个参数是颜色单元格,第二个参数是求和区域。如果你觉得Excel自带的函数不够用,咱们可以用VBA来开发自定义函数,是不是瞬间觉得很高大上,据说VBA除了不会生孩子,其他的都会哟!哈哈!

小伙伴们,方法一和方法二你觉得哪个更好用呢?

#职场干货##学浪计划-教育创作者扶持计划##职场达人说#

猜您喜欢: