在消息框中显示错误的地方

Question

我使用此代码来防止输入无效的电子邮件地址的文本。用户具有一个带有22个文本框的UserForm，供用户将地址输入到一系列单元格中。如何获得消息框以显示错误所在？或者，是否应该将此“检查”放在另一个地方，例如“ CommandButton1_Click（）”子目录中？

此代码在“ Private Sub Worksheet_Change（ByVal目标作为范围）”表中。

If Target.Cells.CountLarge = 1 Then
    If Target.Column = 13 And Target.Value <> "" And Evaluate("COUNTIF(" & Target.Address & ",""*@*.*"")") <> 1 Then
        Target.ClearContents
        Target.Activate
        MsgBox "Please enter a valid email address."
    End If
End If

Answer 1

If Target.Cells.CountLarge = 1 Then
    If Target.Column = 13 And Target.Value <> "" And Evaluate("COUNTIF(" & Target.Address & ",""*@*.*"")") <> 1 Then
        MsgBox "Email address ''" & Target.Value & "'' in " & Target.Address & " is not a valid email address." & _
        vbNewLine & "Please enter a valid email address."
        Target.ClearContents
        Target.Activate
    End If
End If