如何根据单元格颜色进行判断

chenhu1981

大家好！ 颜色.zip (6.82 KB, 下载次数: 57)

2017-1-3 16:58 上传

点击文件名下载附件

B列对应的是C,D,E,F,G列里字母的个数，如果每一行里的字母对应的单元格，至少有一个为不是黄色的话，H列里就显示是0，如果全部是黄色的话就记为1，有没有快捷的方式得出是0还是1，谢谢！

zax010

Sub zz()
    Application.ScreenUpdating = False
    For i = 6 To [b65536].End(3).Row
        For j = 3 To 7
            If Cells(i, j) <> "" Then
                If Cells(i, j).Interior.ColorIndex <> 6 Then
                    Cells(i, 8) = 0: Exit For
                Else
                    Cells(i, 8) = 1
                End If
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>>


颜色.rar (14.24 KB, 下载次数: 76)

2017-1-3 18:03 上传

点击文件名下载附件

CC例例

H6==COLORS(B6,C6:F6,6)

1. '参数：Rng B列单元格；Col 对应的字母单元格区域；x 颜色值（黄色＝6）
   
2. Function COLORS(Rng As Range, Col As Range, x As Byte)
   
3.     Dim c As Range, y%
   
4.     For Each c In Col
   
5.         If c.Interior.ColorIndex = x Then
   
6.             y = y + 1
   
7.         End If
   
8.     Next
   
9.     COLORS = IIf(Rng.Value = y, 1, 0)
   
10. End Function

复制代码

zax010

这个可能更接近题意：

Sub z()
    For i = 6 To [b65536].End(3).Row
        For j = 3 To 7
            If Cells(i, j) <> "" Then
                If Cells(i, j).Interior.ColorIndex = 6 Then n = n + 1
            End If
        Next
        If n = Cells(i, 2) Then Cells(i, 8) = 1 Else Cells(i, 8) = 0
        n = 0
    Next
    Application.ScreenUpdating = True
End Sub