根据数据字体颜色判定是否合格（指标太多，如何判定？）

MiFine

菜鸟一个，求助~~
下图是检测数据表，部分已经设置了条件格式，不在指标内的都显示为红色加粗。
图表中从R列到BK列都是检测数据，隐藏起来的列是不用检测的项目（都是空白的）
现在希望通过数据的颜色在B列判定是否合格，即如果第4行从R4到BK4的数据都显示为黑色，则B4显示为合格，如果R4到BK4的数据中有一个或以上显示红色，则B4显示为不合格。
本人初学vba，查过资料，自己弄了几个代码，都不成功，求助各位大神，谢谢。
PS：如果以颜色判定不是一个好方法，那么怎么判定好一点？因为公司产品的检测项比较多，随便都有几十个指标，每个指标我都只能通过设置条件格式去判定是否合格，这样不科学。

不知何故

1. Sub test()
   
2.     Dim r&, c As Range, rng As Range
   
3.     Set rng = Range("b4:b" & Range("c" & Rows.Count).End(xlUp).Row)
   
4.     For Each c In rng
   
5.         r = c.Row
   
6.         For i = 18 To 63
   
7.             If Cells(r, i).Font.Color = vbRed Then c = "不合格": Exit For
   
8.         Next i
   
9.         If i > 63 Then c = "合格"
   
10.     Next c
    
11. End Sub
    

复制代码

MiFine

不知何故 发表于 2018-9-29 16:15

试了，可是全部都显示合格

不知何故

MiFine 发表于 2018-9-29 16:31
试了，可是全部都显示合格

那请传附件。你截图的红色，我不知道是什么红色，红色有几万种，你要提供颜色号。我的vbred纯红色。

用颜色判断是否合格不是一个好办法，效率低。最好是直接用数据判断是否合格，那样在数组内操作就快多了。

abc123281

这种没有附件的求助  回复了也是白费精神

MiFine

abc123281 发表于 2018-9-29 20:02
这种没有附件的求助  回复了也是白费精神

因为公司保密太严，电脑连个压缩软件都没有，需要管理员授权安装，所以回家才上传附件。
谢谢大家了

chentonny

先检测出红色字体的颜色代码，
然后循环R4到BK4，若有字体颜色=颜色代码则B4=不合格

不知何故

MiFine 发表于 2018-9-29 20:59
因为公司保密太严，电脑连个压缩软件都没有，需要管理员授权安装，所以回家才上传附件。
谢谢大家了

条件格式显示的颜色号很难获取，直接用条件判断是否合格最方便。



help.zip (18.98 KB, 下载次数: 12)

2018-9-29 22:03 上传

点击文件名下载附件