返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

excel实现按颜色求和与计数函数

时间:2017-05-09 09:46来源:Office教程学习网 www.office68.com编辑:麦田守望者

本文介绍如何按颜色求和与计数函数。


按颜色求和与计数函数
 
       1、求相同颜色单元格个数CountColor()
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
       2、求相同颜色单元格数值和SumColor()
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 
       具体操作过成是:
       1、工具--宏--输入宏名CountColor--创建--进入vb编辑页面
       2、删除所有内容--将以上代码复制后粘贴到vb编辑页面--保存为.xla(加载宏文件)
       3、输入函数=CountColor(指定颜色的单元格,统计区域),
顶一下
(2)
100%
踩一下
(0)
0%
标签(Tag):excel excel2003 excel复制公式
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣