MSGBOX:Bom Dia,Boa Tarde,Boa Noite, com Usuário-Boas Vindas

Planilhas, Arquivos, modelos, exemplos, apostilas, nosso datacenter!

MSGBOX:Bom Dia,Boa Tarde,Boa Noite, com Usuário-Boas Vindas

Mensagempor xandrinho » Qui Ago 25, 2016 2:45 pm

Boa Tarde Galera!!!
Aqui vai uma pequena contribuição, mas bem interessante:
Tinha três msgbox logo na abertura do Workbook.
Uma que dava: Bom Dia, Boa Tarde ou Boa noite.
Outra que exibia o Usuário do Windows.
E outra que dava a mensagem de Boas Vindas.

O Desafio seria unir essas três MsgBox em apenas uma. Consegui e estou compartilhando o exemplo.
Obs: este código deve ser acrescentado em Esta Pasta de Trabalho.
Abraços.
Segue Código e Modelo Anexo:

Código: Selecionar todos
Dim dHora As Integer

    dHora = Hour(Now)

    Select Case dHora
        Case Is >= 18
            sSaudacao = "Boa Noite"
        Case Is >= 12
            sSaudacao = "Boa Tarde"
        Case Is >= 0
            sSaudacao = "Bom Dia"
    End Select

      MsgBox sSaudacao & "!!! " & Application.UserName & ". Seja Bem Vindo!!!"

End Sub
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por Anonymous em Qui Ago 25, 2016 4:46 pm, em um total de 1 vez.
Razão: Macros devem ser postadas utilizando-se a ferramenta Code
xandrinho
Membro
Membro
 
Mensagens: 123
Registrado em: Sáb Jun 28, 2014 11:52 am
Has thanked: 83 times
Have thanks: 8 times

{ SO_SELECT }

Voltar para Biblioteca

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante