excel - 如何检查特定范围内是否有任何彩色单元格？

Question

我正在寻找一个 Excel 公式来检查一行中是否有任何彩色单元格。
如果有，在第 2 列的同一行(实际上是 B 列)打印 "is" , 否则 打印 “没有” .
我尝试使用此公式检查第二行:

=IF(2:2.Interior.Color=4,"Yes","No")

也许解决方案应该用 VBA 代码而不是 Excel 公式编写。
这是我希望它的外观:

Answer 1

在 vba 中，您可以尝试使用此代码:在此示例中，我使用范围 C2 到 F10，但您可以更改 startRow、endRow、startCol end in endCol 的值以更改范围。

Sub MyInteriorColor()

Const COLOR As Integer = 4 ' here you can change the color    
Dim startRow, endRow, startCol, endCol, i, c As Integer

startRow = 2 ' Read the interior color from second row
endRow = 10 ' Last row where i read the interior color

startCol = 3 ' Column where i start to read the interior color
endCol = 6 ' Column where i finish to read interior color

For i = startRow To endRow
    For c = startCol To endCol
    
        If Cells(i, c).Interior.ColorIndex = COLOR Then
            Cells(i, 2) = "YES"
            Exit For
        Else
            Cells(i, 2) = "NO"
        End If
    Next c
Next i
End Sub