EXCEL VBA MENSAGEM COM OPÇÃO DE ESCOLHA

MSGBOX COM OPÇÃO DE ESCOLHA

Muitas das vezes é necessário que o usuário tome decisões e isso é muito útil para evitarmos por exemplo excluir acidentalmente informações valiosas...

Assim sendo hoje irei ensinar a criar uma pergunta para o usuário e a partir da resposta o código faz isso ou faz aquilo...

Para tal vamos criar uma macro dentro de um módulo...

Sub teste()

    Dim resultado As VbMsgBoxResult

    resultado = MsgBox("Escolha um dos botões SIM ou NÃO ", vbInformation + vbYesNo, "TESTE")

    If resultado = vbYes Then

    MsgBox "VOCÊ ESCOLHEU O BOTÃO SIM"

    Else

    MsgBox "VOCÊ ESCOLHEU O BOTÃO NÃO"

    End If

End Sub

Ao executarmos essa macro a seguinte mensagem é exibida:

Ao escolher nossa opção uma mensagem será exibida dizendo qual a nossa escolha...

Vejam exemplo:

Passo a passo da macro...

Dim resultado As VbMsgBoxResult Aqui criei a variável do tipo caixa de mensagem resultado.

A segunda linha é responsável por criar a caixa de mensagem vejam...

 

If resultado = vbYes Then  se a resposta do usuário for o botão ok (vbyes) fazer

    MsgBox "VOCÊ ESCOLHEU O BOTÃO SIM" outra mensagem com o texto que está entre aspas

    Else  já se a escolha não for o botão sim então fazer

    MsgBox "VOCÊ ESCOLHEU O BOTÃO NÃO" outra mensagem com o texto que está entre aspas

    End If fim do bloco if (se)

Desse modo quando você criar uma rotina de exclusões é só introduzir esse código de modo que se o usuário clicar sim o código faça a exclusão se não... já sabem né kkkkkkk...

Bom galera por hoje é isso... até a próxima....