excel - 在行中查找文本，然后在该列中查找文本

Question

我试图在一组行中查找具有特定字符串(“最终标记”)的单元格，然后搜索该文本下方的单元格。如果该单元格包含特定的文本片段(“失败”)，那么我需要弹出一个消息框。

这是一个收集已标记作业数据的工作簿。我已经尝试过以下代码，但它不起作用。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FinalMark As Range
    Set FinalMark = Rows(5).Find(what:="Final Mark", LookIn:=xlValues, lookat:=xlWhole)
    If Not FinalMark Is Nothing Then
    If Not FinalMark.Column.Find(what:="Fail", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True) Is Nothing Then
        MsgBox "Input reason for fail in Further Notes.", vbInformation
    End If
    End If
End Sub

我希望它会搜索我找到文本“Final Mark”的列，但事实并非如此。

Answer 1

改变

If Not FinalMark.Column

至

If Not Columns(FinalMark.Column)