Descricao: |
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
Publicidade:
Compre com garantia, segurança e preços baixos na maior loja do país. |