有人给了excel颜色求和的模块 我不知道如何使用他 有谁告诉我吗

[复制链接]
查看11 | 回复2 | 2011-12-29 09:46:24 | 显示全部楼层 |阅读模式
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:Function sumcolor(rng1 As Range, rng2 As Range) As SingleDim cell As RangeFor Each cell In rng1If cell.interior.Color = rng2.interior.Color Then sumcolor = sumcolor + cellNext cellEnd Function回到Excel中,输入 =sumcolor(C3:E7,D4),其中C3:E7是待求和的单元格区域,D4单元格有填充颜色,这两个都可以改的。如果不是填充颜色,而是字体颜色...
回复

使用道具 举报

千问 | 2011-12-29 09:46:24 | 显示全部楼层
假设你的数据在A列在名称管理器中 新建 名称 X引用位置写 =GET.CELL(38,Sheet1!$A1)在B1中写=X 然后下拉,即可返回颜色值,红色为3 黄色为6接下来=SUMIF(B:B,6,A:A)这是求黄色的和=SUMIF(B:B,3,A:A)这是求红色的和...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行