Páginas

Programa en Excel: Determinar si un número es par | Función en VBA Excel

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.