欧非资源网:安全、免费、专业放心的资源下载站! 最新软件|软件分类

您的位置:欧非资源网 > Excel专区 > Excel技巧 > excel中如何按单元格背景颜色求和或计数

excel中如何按单元格背景颜色求和或计数

时间:2020-11-16 16:18作者:admin来源:未知人气:1482我要评论(0)

本文将讲述如何在excel中按背景颜色对单元格进行计数和求和。如何通过用户自定义函数来按单元格的背景颜色统计单元格的数量。如何在excel中按背景颜色求和单元格。

excel按背景颜色计算和求和单元格


在Microsoft Excel中没有用于按颜色计数或求和单元格的特定函数,因此您可以尝试编写新的用户定义函数,以根据背景颜色对单元格求和或计数。

假设您有一个表格,其中当前工作表中的单元格范围是有背景颜色的。如果要计算有色单元格的数量,例如,此单元格区域中的蓝色或红色数量,您可以创建新的用户定义函数来实现统计。

因此,您可以创建以下用户定义的函数,以按单元格的背景颜色对单元格进行计数和求和,只需参考以下步骤:

步骤1:打开您的Excel工作簿,然后单击开发工具选项卡下的“Visual Basic”命令,或者只需按“ALT + F11”快捷方式。

Excel 中如何只複製內容和格式102

步骤2:然后将出现“Visual Basic编辑器”窗口。

Excel 中如何只複製內容和格式91

步骤3:单击“插入” – >“模块”以创建新模块。

Excel 中如何只複製內容和格式101

步骤4:将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。

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

  1. Function CountColorByBgColor(sColor As Range, sRange As Range, Optional SUM As Boolean)
  2. Dim gResult
  3. Dim sCell As Range
  4. Dim sCol As Long
  5.  
  6. sCol = sColor.Interior.ColorIndex
  7. If SUM = True Then
  8. For Each sCell In sRange
  9. If sCell.Interior.ColorIndex = sCol Then
  10. gResult = WorksheetFunction.SUM(sCell, gResult)
  11. End If
  12. Next sCell
  13. Else
  14. For Each sCell In sRange
  15. If sCell.Interior.ColorIndex = sCol Then
  16. gResult = 1 + gResult
  17. End If
  18. Next sCell
  19. End If
  20. CountColorByBgColor = gResult
  21. End Function

步骤4:返回当前工作表,尝试输入以下公式,按单元格F2中的背景颜色计算单元格:

=CountColorByBgColor(E2,$B$1:$C$4,FALSE)

您可以看到B1:C4范围内的单元格红色数已经计算到单元格F2。

如果要计算B1:C4范围内其他颜色的数量,只需将自动填充手柄向下拖动到其他单元格即可。

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

如果要按B1:C4范围内的背景颜色对单元格求和,可以使用上述用户定义的函数记下以下公式:

=CountColorByBgColor(E2,$B$1:$C$4,TRUE)

所以你只需要将第三个参数设置为TRUE,它将执行SUM动作来对彩色单元格求和。

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

相关阅读 Excel表格数据设置到期自动销毁的方法Excel数据分列的详细使用方法Excel数字乱码怎么办?这样处理1秒解决,完美!Excel办公小技巧,全学会了让你的效率一秒提升!如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法,最后一种效率最高excel如何将阿拉伯数字快速转换为中文大小写格式?excel如何利用公式快速在表格中批量输入五角星的方法如何利用Excel的强大抠图功能,简单2步抠出透明手写艺术签名!分享Excel中的一个神操作,掌握后可快速提高工作效率!

文章评论
发表评论

热门文章 excel柏拉图折线如何从0开始Excel 如何将默认粘贴模式改为匹配目标格式Excel表格一格分两格的方法图解教程excel 如何使用数据透视表(Pivot Table)

最新文章 Excel表格数据设置到期自动销毁的方法Excel数据分列的详细使用方法 Excel数字乱码怎么办?这样处理1秒解决,完美!Excel办公小技巧,全学会了让你的效率一秒提升!如何解决Excel删除/添加行列序号不会自动排序excel快速合并单元格的3种方法,最后一种效率最高

人气排行 excel柏拉图折线如何从0开始Excel 如何将默认粘贴模式改为匹配目标格式Excel表格一格分两格的方法图解教程excel 如何使用数据透视表(Pivot Table)Excel中如何插入PDF文件Excel表格在一页A4纸上打印不下去,怎么办?excel保存了却不见了怎么办excel如何将两列数据一一对应

盖楼回复X

(您的评论需要经过审核才能显示)