creare un cronometro

Ciao a Tutti,
Esiste la possibilità tramite macro creare un cronometro? Nella cella A1 dovrebbe essere inserito il tempo in ore, cella B1 i minuti e C1 i secondi. Poi tre tasti che danno inizio primo al conteggio,  secondo fermano il tempo e terzo azzerano il conteggio.  Spero di ricevere il vostro aiuto.
 

Informazioni domanda


Ultimo aggiornamento novembre 6, 2018 Visualizzazioni 3.932 Si applica a:
Risposta
Scusa Mauro, ma con la tua abilità, non è possibile fare in modo che il file pubblicato possa diventare un cronometro?


Prova :

 

Private bln As Boolean
Private vStart As Variant
Private vDiff As Variant

Public Sub mTimer()
    If bln = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "mEsegui"
    End If
End Sub

Public Sub mStart()
    ThisWorkbook.Worksheets("Foglio1").Range("A1:C1").Value = ""
    bln = True
    vStart = Now
    mEsegui
End Sub

Public Sub mEsegui()
    With ThisWorkbook.Worksheets("Foglio1")
        .Range("A1").Value = Hour(Now)
        .Range("B1").Value = Minute(Now)
        .Range("C1").Value = Second(Now)
        vDiff = Now - vStart
        .Range("A2").Value = Hour(vDiff)
        .Range("B2").Value = Minute(vDiff)
        .Range("C2").Value = Second(vDiff)
    End With
    mTimer
End Sub

Public Sub mStop()
    bln = False
End Sub

Public Sub mRiprendi()
    bln = True
    mEsegui
End Sub

 

NOTA(personalissima).

Fatico molto a capire l'utilità di un cronometro in un file di Excel.

 

Qui il file utilizzato per l'esempio:

http://www.maurogsc.eu/esempiforum12/cronometro.zip

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

La risposta è risultata utile a 3 persone

·

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.