Timer in excel

Hai un problema con Excel?

Nuova discussione

Timer in excel
di Paolo (utente non iscritto) data: 01/11/2010
Sono paolo, ciao a tutti
sto allestendo un foglio excel per la gestione di una gara podistica. mi sono bloccato al momento di pensare a come visualizzare i tempi.
in realtà ho già utilizzato il vs suggerimento “l’ora in excel” ed ho inserito macro e orologio ma non riesco in alcun modo a bloccare il tempo.

la mia idea è questa:

-visualizzare in modo permanente un timer, più che un orologio, col tempo 00:00:00 (ore:min:sec), ad es. nella cella a1
-avviare il timer ad inizio gara con un tasto
-con un secondo tasto, in corrispondenza dell’arrivo di un atleta, bloccare il tempo, visualizzarlo nella cella a2 e posizionare il cursore nella cella a3
così di seguito tante volte quanti sono gli atleti arrivati (almeno 500)
-arrestare il timer, a gara terminata, con un terzo tasto.
ad ogni tempo assocerei un pettorale e quindi un atleta.
durante il funzionamento poi, dovrei poter salvare il file senza che il timer si fermi…….è troppo eh ??

grazie per gli eventuali suggerimenti…sito fantastico!!!!!!!

di Locate (utente non iscritto) data: 02/11/2010
Ciao
vista la tua domanda ti allego un file di visualizzazione per il tuo scopo vedi il suo funzionamento per fare il lavoro iniziando dallo start e inserendo i passaggi da tastierino numerico con orario aggiornato a quello del pc,
per fare questo bisogna gia' usare 3 macro, per far si che si veda un timer o orologio bisogna aggiungere altre macro alle attuali e detto questo come stiamo a vba???
ciao da locate
ps programmino gia funzionante

Private Sub Worksheet_Change(ByVal Target As Range)
Dim crc As Range ''variabile di memoria = cella riga colonna
Set crc = Intersect(Range("D1"), Target) ''setta la cella di cambio row1 col4
If Not crc Is Nothing Then
Worksheets("Foglio1").Cells(1, 4).Select
cronolog
End If
End Sub

Sub cronolog()
pettorale = Worksheets("Foglio1").Range("D1")
tempo = Worksheets("Foglio1").Range("G1")
Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = pettorale
Worksheets("Foglio1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = tempo
End Sub

Sub partenza()
Worksheets("Foglio1").Range("A2:B1000") = "" ''azzera tutto
Start = Time
Worksheets("Foglio1").Range("H1") = Start
Worksheets("Foglio1").Cells(1, 4).Select
End Sub

Timer in excel
di Paolo (utente non iscritto) data: 03/11/2010

grazie mille per la dritta. pur non essendo un mago di vba sono riuscito ad adattare le macro e il risultato è decisamente buono.....grazie ancora e alla prosima.
di Locate (utente non iscritto) data: 03/11/2010
Ciao paolo
se sei ancora in rete prova a scaricare il secondo file che ho fatto per passare il tempo che forse ti pacera' di piu' essendo consono alle tuo domande e avrai piu' spunti per fare il tuo programma,
come ti dicevo bisogna usare molto il vba

ciao da locate
fai sapere se tutto ok

Vuoi Approfondire?