PopAds.net - The Best Popunder Adnetwork

Form con orologio in VBA

  • Orologio di Apoben64
    Salve a tutti, la mia interrogazione riguarda la possibilità di avere in un form la visualizzazione in tempo reale dell'orario. La macro che indico, mi permette l'aggiornamento dell'orario direttamente sul foglio, lo stesso risultato non lo riesco ad avere richiamando dal form con una label la cella del foglio di lavoro.
    La domanda è se si può farlo e in che modo ?
    Ecco il listato della sub orologio inserita nel foglio :
    Sub Orologio()
    Dim PauseTime, Start, Finish, TotalTime
    Worksheets("Apertura").Select
    Range("K10").Value = Now
    Range("K10") = Format(Range("K10"), "hh.mm.ss")
    10:
    PauseTime = 10
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    Loop
    Finish = Timer
    TotalTime = Finish - Start
    Worksheets("Apertura").Select
    Range("K10").Value = Now
    Range("K10") = Format(Range("K10"), "hh.mm.ss")
    GoTo 10
    End Sub

    Un grazie per un suggerimento !!!!!!

    di Mauro
    La routine permette di attivare un orologio all'apertura del form.
    creare una userform che contiene Label1, associato alla userform:

    Private Sub UserForm_Activate()
    Dim PauseTime, Start, Finish, TotalTime
    Label1.Caption = Time
    10:
    PauseTime = 10
    Start = Timer
    Do While Timer < Start + PauseTime
    DoEvents
    Loop
    Finish = Timer
    TotalTime = Finish - Start
    Label1.Caption = Time
    GoTo 10
    End Sub

    Auguro un buon natale a te ed a tutti gli utenti del forum.
    Mauro

    di Apoben64
    Grazie Mauro, come al solito mi perdo in un biccher d'acqua!. Ora funziona,pur non festeggiando queste festività, ti auguro un buon fine settimana te ed a chi ci legge.