Orologio su Userform |
|
| Storico
discussioni |
|
| 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. |
|
| |