MsgBox VBA como usar? Como inserir argumentos?
MsgBox é uma caixa de dialógo que quando inserido através do VBA, nos traz uma mensagem pré definida pelo usuário em tela.
Como inserir uma MsgBox simples no excel? É possível trazer apenas mensagem simples. No entanto, também vamos aprender a inserir mensagens com argumentos.
Public Sub InserirMsgbox()
Msgbox "Seja bem vindo (a) ao Microsoft Excel!"
End SubOu seja, com a inserção do código acima, teremos uma MsgBox inserida de maneira simples no excel. Veja abaixo.
Por outro lado, você também pode aproveitar para realizar a leitura de nosso artigo onde ensinamos utilizar InputBox no Excel, ambas ferramentas são muito úteis e semelhantes.
Sintaxe MsgBox
Enquanto isso ao inserirmos msgbox vamos nos deparar com algumas sintaxes. São elas:
MsgBox(Prompt, [Button As VbMsgBoxStyle = VbOKOnly], [Title], [HelpFile], [Context]) As VbMsgBoxResult
Prompt
De antemão, expressão obrigatória, corpo principal da mensagem transmitida. Em outras palavras, nosso exemplo acima seria “Seja bem vindo (a) ao Microsoft Excel!”.
Button
Expressão opcional, nos trará opções de Ok, Cancelar. Abaixo vamos demonstrar as opções de botões para inserção. No entanto, também é possível de transmitir uma imagem (error, informativo e exclamação).
Title
Expressão opcional, utiliza a inserção do Título da caixa de texto, em nosso exemplo acima. No entanto, como não foi definido e o sistema inseriu “Microsoft Excel”.
Helpfile
Expressão opcional, trata-se de expressão numérica que identifica o arquivo de ajuda. Em outras palavras, ao utilizar o HelpFile o contexto também será obrigatório.
Context
Expressão opcional, em toda via, torna-se obrigatória caso o HelpFile esteja preenchido. Mas também é tratado por expressão numérica de help.
Como Configurar Button MsgBox em VBA
Por outro lado, confira os argumentos possíveis para inserir no button de msgbox. No entanto, separamos apenas os mais utilizados.
A princípio, aprendemos a inserir MsgBox e os argumentos possíveis de inserir. Em outras palavras, vamos demonstrar alguns e como usar.
Como usar o MsgBox
Em nosso primeiro exemplo, vamos manter o texto utilizado anteriormente, e vamos incluir um argumento de vbOKCancel, para isso deve-se aparentar os botões de OK e Cancelar.
Caixa de Mensagem Básica
Public Sub InserirMsgbox()
Msgbox "Seja bem vindo (a) ao Microsoft Excel", vbOKCancel
End Sub
Por exemplo, como percebemos, tivemos dois botões disponíveis agora. São eles: Ok, Cancelar.
No entanto, vamos também inserir um informativo de error em nossa msgbox.
Caixa de Mensagem Crítica
Mas para isso, temos disponíveis as opções vbCritical, vbInformation e vbExclamation.
Mas, recomendamos o teste de ambos para você decidir qual utilizar (nós vamos exemplificar com vbCritical).
Public Sub InserirMsgbox()
Msgbox "Seja bem vindo (a) ao Microsoft Excel", vbOKCancel + vbCritical
End Sub
MsgBox VBA Sim ou Não
Por outro lado, podemos utilizar o MsgBox como maneira de pergunta, nesse caso utilizamos as opções de Sim e Não.
Public Sub RealizarPergunta()
Dim resultado As VbMsgBoxResult
resultado = MsgBox("Insira a Pergunta aqui:", vbYesNo + vbQuestion, "Solicitação")
If resultado = vbYes Then
'Insira aqui a rotina a ser realizado caso a resposta seja Sim.
Else
'Insira aqui se a resposta for Não.
End If
End SubComo resultado, teremos a realização de uma pergunta ao usuário, obrigado a ele responder Sim ou Não.
Por outro lado, aproveitamos logo depois da seleção, criamos a funcão If onde estipulamos qual resultado tratá se for Sim, e qual resultado será se não.
Com isso, o resultado será retornado conforme seleção de Sim ou Não.
Portanto, finalizamos aqui nosso passo a passo referente ao MsgBox em Excel VBA, a partir daí você pode usar criatividade para inserir ele eu seus relatórios, ou em final de relatórios.
