Excel for dummies (hhc help!!!)

[flip]

Ogni volta che ho un problema con Excel WW e in particolare hhc e Winston sono porti sicuri... :sorrisok:

Mi serve una funzione (penso si debba metter mano a VBA) che in una cella (poniamo A1) indichi un cronometro in tempo reale (hh.mm.ss) da zero.

In pratica devo farlo partire (magari con un bottone "start", uno "stop" e uno "reset" sulla griglia) ed una funzione in un'altra cella (mettiamo A2) deve prendere costantemente il valore di A1 ed elaborarlo per fornire un risultato.

Chi mi aiuta?

 

[hhc]

ma nella cella della funzione timer devi vedere scorrere il tempo e/o ti basta il tempo trascorso tra lo start e lo stop?

 

[flip]

Se fosse visibile sarebbe meglio, anche perché il valore di A2 si dovrebbe aggiornare secondo per secondo, in funzione del variare di A1

 

[hhc]

dai un occhiata.... se va bene....
http://www.eurofutura.com/WW/timer.zip

 

[flip]

OTTIMO! Un ristorante ti devo offrire, non una cena!!!!

Ultimissima cosa: è possibile farlo partire da 00.00.00 anziché dall'ora corrente?

 

[hhc]

fai questa modifica alla macro e cambia la proprietà alla cella A1 come ora ( hh:mm:ss)

Sub Start_OnTimerMacro()
Time = TimeValue("00:00:00") ' modifica la macro
Execute_TimerDrivenMacro = True
Application.OnTime Time + TimeValue("00:00:01"), ActiveSheet.Name & ".OnTimerMacro"
End Sub

 

[flip]

PERFETTA!!!! Dimmi come posso sdebitarmi!!!!

Edit: Ehm ma adesso se uso quella funzione mi reimposta l'orologio di sistema :S

 

[hhc]

Edit: Ehm ma adesso se uso quella funzione mi reimposta l'orologio di sistema :S

Umh...Gia... vero, mi ero scordato..... cmq domani mattina ci mettiamo una variabile globale..... per aggirare il problema.

ora non ho sottomano msoffice...

 

[hhc]

Option Explicit
Dim Execute_TimerDrivenMacro As Boolean
Dim oldtime 'modifica...
------------

Sub Start_OnTimerMacro()
oldtime = Time ' modifica..........
Execute_TimerDrivenMacro = True
Application.OnTime Time + TimeValue("00:00:01"), ActiveSheet.Name & ".OnTimerMacro"
End Sub
----------------

Public Sub OnTimerMacro()
If Execute_TimerDrivenMacro Then
' Do something e.g. put the actual time into cell A1 of the active sheet
ActiveSheet.Cells(1, 1).Value = Time - oldtime 'modifica.............

' At the end restart timer
Application.OnTime Time + TimeValue("00:00:01"), ActiveSheet.Name & ".OnTimerMacro"
End If
End Sub

ora dovrebbe andare.....

 

[flip]

Devo inserire tutte e due le modifiche o solo la seconda?

 

[hhc]

solo l'ultima che ho postato,che modifica l'originale, la prima modifica va eliminata.

 

[flip]

Sembra tutto ok!!!! SEI UN MITO!

 

[hhc]

no... sei troppo lodevole....
la prima modifica, ho scassato si vede che sono rico....:vecchio:

 

[flip]

hhc sei davvero un esempio, sempre disponibile e competente!