| Descricao: |
 Escola SaberExcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções
Esse procedimento do Microsoft Excel VBA(Visual Basic Application) retorna um objeto Label(Rótulo) uma saduação dependendo do Horario atual:
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
Private Sub UserForm_Initialize()
On Error Resume Next
lbAGORA.Caption = "Escola Saberexcel VBA Estudos - [Agora:... " & Format(Now(), "dddd - dd-mmm-yyyy hh:mm:ss") & " ]"
Select Case Time
Case Is < TimeValue("12:00:00"): Me.lbSAUDACAOHORA.Caption = "Bom Dia Amigo, " & Application.UserName & "!" _
& vbCrLf & "Desejo-lhe todo bem!"
Case Is >= TimeValue("19:00:00"): Me.lbSAUDACAOHORA.Caption = "Boa Noite, Amigo " & Application.UserName & "!" _
& vbCrLf & "Desejo-lhe todo bem!"
Case Else: Me.lbSAUDACAOHORA.Caption = "Boa Tarde, Amigo " & Application.UserName & "!" & "" _
& vbCrLf & "Seja Bem vindo, Bons Estudos!!!!"
End Select
End Sub
Private Sub lbSAUDACAOHORA_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
Unload Me
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
|