Question

我正在尝试在具有特定字符串（“最终标记”）的设置行中查找一个单元格，然后搜索该文本下方的单元格。如果该单元格包含特定文本（“失败”），则我需要一个msgbox弹出。

这是用于收集有关已标记作业的数据的工作簿。我已经尝试了以下代码，但无法正常工作。

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)

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

1 个答案: