La función “Isnontext” sirve para determinar los valores en determinado rango o celda que NO sea texto. Esta función trabajada con “WorksheetFunction” nos demuestra los valores que NO son texto en una determinada hoja de cálculo.
La función se trabaja de la siguiente manera:
Isnontext(Valor)
Si el valor no es un texto, entonces la función será verdadera. Si por el contrario, el valor es un texto, la función será falsa.
Ejemplo de Worksheetfunction.IsNonText
Cómo ejemplo tenemos una hoja de cálculo, la cual tenemos un nombre de un alumno el cuál no está registrado, por lo cual, aparece el espacio de su código en blanco (Celda E3). De esta manera usamos la función worksheetfunction.IsNonText para identificar si el alumno está registrado o no.
La macro es la siguiente:
Sub Proceso1()
Dim Rango1 As String
Asis2 = WorksheetFunction.IsNonText("E3")
If Asis2 = True Then
MsgBox "Alumno sin registrar"
Else
If Asis2 = False Then
MsgBox "Alumno Registrado"
End If
End If
End Sub
En esta macro lo que observamos es lo siguiente:
Sub Proceso1 ()
Se crea una variable como "string"
El valor de "Asis2" realizará la función solicitada de .IsNonText de la celda ·E3·
Si el valor de "Asis2" es verdadero, entonces se generará una venta con el mensaje "Alumno sin registrar",
Luego, si el valor de "Asis2" es falso, entonces se generará una ventana con el mensaje "Alumno Registrado",
Se cierran las 2 funciones "If"
Y se cierra la función "Sub"
