Показать, где ошибка находится в окне сообщения - PullRequest
Новая
       36

Показать, где ошибка находится в окне сообщения

0 голосов
/ 15 марта 2020

Я использую этот код для предотвращения ввода текста, который не является действительным адресом электронной почты. У пользователя есть пользовательская форма с 22 текстовыми полями, чтобы пользователь мог вводить адреса в диапазон ячеек. Как я могу получить окно сообщения, чтобы показать, где была ошибка? Или я должен поставить эту «проверку» в другом месте, например, в подпункте «CommandButton1_Click ()»?

Этот код находится на листе «Private Sub Worksheet_Change (ByVal Target As Range)». 

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

1 Ответ

0 голосов
/ 16 марта 2020 
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
...