公告
  
尊敬的用户,我们正全力以赴优化资源下载网站,从界面布局到资源分类,从下载速度到安全保障,都在不断改进。可我们不确定是否能让您满意,所以急需您的帮助。只要您花3 - 5分钟填写问卷,就能帮我们明确方向。作为感谢,完成问卷即送30金币,24小时内到账,填问卷时请确保用户名准确。期待您的参与!
问卷链接:点击填写问卷

朕已阅

admin 千秋月 关注
管理组
LV11
发表于程序代码版块 技术杂文

Excel按指定的单元格颜色进行计数或求和

如果Excel工作表的某区域中包含不同的底纹颜色,我们可以用一个自定义函数对该区域按指定的单元格颜色进行计数或求和。方法是: 

1.按Alt+F11,打开VBA编辑器。 

2.单击菜单“插入→模块”,将插入名称为“模块1”的模块,在右侧的代码窗口中输入下列代码:

Function SumByColor(Ref_color As Range, Sum_range As Range) Application.Volatile Dim iCol As Integer Dim rCell As Range iCol = Ref_color.Interior.ColorIndex For Each rCell In Sum_range If iCol = rCell.Interior.ColorIndex Then SumByColor = SumByColor + rCell.Value End If Next rCell End Function Function CountByColor(Ref_color As Range, CountRange As Range) Application.Volatile Dim iCol As Integer Dim rCell As Range iCol = Ref_color.Interior.ColorIndex For Each rCell In CountRange If iCol = rCell.Interior.ColorIndex Then CountByColor = CountByColor + 1 End If Next rCell End Function

上述两个自定义函数,一个是SumByColor,可以对区域按指定单元格的颜色求和。另一个是CountByColor,可以统计区域中某种颜色的个数。这两个自定义函数都有两个参数,前一个参数指定包含某种颜色的单元格,后一个参数为求和或计数区域。

 3.关闭VBA编辑器。 使用方法:假如要求和或计数的区域在A1:B10区域中。 求出该区域中单元格底纹颜色为红色的所有单元格数值之和,在单元格中输入公式:

 =sumByColor(A1,A1:B10) 

求出该区域中单元格底纹颜色为红色的所有单元格的个数,在单元格中输入公式:

 =CountByColor(A1,A1:B10)


评论列表 评论
发布评论

评论: Excel按指定的单元格颜色进行计数或求和

善语结善缘,恶言伤人心



点击进入免费吃瓜群!吃大瓜! 广告位支持代码、文字、图片展示 Image


免责声明
本站资源,均来自网络,版权归原作者,所有资源和文章仅限用于学习和研究目的 。 不得用于商业或非法用途,否则,一切责任由该用户承担 !

请求资源或报告无效资源,请点击[反馈中心]


侵权删除请致信 E-Mail:chengfengad@gmail.com
已有0次打赏
(0) 分享
分享
取消