Paso 2: Hacemos clic en el menú Insertar / MóduloPaso 3: En la pantalla en blanco copiamos el siguiente código:Public Function blnEmailValid(ByVal strEmailAdd As String) As Boolean With CreateObject("VBScript.RegExp") .IgnoreCase = True .Global = True .Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$" blnEmailValid = .Test(strEmailAdd) End WithEnd FunctionAcabamos de crear una función que se llama blnEmailValid y que podremos utilizar en cualquier celda del Excel.Esta función esta verificando una Expresión regular que contiene un patrón establecido.Paso 4: Cerramos el VBA y regresamos en Excel.Paso 5: En la celda C2 escribimos un correo electrónico; y en D2 escribimos la función de la siguiente manera:= blnEmailValid(C2)Si el correo es correcto nos indica Verdadero, sino Falso
Paso 1: Entramos a Visual Basic Application (VBA) presionando las teclas ALT+F11
Paso 2: Hacemos clic en el menú Insertar / MóduloPaso 3: En la pantalla en blanco copiamos el siguiente código:Public Function blnEmailValid(ByVal strEmailAdd As String) As Boolean With CreateObject("VBScript.RegExp") .IgnoreCase = True .Global = True .Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$" blnEmailValid = .Test(strEmailAdd) End WithEnd FunctionAcabamos de crear una función que se llama blnEmailValid y que podremos utilizar en cualquier celda del Excel.Esta función esta verificando una Expresión regular que contiene un patrón establecido.Paso 4: Cerramos el VBA y regresamos en Excel.Paso 5: En la celda C2 escribimos un correo electrónico; y en D2 escribimos la función de la siguiente manera:= blnEmailValid(C2)Si el correo es correcto nos indica Verdadero, sino Falso
Paso 2: Hacemos clic en el menú Insertar / MóduloPaso 3: En la pantalla en blanco copiamos el siguiente código:Public Function blnEmailValid(ByVal strEmailAdd As String) As Boolean With CreateObject("VBScript.RegExp") .IgnoreCase = True .Global = True .Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$" blnEmailValid = .Test(strEmailAdd) End WithEnd FunctionAcabamos de crear una función que se llama blnEmailValid y que podremos utilizar en cualquier celda del Excel.Esta función esta verificando una Expresión regular que contiene un patrón establecido.Paso 4: Cerramos el VBA y regresamos en Excel.Paso 5: En la celda C2 escribimos un correo electrónico; y en D2 escribimos la función de la siguiente manera:= blnEmailValid(C2)Si el correo es correcto nos indica Verdadero, sino Falso