mostrar caixa de mensagem o direito de usuários é fundamental quando você precisa para executar código com base em suas respostas. VBA tem uma seleção de caixas de mensagem com o botão opções para atender às necessidades de sua aplicação. Se você precisa para exibir uma mensagem para o usuário e não precisa de tomar medidas com base na resposta , use uma caixa de mensagem com um botão "OK" . Use as caixas de mensagens com opções de botão , como "Sim" ou "Não" quando você precisa executar uma seção diferente do código para cada botão. Instruções
1

Clique na guia "Desenvolvedor" e clique em " Visual Basic" para abrir a janela do VB Editor. . Clique no menu "Inserir" e "Módulo " para inserir um novo módulo de código
2

Crie um novo procedimento sub e uma variável Integer , adicionando o seguinte código: Private Sub

MessageBoxes ()

Dim returnval As Integer
3

Exibe uma caixa de mensagem com um botão "OK" :

MsgBox " mensagem com o botão OK" , vbOKOnly , "OK"
4

Adicione o seguinte código para exibir uma caixa de mensagem com um " OK" e um botão "Cancelar" :

returnval = MsgBox (" mensagem com botões OK e Cancelar " , vbOKCancel , " OK e Cancelar ")
5

Digite o código a seguir para determinar qual botão foi clicado e exibir o resultado na janela Immediate:

Se ( returnval = 1) Então

Debug.Print " botão OK foi clicado "

Else

Debug.Print "Cancelar botão foi clicado "

Fim Se
6

Adicione o código para exibir uma caixa de mensagem com os botões "Abortar ", "Repetir " e " Ignorar: "

returnval = MsgBox (" mensagem com Abort , Retry , e ignorar " , vbAbortRetryIgnore ", AbortRetryIgnore " )
7

determinar qual botão foi pressionado e exibir os resultados através da janela imediata , adicionando o seguinte código:

Se ( returnval = 3) Em seguida,

Debug.Print "Abortar botão foi clicado "

ElseIf ( returnval = 4) Então

Debug.Print " botão Retry foi clicado "

Else

Debug.Print "Ignorar botão foi clicado "

End If
8

Adicione um "Sim" e "Não" caixa de mensagem botão :

returnval = MsgBox (" Mensagem com botões Sim e Não " , vbYesNo , " Sim e não")
9

Determine o botão clicado pelo usuário , adicionando o seguinte código:

Se ( returnval = 6) Então

Debug.Print " Sim botão foi clicado "

Else

Debug.Print "Nenhum botão foi clicado "

End If
10

terminar o procedimento , acrescentando " End Sub " como a última linha de código. Pressione " Ctrl" e "G" para visualizar a janela imediata e pressione " F5" para executar o procedimento .