Обработка ошибок в редакторе Visual Basic для поля электронной почты в форме Excel

Question

Я в настоящее время кодирую форму в Excel. Мне было интересно, есть ли способ найти содержимое поля для определенных символов. Я думал об использовании этого метода для создания кода для проверки целостности данных, введенных в поле электронной почты. Это будет искать "@" и "." и, возможно, вывести логическое значение (true или false), если их там нет.

Заранее спасибо.

Answer 1

Вы можете передать значение в функцию, подобную этой:

Function blnValidEmail(strText As String) As Boolean

    Dim intPosAt As Integer
    Dim intPosDot As Integer

    'finds the position of the @ symbol'
    intPosAt = InStr(strText, "@")

    'finds the position of the last full stop'
    'checks the last full stop because you might'
    'have an address like jane.doe@something.com'
    intPosDot = InStrRev(strText, ".")

    'makes sure that both exist'
    If intPosAt > 0 And intPosDot > 0 Then
        'makes sure that there is a fullstop after the @'
        If intPosDot > intPosAt Then
            blnValidEmail= True
        End If
    End If

End Function