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.
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:
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu
Segnala abuso
Dettagli (obbligatori):
Grazie.
Il contenuto segnalato è stato inviato
4 persone hanno trovato utile la risposta
·La risposta è risultata utile?
Siamo spiacenti che questo non sia stato utile.
Ottimo. Grazie per il tuo feedback.
Quanto sei soddisfatto di questa risposta?
Grazie per il feedback, ci aiuta a migliorare il sito.
Quanto sei soddisfatto di questa risposta?
Grazie per il tuo feedback.