Notifications
Clear all

MSGBOX: bom dia, boa tarde ou boa noite  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
03/08/2009 7: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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


Citar (Quote)
Compartilhar: