Excel·VBA单元格区域按颜色求和等计算

1，单元格区域按颜色求和、计数、求平均值、最值

Function color_calc(rng As Range, rng_color As Range, Optional mode As String = "s")'函数定义color_calc(求和区域，指定颜色单元格，模式)对区域中符合指定颜色的值进行计算'5种模式，"s"即求和sum、"a"即平均值average、"c"即计数count、"max"即最大值、"min"即最小值'单个单元格、单行、单列、多行多列都适用Dim rc, r, i&, arrReDim arr(1 To rng.count)rc = rng_color.Interior.Colori = 0For Each r In rngIf r.Interior.Color = rc Theni = i + 1arr(i) = CDbl(r.Value)End IfNextReDim Preserve arr(1 To i)If LCase(mode) = "s" Thencolor_calc = WorksheetFunction.Sum(arr)ElseIf LCase(mode) = "a" Thencolor_calc = WorksheetFunction.Average(arr)ElseIf LCase(mode) = "c" Thencolor_calc = iElseIf LCase(mode) = "max" Thencolor_calc = WorksheetFunction.Max(arr)ElseIf LCase(mode) = "min" Thencolor_calc = WorksheetFunction.Min(arr)End IfEnd Function

举例

2，单元格区域按颜色和值是否相等

Function color_sumequal(rng As Range)'函数定义color_sumequal(求和区域)对求和区域按颜色求和，返回颜色的和是否相等TRUE/FALSE'单个单元格、单行、单列、多行多列都适用Dim dict, rc, r, v, iSet dict = CreateObject("scripting.dictionary")For Each r In rngrc = r.Interior.Colordict(rc) = dict(rc) + r.ValueNextv = dict.ItemsFor i = 1 To dict.count - 1:  '遍历字典If v(i) <> v(0) Then color_sumequal = "FALSE": Exit FunctionNextcolor_sumequal = "TRUE"
End Function

举例

Excel·VBA单元格区域按颜色求和等计算相关推荐

Excel·VBA单元格区域获取指定行列函数
office 365新增函数<CHOOSEROWS 函数>和<CHOOSECOLS 函数>可以获取单元格区域指定行.列,并返回一个单元格区域对于没有office 365又想使 ...
Excel·VBA单元格区域获取/删除连续行列函数
office 365新增函数<TAKE 函数>和<DROP 函数>可以获取/删除单元格区域开头或结尾连续行.列,并返回一个单元格区域对于没有office 365又想使用这个函 ...
excel指定单元格区域添加相同的字符串
思路吐槽一下:网上百度的结果不知道是过时了还是office版本不对,老是出错! 思路:使用excel的公式,但前提一定要保证公式中数据类型的一致性,否则会出现类似以下几种情况: #value!,#n ...
Excel·VBA单元格合并、撤销合并
目录 1,合并选中单元格区域,并保留所有内容举例 2,合并选中单元格区域,仅合并连续相同的值 3,撤销选中区域内的合并单元格,并对单元格赋值原值举例 4,选中列向下合并连续空单元格举例 1,合并 ...
excel为单元格区域套用表格样式以及取消表格样式
直接套用表格样式是最简单快捷的表格美化手段,而且制作出来的表格外观看起来也很专业. (常见问题) Excel表格样式的套用与创建如何把内容粘贴到excel单元格时自动套用excel的单元格格式 ex ...
Excel·VBA单元格摘要备注内容提取
<excel吧提问-单元格摘要备注内容提取>,对单元格备注内容,分别提取姓名和金额注意:sub中的正则匹配局限性较大,小心使用,且仅支持操作英文括号()内的内容 Private Func ...
基于Hutool工具来设置Excel一个单元格自定义背景颜色
设置未生效一开始,cell设置背景颜色不起作用,代码为: cellStyle.setFillBackgroundColor(IndexedColors.BRIGHT_GREEN1.getIndex( ...
Excel Vba 单元格内容拼接函数，类似PHONETIC，但是添加分隔符
参数: Code :查询的内容 Zone :查询的区域 ColumnIndex :指定返回列的序号 Splitor :行分隔符 '连接字符串,类似PHONETIC,但是可以添加分隔符 Function ...
python excel 特定单元格加背景颜色 wlxt rlxt
import xlwtwb = xlwt.Workbook() ws = wb.add_sheet('A Test Sheet') # 增加sheet# style2 = xlwt.easyxf('p ...

Excel·VBA单元格区域按颜色求和等计算

目录

1，单元格区域按颜色求和、计数、求平均值、最值

举例

2，单元格区域按颜色和值是否相等

举例

Excel·VBA单元格区域按颜色求和等计算相关推荐

最新文章

热门文章