VBA - 在输入其他值时检查某个值是否存在

Question

我有一个文档，它将各种信息收集到特定的单元格中。

在使用已创建的宏时，我需要一个检查一个单元格以查看某个条目是否存在的子程序（比如说“Dave”）。在输入“Dave”的地方，需要检查“Norman”是否输入到不同的单元格中。在没有的地方，需要出现一个消息框并退出子程序。如果输入了“Norman”，则允许完成子程序。在输入“Dave”以外的内容时，代码退出子程序并继续使用原始宏。

我不希望例程更改“诺曼”需要去的当前条目。

希望这是有道理的 - 到目前为止，我的代码非常不完整，如下所示：

Sub SIFSOLCHECK()

    If instform.Range("Claim_Sol").Value = "Dave" Then
        Sheets("Proceedings").Range("Sol_Co_UF").Value = "Norman"
        MsgBox "Only Norman can assist with Dave"
        Range("Solicitor").Select
        Exit Sub
    Else
    End If
End Sub

感谢任何帮助！

Answer 1

试试这个：

Sub SIFSOLCHECK()

    If instform.Range("Claim_Sol").Value = "Dave" Then
        If Sheets("Proceedings").Range("Sol_Co_UF").Value = "Norman" Then
            'some code
        End If
    Else
        MsgBox "Something"
    End If

End Sub