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

Capítulo 15: Caixas de Diálogo Simples
237
Você pode usar a função MsgBox de duas maneiras:
55
Apenas para mostrar uma mensagem ao usuário. Nesse caso,
você não se preocupa com o resultado retornado pela função.
55
Para obter uma resposta do usuário. Nesse caso, você se
preocupa com o resultado retornado pela função. O resultado
depende do botão que o usuário clicar.
Se você usar a função MsgBox sozinha, não inclua parênteses em torno
dos argumentos. O exemplo a seguir exibe apenas uma mensagem e não
retorna um resultado. Quando a mensagem é exibida, o código é
interrompido até o usuário clicar OK.
Sub MsgBoxDemo()
MsgBox “Clique OK para iniciar a impressão.”
Sheets(“Results”).PrintOut
End Sub
A Figura 15-1 mostra como essa caixa de mensagem se parece.
Figura 15-1:
Uma
simples
caixa de
mensagem.
Obtendo uma resposta de
uma caixa de mensagem
Se você exibir uma caixa de mensagem que tenha mais do que apenas um
botão OK, provavelmente irá querer saber qual botão o usuário clicará. A
função MsgBox pode retornar um valor que representa qual botão foi
clicado. Você pode designar o resultado da função MsgBox a uma variável.
No seguinte código, eu uso algumas constantes integradas (as quais
descrevo mais adiante, na Tabela 15-2), que facilitam trabalhar com os
valores retornados por MsgBox:
Sub GetAnswer()
Dim Ans As Integer
Ans = MsgBox(“Você ainda não almoçou?”, vbYesNo)
Select Case Ans
Case vbYes
‘ ... [code if Ans is Yes]...
Case vbNo
‘ ...[code if Ans is No]...
End Select
End Sub