Função IF com MSGBOX no VBA

O uso da função IF com MSGBOX no VBA é muito simples! Se você ainda não sabe usar a MSGBOX no VBA, temos um tutorial específico no link abaixo:

Como Usar a MSGBOX no VBA

Caso você não saiba como criar um módulo no VBA, veja esse link:

Como Criar e Deletar Módulo no VBA

A função IF no VBA, trabalha quase da mesma forma da função SE do Excel. Essa função é capaz de realizar teste lógicos, com base em critérios, e resultando verdadeiro ou falso.

Logo a seguir, usaremos a função IF para emitir uma MSGBOX, caso o resultado seja verdadeiro.

Baixe a planilha para praticar o que foi ensinado neste tutorial:

Função IF com MSGBOX no VBA

Abaixo, temos a pontuação 10 dentro da célula “B4”. Nosso objetivo é criar um código que exiba uma mensagem, caso a pontuação for maior 8 e dentro dessa caixa de mensagem, aparecerá a frase: “Pontuação Alta”.

Elaboramos o seguinte código, dentro do módulo do VBA. Confira:

Se a pontuação for maior que 8, então uma caixa de mensagem aparecerá com a frase: “Pontuação Alta”. Porém, se não for maior que 8, então não acontecerá nada.

Antes de iniciar o código acima, proponho entendermos como ele funciona:

Sub Pontuação(): Inicialização do código, nome definido “Pontuação”. O nome é preferêncial;

If Range(“B4”) > 8 Then: Se o conteúdo de dentro da célula “B4” for maior que 8, então..;

MsgBox “Pontuação Alta”: O termo Msgbox (Caixa de mensagem), será exibido junto com a frase “Pontuação Alta”;

Else: Se não for maior que 8;

End If: Então, finalize a função If;

End Sub: E encerre o código.

Para colocar o código em ação, entre dentro do VBA e pressione a tecla “F5”. Finalizando, teremos o resultado abaixo: