| Descricao: |
 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)
|