Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

240 Parte IV: Como se Comunicar com Seus Usuários
Figura 15-3:
Os botões
de argumento
da
função
MsgBox
determinam
o que
aparece na
caixa de
mensagem.
A seguinte rotina oferece um outro exemplo do uso da função MsgBox:
Sub GetAnswer4()
Dim Msg As String, Title As String
Dim Config As Integer, Ans As Integer
Msg = “Você deseja emitir o relatório mensal?”
Msg = Msg & vbNewLine & vbNewLine
Msg = Msg & “O relatório mensal será emitido “
Msg = Msg & “em aproximadamente 15 minutos. Serão “
Msg = Msg & “geradas 30 páginas para “
Msg = Msg & “todos os escritórios de vendas do “
Msg = Msg & “mês atual.”
Title = “XYZ Marketing Company”
Config = vbYesNo + vbQuestion
Ans = MsgBox(Msg, Config, Title)
If Ans = vbYes Then RunReport
End Sub
Este exemplo demonstra uma maneira eficiente de especificar uma
mensagem mais longa em uma caixa de mensagem. Eu uso uma variável
(Msg) e o operador de concatenação (&) para montar a mensagem em
uma série de declarações. A constante VBNewLine inicia uma nova
linha (use-a duas vezes para inserir uma linha em branco). Eu também
uso o argumento title para exibir um título diferente na caixa de mensagem.
A Figura 15-4 mostra a caixa de mensagem que o Excel exibe
quando você executa esse procedimento.
Exemplos anteriores usaram constantes (tais como vbYes e vbNo) para
o valor retornado de uma função MsgBox. Além destas duas constantes,
a Tabela 15-3 relaciona algumas outras.
E isso é praticamente tudo o que você precisa saber sobre a função
MsgBox. Porém, use caixas de mensagem com cautela. Normalmente,
não há motivo para exibir caixas de mensagem sem objetivo. Por
exemplo, as pessoas tendem a ficar aborrecidas quando vêm uma caixa
de mensagem diariamente, que diz, ‘Bom dia, obrigado por carregar a
pasta de trabalho de Projeção Orçamentária”.