Boa noite Pessoal...
Pesquisei muito no google e encontei muitos exemplos idênticos, mudando apenas os nomes das subs e outros..
Gostaria de colocar um relogio na base dos formularios(são mais de 3)no excel 2003. O código que encontrei é basicamente este:
'No módulo
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()
UserForm1.Label1.Caption = Format(Now, "hh:mm:ss")
Call StartTimer
End Sub
'no Userform1 com um commandbutton1 e um label1
Option Explicit
Dim T
Private Sub CommandButton1_Click()
Application.Run "StopTimer"
Unload Me
End Sub
Private Sub UserForm_Activate()
Application.Run "StartTimer"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
StopTimer
End Sub
Gostaria de saber se alguém pode me explicar como funciona este código em detalhes e se é possivel intercala-lo para mais de um form.
Percebi que há um comando stop ao fechar o form... Caso o retire e abra outro form poderia haver algum problema...
Fico no aguardo de vossos conhecimentos...
Desde já agradeço a atenção
