En este post quiero mostrar los pasos que debes de seguir para determinar si un número es par. Primero vamos a crear el programa con el que el usuario va a interactuar. Luego, vamos a crear la función que determinará si un número es par.
Sub program()
'Este es el programa con el que el usuario va a interactuar.
Dim num As Long
Dim msg As String
msg = "Es impar."
If IsEmpty(Range("B1").Value) Then
msg = "Introduce un numero."
Else
num = Range("B1").Value + 0
If esPar(num) Then
msg = "Es par."
End If
End If
Range("C1").Value = msg
End Sub
Public Function esPar(num As Long) As Boolean
'Determina si un número es par
Dim par As Boolean
par = False
If num Mod 2 = 0 Then
par = True
End If
esPar = par
End Function
Puedes copiar y pegar este código en el editor de Visual Basic for Application de Microsoft Excel, probarlo y aplicarle mejoras.