Saberexcel - O site das Macros

Macros do Aplicativo Microsoft Excel VBA contendo mensagens simples e com múltiplas escolhas.

msgbox simples
Sub vba_msgbox_exemplo_I()
MsgBox "Aprenda MS Excel VBA", vbInformation, "Saberexcel - o site das macros"
End Sub

msgbox usando a instrução if...then else, com duas escolhas sim e ou nao.
Sub vba_msgbox_exemplo_II()
If MsgBox("Escolha SIM ou NÃO", vbQuestion + vbYesNo) = vbYes Then _
MsgBox "você optou por SIM" Else MsgBox "voce optou por NÃO"
End Sub

msgbox usando a instrução select case, com tres escolhas, sim, nao, cancelar
Sub vba_msgbox_exemplo_III()

Select Case MsgBox("Escolha SIM, NAO OU CANCELAR", vbQuestion + vbYesNoCancel)

Case vbYes: MsgBox "Você optou por SIM", vbInformation, "Saberexcel - o site das macros"
Case vbNo: MsgBox "Voce optou por NÃO", vbCritical, "Saberexcel - o site das macros"
Case Else: MsgBox "Você optou por CANCELAR", vbCritical, "Saberexcel - o site das macros"

End Select

End Sub



Aprenda Microsoft Excel VBA (Saberexcel)

Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

Esses macros do Aplicativo MS Excel VBA(Visual Basic Application), emite uma mensagem temporária, conforme os argumentos atribuidos a subrotina
AutoFechaMsgbox, que voce poderá atribuir a sua mensagem um determinado tempo para fechar automaticamente.
Espero que o exemplo lhes sejam útil. Fiquem com Deus, Expedito Marcondes

'- - - - - - - - - - - - - - - - - - -
Private Sub AutoFechaMsgBox(Mensagem As String, Titulo As String, Segundos As Integer)
Set oSHL = CreateObject("WScript.Shell")
oSHL.PopUp Mensagem, Segundos, Titulo, vbOKOnly + vbInformation
End Sub
'- - - - - - - - - - - - - - - - - - -
Sub AutoMessagem()
AutoFechaMsgBox "Clique em OK ou aguarde", "MsgBox fecha automaticamente", 1
AutoFechaMsgBox "Alterar o Cadastro de Clientes", "Cadastro de Clientes", 2
AutoFechaMsgBox "Aprenda Microsoft Excel VBA" & vbCrLf _
& "Praticando, com os produtos didáticos" & vbCrLf _
& "Escola SaberExcel", "Curso MS Excel VBA Saberexcel", 2
End Sub
'- - - - - - - - - - - - - - - - - - -

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.