Question

我试图突出细胞取决于细胞价值。

如果它是单个值，我可以使用IF函数。我试图确定该值是否为＆＃34; 9900＆＃34;或＆＃34;＆＃34; 9100＆＃34;。 Cam有人请解释我哪里弄错了？（我知道这是代码的第一行）

If Range("E" & i).Value <> "9900" Or "9100" Then
    Range("A" & i & ":" & "L" & i).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
        End With
        With Selection.Font
        .Color = -16711681
        .TintAndShade = 0
        End With
    End If
Next i

Answer 1

如果要突出显示它，如果该值既不是9900也不是9100，那么它是

If Range("E" & i).Value <> "9900" And Range("E" & i).Value <> "9100" Then

另一种方式是

If Range("E" & i).Value = "9900" Or Range("E" & i).Value = "9100" Then

Answer 2

这是我发现的，

If Range("E" & i).Value <> "9900" Then
  If Range("E" & i).Value <> "9100" Then
    Range("A" & i & ":" & "L" & i).Select
        With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
        End With
        With Selection.Font
        .Color = -16711681
        .TintAndShade = 0
        End With
    End If
    End If

Answer 3

last_row = Application.Workbooks(file_name).Worksheets("ms").Range("a65536").End(xlUp).Row


Range("A" & last_row & ":" & "L" & last_row).Select

 With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent2
    .TintAndShade = 0.399975585192419
    .PatternTintAndShade = 0
    End With
    With Selection.Font
    .Color = -16711681
    .TintAndShade = 0
    End With



If Range("E" & i).Value <> "9900" Or "9100" Then
Range("A" & i & ":" & "L" & i).Select
    With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
End If
Next i

IF函数检查相同范围的多个条件

3 个答案: