Question

我有一个VBA宏，如果我的C列的任何单元格包含单词“ ERROR”或“ FALSE”，它都会通过消息框发送消息……我想扩展此宏，以便在以下情况下返回此消息框我的列C的任何单元格中的字符串中都包含单词“ ERROR”或“ FALSE”（之所以这样做，是因为有时我可以有一些空格，例如“ ERROR”或“ FALSE”）。…请找到我的代码下面的宏。非常感谢您的帮助。哈维

Sub reporterroroncolumnB ()
    Dim LastRow As Integer
    Dim X As Integer

    LastRow = ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row

    For X = 1 To LastRow
        If Cells(X, 3) = "ERROR" Or Cells(X, 3) = "FALSE" Then
            MsgBox "Cell in column C should be reviewed"
        End If
    Next X
End Sub

Answer 1

If Instr(Ucase(Cells(X, 3)),"ERROR") + instr(Ucase(Cells(X, 3)),"FALSE") > 0 then

如果列C中的单元格包含单词“ FALSE”或“ ERROR”，则返回一个消息框

1 个答案: