Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2521|回复: 7

[已解决]求统计红色单元格个数的函数

[复制链接]
发表于 2017-5-20 19:14 | 显示全部楼层 |阅读模式
求统计红色单元格个数的函数
最佳答案
2017-5-20 21:28
本帖最后由 327718098 于 2017-5-20 21:32 编辑
mate33 发表于 2017-5-20 21:21
没有目标的,括号里都为选择的单元格。

=ys(AD21:AL21,AN8) 要选择一个红色的单元格参照,这个还可以统计其他颜色,返回5,只统计红色一种颜色的话就把代码改一下,这样就只选择需要统计的区域就行

Function ys(xzdyg As Range)
Dim rng As Range, n As Long
For Each rng In xzdyg
If rng.Interior.Color = vbred Then
n = n + 1
End If
Next
ys = n
End Function

统计返回红色单元格个数.rar

8.85 KB, 下载次数: 2

发表于 2017-5-20 20:43 | 显示全部楼层
VBA 插入模块把代码复制进去 然后输入函数 = tjys(选择你的单元格,选择你的条件单元格)

Function tjys(xzdyg As Range, tjdyg As Range)
Dim rng As Range, n As Long
For Each rng In xzdyg
If rng.Interior.Color = tjdyg.Interior.Color Then
n = n + 1
End If
Next
tjys = n
End Function



回复

使用道具 举报

 楼主| 发表于 2017-5-20 20:49 | 显示全部楼层
327718098 发表于 2017-5-20 20:43
VBA 插入模块把代码复制进去 然后输入函数 = tjys(选择你的单元格,选择你的条件单元格)

Function tjys ...

返回错误,麻烦教师传一个附件效果。 函数名2个字母。4个太多。
回复

使用道具 举报

发表于 2017-5-20 20:57 | 显示全部楼层
mate33 发表于 2017-5-20 20:49
返回错误,麻烦教师传一个附件效果。 函数名2个字母。4个太多。

请见附件

ss.zip

10.89 KB, 下载次数: 1

回复

使用道具 举报

 楼主| 发表于 2017-5-20 21:21 | 显示全部楼层

没有目标的,括号里都为选择的单元格。

统计返回红色单元格个数2.rar

14.01 KB, 下载次数: 3

回复

使用道具 举报

发表于 2017-5-20 21:28 | 显示全部楼层    本楼为最佳答案   
本帖最后由 327718098 于 2017-5-20 21:32 编辑
mate33 发表于 2017-5-20 21:21
没有目标的,括号里都为选择的单元格。

=ys(AD21:AL21,AN8) 要选择一个红色的单元格参照,这个还可以统计其他颜色,返回5,只统计红色一种颜色的话就把代码改一下,这样就只选择需要统计的区域就行

Function ys(xzdyg As Range)
Dim rng As Range, n As Long
For Each rng In xzdyg
If rng.Interior.Color = vbred Then
n = n + 1
End If
Next
ys = n
End Function

回复

使用道具 举报

 楼主| 发表于 2017-5-20 21:32 | 显示全部楼层
327718098 发表于 2017-5-20 21:28
=ys(AD21:AL21,AN8) 要选择一个红色的单元格参照,这个还可以统计其他颜色,返回5,只统计红色一种颜色的 ...

不做参考的,只统计一个颜色的代码哦。老师。
回复

使用道具 举报

发表于 2017-5-20 21:33 | 显示全部楼层
mate33 发表于 2017-5-20 21:32
不做参考的,只统计一个颜色的代码哦。老师。

6楼的代码
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:59 , Processed in 0.263967 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表