根据vba中的两个条件为单元格着色

Question

您好，如果满足两个条件，我需要将单元格的字体颜色更改为红色（M列）：

1. Col P 应该有文本“等待”并且
2. Col M 的值应大于 1.0。

你能告诉我如何解决这个问题吗？

我尝试了下面的代码，但它不起作用：

Sub Latency()
    Dim r As Long
    Dim m As Long
    On Error GoTo ExitHere:
m = Range("A:B").Find(What:="*", SearchOrder:=xlByRows,  SearchDirection:=xlPrevious).Row
Application.ScreenUpdating = False
For r = 1 To m
    If Range("O" & r) = "*waiting* && Range("M" & r) >= 1 Then
        Range("M" & r).Cells.Font.ColorIndex = 3
    Else
        Range("M" & r).Cells.Font.ColorIndex = 0
    End If
Next r
ExitHere:
    Application.ScreenUpdating = True
End Sub

Answer 1

您的 m 已关闭，我拆分了您的 if 声明

编辑：颜色变回黑色是错误的，我更新了我的代码。

Sub Latency()
Dim r As Long
Dim m As Long
On Error GoTo ExitHere:
m = Range("M:O").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Application.ScreenUpdating = False
For r = 1 To m
    If Range("O" & r) = "waiting" Then
        If Range("M" & r) >= 1 Then
            Range("M" & r).Cells.Font.ColorIndex = 3
        End If
    Else
        Range("M" & r).Cells.Font.ColorIndex = 0
    End If
Next r
ExitHere:
Application.ScreenUpdating = True
End Sub

Answer 2

查看代码的代码着色。您好像忘记在*waiting* 后面加上引号了。