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