MsgBox

MsgBox

É uma função que tanto exibe como permite a escolha de um dos botões que ao ser clicado poderá executar um determinado procedimento.

MsgBox(prompt, [buttons as vbmsgboxstyle = vbokonly], [title], [helpfile], [context]) as vbmsgboxresult

Exemplo 1:

MsgBox "Erro nos dados", vbInformation, "Aviso"

Exemplo 2:

If MsgBox("Deseja Salvar ?", vbQuestion + vbYesNo, "Salvar") = vbYes Then
....
....
End If

Neste exemplo, será apresentado os botões Sim e Não (vbYesNo), juntamente com o ícone de interrogação (vbQuestion). Se responder Sim (vbYes) então será executado o procedimento.

Constante de VBA

Valor

Descrição

 

VbOKOnly

0

Exibe somente o botão de OK.

VbOKCancel

1

Exibe os botões OK e Cancel.

VbAbortRetryIgnore

2

Exibe os botões Abort, Retry, e Ignore.

VbYesNoCancel

3

Exibe os botões Yes, No, e Cancel .

VbYesNo

4

Exibe os botões Yes e No.

VbRetryCancel

5

Exibe os botões Retry e Cancel.

VbCritical

16

Exibe o ícone de Critical Message.

VbQuestion

32

Exibe o ícone de interrogação.

VbExclamation

48

Exibe o ícone de exclamação.

VbInformation

64

Exibe o ícone de Informação.

VbDefaultButton1

0

O primeiro botão é o selecionado por padrão

VbDefaultButton2

256

O segundo botão é o selecionado por padrão.

VbDefaultButton3

512

O terceiro botão é o selecionado por padrão

VbDefaultButton4

768

O quarto botão é o selecionado por padrão.

VbApplicationModal

0

Application modal utilizado só depois de responder à MsgBox é que poderá dar continuidade ao trabalho na aplicação corrente.

VbSystemModal

4096

System modal - utilizado só depois de responder à MsgBox é que poderá dar continuidade ao trabalho em qualquer aplicação em curso no sistema.

Valores Produzidos

Como já foi mencionado, MsgBox produz um valor em função do botão acionado, assim produzirá como saída um dos valores constantes da tabela seguinte:

Constante de VBA

Valor

Botão Accionado

vbOK

1

OK

vbCancel

2

Cancel

vbAbort

3

Abort

vbRetry

4

Retry

vbIgnore

5

Ignore

vbYes

6

Yes

vbNo

7

No