Função Excel VBA MsgBox

o Função MsgBox em Excel VBA pode retornar um resultado enquanto um MsgBox simples não pode.

Situação:

Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:

1. Primeiro, declaramos uma variável chamada resposta do tipo Integer.

Dim answer As Integer

2. Usamos a função MsgBox para inicializar a resposta variável com a entrada do usuário.

A função MsgBox, ao usar parênteses, temtrês argumentos. A primeira parte é usada para a mensagem na caixa de mensagem. Use a segunda parte para especificar quais botões e ícones você deseja exibir na caixa de mensagem. A terceira parte é exibida na barra de título da caixa de mensagem.

answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")

Nota: Coloque o cursor no vbYesNo no Editor do Visual Basic e clique em F1 para ver quais outros botões e ícones você pode usar. Em vez das constantes vbYesNo e vbQuestion, você também pode usar os valores correspondentes 4 e 32.

3. Se o usuário clicar no botão Sim, o Excel VBA esvazia a planilha. Se o usuário clicar no botão Não, nada acontece. Adicione as seguintes linhas de código para conseguir isso.

If answer = vbYes Then
Cells.ClearContents
Else
"do nothing
End If

4. Clique no botão de comando na folha.

Clique em Sim.

Resultado: