Notifications
Clear all
2024 - VBA & Macros
3
Posts
1
Usuários
0
Reactions
2,898
Visualizações
Topic starter
Fala ae Excelianos!
Preciso de um help para achar o erro ne contador de tempo, pois não está funcionando.
Public Sub StartTimer()
Application.OnTime EarliestTime:=Time + TimeValue("00:00:01"), Procedure:="AtualizaRelogio"
End Sub
Public Sub StopTimer()
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="AtualizaRelogio", Schedule:=False
End Sub
Public Sub AtualizaRelogio()
On Error Resume Next
UserForm1.Label1.Caption = UserForm1.Label1.Caption + TimeValue("00:00:01")
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="AtualizaRelogio"
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 08/09/2011 11:50 am
Topic starter
Boa tarde,
Alterei o seu código para o seguinte:
Public Sub StartTimer()
Application.OnTime EarliestTime:=Time + TimeValue("00:00:01"), Procedure:="AtualizaRelogio"
End Sub
Public Sub StopTimer()
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="AtualizaRelogio", Schedule:=False
End Sub
Public Sub AtualizaRelogio()
On Error Resume Next
UserForm1.Label1.Caption = TimeValue(UserForm1.Label1.Caption) + TimeValue("00:00:01")
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="AtualizaRelogio"
End Sub
Além disso, coloquei "00:00:00" como "Caption" do "Label1".
Testei e funcionou.
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 08/09/2011 12:36 pm
Topic starter
Vlw Fera!!
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 08/09/2011 12:45 pm