Pesquisar na Comunidade
Mostrando resultados para as tags ''saudação''.
Encontrado 1 registro
-
Pessoal estou fazendo uma aplicação em vba usando excel como bando de dados. E na minha tela de inicial gostaria que um label q eu criei exibisse a hora e escrevesse uma saudação. Criei um código mas ele infelizmente fica estático exibindo apenas a hora em que a aplicação foi aberta. Alguém me da uma mão pra ele ficar dinâmico e atualizar a label a cada segundo com a hora nova? Segue o código abaixo. Private Sub UserForm_Activate() Dim vSaudacaoHora As Integer vSaudacaoHora = Hour(Now) + TimeValue("00:00:01") Select Case vSaudacaoHora Case 1 To 5 labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha uma boa madrugada!" ' retorno no Label Case 6 To 11 labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha um bom dia!" Case 12 To 17 labelsaudacao.Caption = "Olá, agora são " & Time & " horas, tenha uma boa tarde!" Case 18 To 24 labelsaudacao.Caption = "Olá, agora " & Time & " horas, tenha uma boa noite!" End Select End Sub