Neste artigo, aprenderemos a função MsgBox no Excel VBA. A seguir estão as configurações de argumento dos botões do msgbox vba:
| Constante | Valor | Descrição |
| vbOKOnly | 0 | Exibir apenas o botão OK. |
| vbOKCancel | 1 | Exibir os botões OK e Cancelar. |
| vbAbortRetryIgnore | 2 | Exibir os botões Abortar, Repetir e Ignorar. |
| vbYesNoCancel | 3 | Exibir os botões Sim, Não e Cancelar. |
| vb Sim Não | 4 | Exibir os botões Sim e Não. |
| vbRetryCancel | 5 | Exibir os botões Tentar novamente e Cancelar. |
| vbCritical | 16 | Exibir ícone de mensagem crítica. |
| vbQuestion | 32 | Exibir ícone de Consulta de Aviso. |
| vbExclamation | 48 | Exibir ícone de mensagem de aviso. |
| vbInformation | 64 | Exibir ícone de mensagem de informação. |
| vbDefaultButton1 | 0 | O primeiro botão é o padrão. |
| vbDefaultButton2 | 256 | O segundo botão é o padrão. |
| vbDefaultButton3 | 512 | O terceiro botão é o padrão. |
| vbDefaultButton4 | 768 | O quarto botão é o padrão. |
| vbApplicationModal | 0 | Modal de aplicação; o usuário deve responder à caixa de mensagem antes de continuar a trabalhar no aplicativo atual. |
| vbSystemModal | 4096 | Modal do sistema; todos os aplicativos são suspensos até que o usuário responda à caixa de mensagem. |
| vbMsgBoxHelpButton | 16384 | Adiciona o botão Ajuda à caixa de mensagem |
| VbMsgBoxSetForeground | 65536 | Indica a janela da caixa de mensagem como a janela de primeiro plano |
| vbMsgBoxRight | 524288 | O texto está alinhado à direita |
| vbMsgBoxRtlReading | 1048576 | Especifica que o texto deve aparecer como leitura da direita para a esquerda nos sistemas hebraico e árabe |
Vamos ver como a caixa de mensagem vba pode ajudar o usuário a deletar todo o conteúdo das células na planilha atual.
A seguir está o instantâneo dos dados:
Precisamos seguir as etapas abaixo:
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
- Vamos inserir um botão de comando
- Insira o seguinte código no módulo de planilha atual: -
Opção Explícita
Private Sub CommandButton1_Click ()
Dim answer As Integer
answer = MsgBox ("Você deseja excluir todas as células da planilha atual?", vbYesNo + vbQuestion, "Excluir todas as células")
Se a resposta = vb Sim, então
Cells.ClearContents
Outro
'fazer nada
Fim se
End Sub
- Ao clicar no botão de comando, o seguinte prompt aparecerá
- Clique no botão Sim para excluir todas as células.
- O resultado será o seguinte
Desta forma, podemos excluir todas as células usando o botão de comando no Excel VBA.
Download-Message Box no Excel VBA