E aí pessoal, estou com um modelo de marcação de horas em VBA, mas não estou conseguindo adicionar um código que faça parar a contagem de hora, poderiam dar uma olhada?
Segue em anexo o projeto.
Abs.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Relógio em VBA - (RESOLVIDO)
- Rafael Monteiro
- Consultor
- Mensagens: 277
- Registrado em: Seg Nov 28, 2011 8:27 am
- Localização: Sorocaba - SP
- Contato:
Relógio em VBA - (RESOLVIDO)
- Anexos
-
- Relógio em VBA.zip
- (24.51 KiB) Baixado 1574 vezes
Editado pela última vez por Rafael Monteiro em Ter Jan 10, 2012 9:39 am, em um total de 3 vezes.
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Relógio em VBA
Em um Módulo:
No form:
Código: Selecionar todos
Option Explicit
Dim T
Sub StopTimer()
On Error Resume Next
Application.OnTime T, Procedure:="Update", Schedule:=False
End Sub
Sub StartTimer()
T = Now + TimeValue("00:00:01")
Application.OnTime T, "Update"
End Sub
Sub Update()
Dim HorasT As String
Dim horas As Integer
UserForm1.LABELHORA.Caption = Format(Now, "hh:mm:ss")
UserForm1.Label1.Caption = Now + TimeValue("00:00:01")
UserForm1.Label1.Caption = Format(Now, "hh")
HorasT = UserForm1.Label1.Caption
horas = CInt(HorasT)
If horas < 12 Then
UserForm1.Label1.Caption = "Bom Dia!"
Else
If horas < 18 Then
UserForm1.Label1.Caption = "Boa Tarde!"
Else
UserForm1.Label1.Caption = "Boa Noite!"
End If
End If
UserForm1.Label1.Visible = True
Call StartTimer
End Sub
Código: Selecionar todos
Option Explicit
Dim T
Private Sub INICIAR_Click()
Application.Run "StartTimer"
End Sub
Private Sub PARAR_Click()
Application.Run "StopTimer"
End Sub
Private Sub UserForm_Initialize()
UserForm1.LABELHORA.Caption = Format(Now, "hh:mm:ss")
End Sub
- Rafael Monteiro
- Consultor
- Mensagens: 277
- Registrado em: Seg Nov 28, 2011 8:27 am
- Localização: Sorocaba - SP
- Contato:
Re: Relógio em VBA - Resolvido
Mais uma Vez obrigado JoseA por ter ajudado a solucionar o problema, ficou ótimo a marcação de horas junto com a mensagem. Valeu!!!
Segue em anexo o projeto modificado.
Segue em anexo o projeto modificado.
- Anexos
-
- Relógio em VBA - Resolvido.zip
- Relógio em VBA - Resolvido
- (25.34 KiB) Baixado 1292 vezes