1
我正在尝试计算有条件着色的单元格(以及其他满足的条件)。检查有条件格式化单元格的颜色索引
的代码来检查颜色索引如下:
Function CheckColor(rng As Range)
Dim arr()
'ReDim arr(1 To rng.Count, 1 To 1) ' or use this instead of arr = rng.Value2
arr = rng.Value2 ' arr Type in the Locals window shows as Variant(1 To 11, 1 To 1)
For i = 1 To rng.Cells.Count
arr(i, 1) = rng.Cells(i, 1).Interior.ColorIndex = 15
Next i
CheckColor = arr
End Function
不过,我发现的是,条件格式歪斜的颜色索引。任何人都可以帮助我修复上述功能来检查有条件格式化单元格的颜色代码吗?
您好,感谢您的答复。但是,当我运行它时,我得到一个值错误,如下所示:'= DisplayedColor(N25)' –
你在那里?它不起作用 –
每个单元有多个条件吗?什么是格式(字体和背景颜色)? – Taosique