Saberexcel - o site das Macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna uma mensagem de saudação dependendo do horário do computador, BOA MADRUGADA, BOM DIA, BOA TARDE E BOA NOITE. Neste exemplo usei para fins didáticos a saida da mensagem em uma Label(rótulo), no caption do Frame1(Quadro, Modura) e também na célula(C27), esses dados serão inseridos na ocorrencia do Evento Initialize do Objeto Userform.

Private Sub UserForm_Activate()

Dim vSaudacaoHora As Integer
vSaudacaoHora = Hour(Now)

Select Case vSaudacaoHora
Case 1 To 5
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno no Label
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno no Frame1
[C27].Value = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno na célula(B27)
Case 6 To 11
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
[C27].Value = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
Case 12 To 17
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
[C27].Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
Case 18 To 24
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
[C27].Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
End Select

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA



   Baixe o exemplo de planilha com o procedimento acima
vba horas mensagem saudacao de acordo horario computador (20.25 kB 2010-11-21 17:07:14)


Publicidade:

Compre com garantia, segurança e preços baixos na maior loja do país.