如何在EXCEL中实现按单元格背景颜色求和或计数

如何在EXCEL中实现按单元格背景颜色求和或计数

EXCEL
进阶

如何在
EXCEL
中实现按单元格背景颜色求和或计数

我们在
EXCEL
工作表中，
如果要对多个单元格的数值进行求和，
一般都会用到
SUM
函数，
SUM
函数的计算结果可以根据各个对象单元格数值的变化而发生变化，
满足了大多数
EXCLE
用户的需求。
但是，在
SUM
函数中，当被求和单元格的位置发生变化时，
SUM
函数是无法进行自动求和的，这
就需要用到
SUM
COLOR
函数，它能根据单元格的背景颜色进行求和，无论是单元格的位置发生了变
化还是单元格数值发生变化，只要被求和单元格的背景颜色一致，
SUM
COLOR
函数都可以实现对她
们的求和。如果要对相同颜色单元格进行计数，也可以运用
COUNTCOLOR
函数实现。

可是，
EXCLE
本身并没有这两项功能，我们必须要通过宏与
VBA
才能实现，方法很简单，以
EXCEL2003
为例：

首先，打开你的
EXCEL2003
工作表，点工具
--
宏
--Visual Basic
编辑器，得到以下界面：

在界面左上角
Sheet1
点右键
--
插入
--
模块，打开以下编辑界面：

然后在打开的编辑框中输入以下代码：（有需要的朋友可以找作者索取此代码直接粘贴即可）

Function CountColor(col As Range, countrange As Range) As Integer
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
CountColor = CountColor + 1
End If
Next icell
End Function
Function SumColor(col As Range, sumrange As Range) As Integer
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
然后关闭此界面，返回到工作表。点击工具
--
宏
--
安全性
--
安全级
--
低
--
确定。保存并关闭工
作表，再打开工作表就可以使用
SUM
COLOR
和
COUNTCOLOR
函数了。

excle 本身并没有这两项功能，我们必须要通过宏与 vba 才能实现，方法很简单，以 excel2003 为例： 首先，打开你的 excel2003 工作表，点工具 -- 宏 --visual basic 编辑器 excel 进阶 如何在 excel 中实现按单元格背景颜色求和或计数 我们在 excel 工作表中， 如果要对多个单元格的数值进行求和， 一般都会用到 sum 函数， sum 函数的计算结果可以根据各个对象单元格数值的变化而发生变化， 满足了大多数 excle 用户的需求。 但是，在 sum 函数中，当被求和单元格的位置发生变化时， sum 函数是无法进行自动求和的，这 就需要用到 sum color 函数，它能根据单元格的背景颜色进行求和，无论是单元格的位置发生了变 化还是单元格数值发生变化，只要被求和单元格的背景颜色一致， sum color 函数都可以实现对她 们的求和。如果要对相同颜色单元格进行计数，也可以运用 countcolor 函数实现。 可是， excle 本身并没有这两项功能，我们必须要通过宏与 vba 才能实现，方法很简单，以 excel2003 为例： 首先，打开你的 excel2003 工作表，点工具 -- 宏 --visual basic 编辑器，得到以下界面： 在界面左上角 sheet1 点右键 -- 插入 -- 模块，打开以下编辑界面： 然后在打开的编辑框中输入以下代码：（有需要的朋友可以找作者索取此代码直接粘贴即可） function countcolor(col as range, countrange as range) as integer dim icell as range application.volatile for each icell in countrange if icell.interior.colorindex = col.interior.colorindex then countcolor = countcolor + 1 end if next icell end function function sumcolor(col as range, sumrange as range) as integer 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 然后关闭此界面，返回到工作表。点击工具--宏--安全性--安全级--低--确定。保存并关闭工作表，再打开工作表就可以使用sumcolor和countcolor函数了。 现在我们再来根据单元格的背景颜色进行求和与计数，方法如下： 按颜色求和公式为：sumcolor（颜色示列格，求和区域或列）； 按颜色计数公式为: countcolor（颜色示列格，求和区域或列） 要对a1到a11这个区域内的蓝色格进行求和，在e1单元格中编辑公式=sumcolor(d1,$a$1:$a$11)； 要对a1到a11这个区域内的蓝色格进行计数，在e6单元格中编辑公式=countcolor(d6,$a$1:$a$11)，一定要在半角模式下编辑公式哦！ 如果a1到a11这个区域内单元格背景颜色发生变化，只需双击e1单元格，再按回车键，e列单元格中的数值就会随着颜色的改变而变化过来。