Question

如果符合以下两个条件，我需要将单元格的字体颜色更改为红色（M列）：

Col P应该有“等待”和
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

查看代码的代码着色。您似乎忘记在*waiting*之后关闭引号。

Answer 2

您的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

基于vba中的两个条件着色单元格

2 个答案: