none
Relogio no Formulário VBA excel RRS feed

  • Pergunta

  • 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

    domingo, 9 de setembro de 2012 21:34

Respostas

Todas as Respostas