Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
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: