使用 OR 函数的多个 IF 语句条件不起作用 - VBA

Question

我正在尝试获取代码以检查多个条件是否为真，如果是，则更改单元格的颜色，但这不起作用并且突出显示了不必要的方法。我不确定为什么代码不能按预期工作：

Sub ConditionCheck()

Dim wb As Workbook
Dim ws As Worksheet
Dim lastrow As Long
Dim rng1 As Range
Dim rng2 As Range
Dim c As Range
Dim d As Range

Set wb = ActiveWorkbook
Set ws = wb.Sheets("Source")
lastrow = Sheets("Source").Cells(Rows.Count, "A").End(xlUp).Row

i = 2

For i = 2 To lastrow

    If Cells(i, 8) = "Cancelled Not Applicable" Or Cells(i, 8) = "Completed" Or Cells(i, 8) <> "" Then
        If Cells(i, 23) <> "Cancelled" Or Cells(i, 23) <> "Completed" Then
            Cells(i, 23).Interior.ColorIndex = 4
        End If
    End If
Next i


End Sub

样本数据：

CASE ID       CASE STATUS                PROGRAM STATUS
10001         Active                     Pending
10002         Completed                  Pending Review
10004         Cancelled Not Applicable   Cancelled

Answer 1

If Cells(i, 8) = "Cancelled Not Applicable" Or Cells(i, 8) = "Completed" Or Cells(i, 8) <> "" Then
    If Cells(i, 23) <> "Cancelled" Or Cells(i, 23) <> "Completed" Then
        Cells(i, 23).Interior.ColorIndex = 4
    End If
End If

这说：

如果您的案例状态为“已取消，不适用”或您的案例状态为“已完成”或您的案例状态为任何值（非空），那么请继续测试您的计划状态是否为任何值（因为它不能同时“取消”和“完成”）然后继续并突出显示它。

所以这里真的有两个问题。

1. 您的 Or Cells(i, 8).value <> "" 在这里您说“如果此单元格为空白，则将此 IF 行作为真传递”，因为它是 OR。这就像说“如果这只鸡是红色的，或者这只鸡是黑色的，或者这只鸡存在”所以如果你正在测试一只蓝色的鸡，它会因为它存在而通过。

2. 您的Cells(i, 23) <> "Cancelled" Or Cells(i, 23) <> "Completed"。如果单元格包含“已取消”，那么您的第二个条件为真，因为它没有说“已完成”，所以它通过了。如果您的单元格显示“已完成”，那么您的第一个条件将通过，因为它不是“已取消”。如果您的单元格显示“Booger farts”，那么这两个条件都会通过，因为它既不是“Cancelled”也不是“Completed”。所以你真的想在这里AND。

第二点很难理解，因为“OR”不是我们在英语中使用它的方式。以这种方式思考可能会有所帮助：如果我们有一个像 IF condition1 OR condition2 OR condition3 这样的测试，那么只有其中一个条件需要为真才能通过。 If TRUE OR FALSE OR FALSE 通过。您在此处的条件是“不等于”，这增加了混乱，但您只需要专注于单个条件并确定它是返回“TRUE”还是“FALSE”，并做出声明IF TRUE OR FALSE（通过）或@987654329 @（通过）或IF FALSE OR TRUE（通过）或IF FALSE OR FALSE（最终失败！）。

相反，你想说：

如果 CASE STATUS 已填写且 PROGRAM STATUS 为 IN PROGRESS 或 PENDING 或 PENDING REVIEW 等，则 CASE STATUS 不能取消或完成

所以：

If Cells(i,8).value <> "" AND (Cells(i, 8).value = "Cancelled Not Applicable" OR Cells(i,8).value = "Completed") AND (Cells(i, 23).Value <> "Cancelled" AND Cells(i, 23).Value <> "Completed") Then
    Cells(i, 23).Interior.ColorIndex = 4
End If