excel - If Not (range) or (range) = Nothing Then

Question

我正在开发一个宏来突出显示某些行/单元格以供进一步审查。一些值/空白将以红色突出显示，其他以橙色突出显示，而整行应为黄色。我从上一个问题中得到了一些帮助，并添加了更多细节，它工作得几乎完美，但我被困在最后一件事上，找不到任何类似的问题。我希望指定的单元格在同一黄色行上是橙色和红色。我可以实现橙色或红色，但是当它通过下一次检查时，它会以黄色重新突出显示该行 - 失去以前的颜色。

例如，如果 A 列为空白，则 A 列必须为红色，而 B 列如果填充为“否”，则必须为橙色。如果我使用相同的颜色，我的所有检查都有效，但是当我将其设置为同时使用时失败。

我使用的代码:

如果不是 rngRed 就什么都不是
rngRow.Interior.Color=vbYellow
rngRed.Interior.Color=vbRed

我想不出一种方法可以在没有窃听的情况下将橙色(颜色索引 45)加入该混合物中。如果您需要比我提供的小部分更多的代码，或者对如何完成此操作有任何其他想法，请告诉我。谢谢!!!!

这有效:

    If Not rngRed Is Nothing Then
    rngRow.Interior.Color=vbYellow
    rngRed.Interior.Color=vbRed

这不起作用:

        If Not rngRed Or rngOrange = Nothing Then
            rngRow.Interior.Color = vbYellow
            rngRed.Interior.Color = vbRed
            rngOrange.Interior.ColorIndex = 45
        End If

Answer 1

根据重新阅读您的问题，听起来您正在寻求执行以下操作:

1) 将行涂成黄色。

2) 颜色rngRed如果它不是什么。

3) 颜色rngOrange如果它不是什么。

所以像这样:

rngRow.Interior.Color = vbYellow

If Not rngRed Is Nothing Then
    rngRed.Interior.Color = vbRed
End If

If Not rngOrange Is Nothing Then
    rngOrange.Interior.ColorIndex = 45
End If