Excel Exercicio - Iniciante em VBA

[Pedrockz]

(INICIANTE)

 

Receber dois números digitados pelo usuário e verificar qual é o maior deles e mostrar ao final somente o maior.

 

Queria saber se tem outros métodos pra resolver essa questão!!

 

Option Explicit

Sub QUESTÃO2()

    Dim a As Integer
    Dim b As Integer
    
    a = InputBox("Digite um Numero")
    b = InputBox("Digite um Segundo Numero")
     
   MsgBox -(a > b) * a - (a < b) * b
    
    
End Sub

 

[André_Arruda]

ai um jeito

Sub QUESTÃO2()

    Dim a As Integer
    Dim b As Integer
    
    a = InputBox("Digite um Numero")
    b = InputBox("Digite um Segundo Numero")
     
    If a > b Then
        MsgBox a
        ElseIf a = b Then
        MsgBox "São iguais"
        Else
        MsgBox b
    End If
    
End Sub