ciao
non è un argomento che ho mai approfondito.
Leggi e prova quanto descritto nei seguenti link:
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ff700515(v=office.14)?redirectedfrom=MSDN#Office2007excelPerf_FindingPrioritizingCalculationBottlenecks
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ff726673%28v%3doffice.14%29
saluti
---------------------------------------------------------------
A parte questo, tu fai un uso non corretto dell'application OnTime
Quanto segue è la corretta sintassi (crea i tre pulsanti specificati del testo della macro):
Public Esegui As Double
Public Const Temp = "Inizia"
Sub Timer()
Esegui = Now + TimeValue("00:00:01")
Application.OnTime earliesttime:=Esegui, procedure:=Temp, schedule:=True
End Sub
Sub Inizia() 'PULSANTE START
Application.Calculate
Range("A1") = Range("A1") + TimeValue("00:00:01")
Call Timer
End Sub
Sub Ferma() 'PULSANTE STOP
On Error Resume Next
Application.OnTime earliesttime:=Esegui, procedure:=Temp, schedule:=False
End Sub
Sub Azzera() 'PULSANTE AZZERA
Range("A1") = 0
End Sub ---------------------------------------------------------------
Qualora ti fosse tornasse utile (non so), c'è un modo per mostrare anche i secondi dell'orologio della task bar (SysTray) in basso a sinistra:
1) esegui RegEdit e vai in:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced
2) clicca di destro nella chiave Advanced del pannello di sinistra, scegli Nuovo e clicca su DWORD(32-bit) valore
3) chiama la nuova chiave che ti viene proposta (a destra) con valore di default (Nuovo valore #1):
ShowSecondsInSystemClock
e premi invio.
4) fai doppio click sul valore che hai creato nel pannello di destra e settalo a 1 (lascia pure esadecimale).
Clicca OK e riavvia il computer.
[Modificato da dodo47 26/02/2020 20:25]
Domenico
Win 10 - Excel 2016