MSGBOX: bom dia, boa tarde ou boa noite

Tem alguma dica para o uso do Excel? Algum atalho especial? Algum macete? Aqui é o lugar para você compartilhar!

MSGBOX: bom dia, boa tarde ou boa noite

Mensagempor nasario » Seg Ago 03, 2009 10:06 am

Olá Pessoal,

Que tal uma mensagem de bom dia, boa tarde ou boa noite ao abrir a planilha?

Segue o código

Private Sub Workbook_Open()
Dim MinhaHora
MinhaHora = Hour(Now)
Select Case MinhaHora

Case 1 To 5
MsgBox "Prezado(a) Usuário (a), Boa noite! daí vc continua o texto...", vbInformation, "Pop-Up"
Case 6 To 11
MsgBox "Prezado(a) Usuário (a), Bom dia!. daí vc continua o texto...", vbInformation, "Pop-Up"
Case 12 To 17
MsgBox "Prezado(a) Usuário (a), Boa tarde!. daí vc continua o texto...", vbInformation, "Pop-Up"
Case 18 To 24
MsgBox "Prezado(a) Usuário (a), Boa noite!. daí vc continua o texto...", vbInformation, "Pop-Up"
End Select
End Sub

Créditos: comunidade microsoft excel - ORKUT
nasario
 

{ SO_SELECT }

Voltar para Dicas & Macetes

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes