Question

我有一个条件格式，正在填充背景，在单元格中使用正确的颜色，但是当我用格式单元格检查单元格并单击填充时，它显示没有填充任何想法为什么这个将会。

在那里，我可以计算使用VBA设置的传统格式的颜色。

目前使用下面的tyhe代码，它在颜色索引行处失败。

Function CountRed(MyRange As Range)
CountRed = 0
For Each cell In MyRange
ColorIndex = cell.DisplayFormat.Interior.ColorIndex

If ColorIndex = 43 Then
CountRed = CountRed + 1
End If


Next cell
test = 0

End Function

Answer 1

下面的代码将遍历每个条件格式化的外部颜色，然后将使用指定的RGB颜色为单元格着色，

Dim MyRange As Range
Set MyRange = Range("F2:J17")

Dim rng As Range

For Each rng In MyRange

If rng.DisplayFormat.Interior.ColorIndex = 3 Then

    rng.Interior.Color = RGB(255, 0, 0)

End If

If rng.DisplayFormat.Interior.ColorIndex = 44 Then

    rng.Interior.Color = RGB(255, 192, 0)

End If
If rng.DisplayFormat.Interior.ColorIndex = 43 Then

    rng.Interior.Color = RGB(146, 208, 80)

End If



Next rng

Answer 2

正如simoco在评论中指出的那样，您可以通过Range.DisplayFormat

实现这一目标

执行类似

的操作

MsgBox Range("A1").DisplayFormat.Interior.ColorIndex

获取当前显示的单元格背景颜色。

excel条件格式不以格式单元格显示

2 个答案: