Attendi o ritarda in VBA
Ci sono molti casi in cui un timer potrebbe essere utile in Excel, ecco un metodo da provare:
| 1234 | Sub MyTimer()Applicazione.Attendi ora + TimeValue("00:00:05")MsgBox ("5 secondi")Fine sottotitolo |
Un paio di usi di a Timer in Excel VBA stanno mettendo in pausa il codice e misurando il tempo trascorso. Quanto segue ti porterà al rispettivo posto in cui ho pubblicato un esempio di ciascun utilizzo:
1. Metti in pausa l'esecuzione del codice per un periodo di tempo desiderato con Application.Wait (simulando un timer)
collegamento: Nascondi Excel
2. Misura il tempo trascorso con un timer in VBA
collegamento: codice di benchmarking
Attendi o ritarda l'accesso a VBA
Puoi anche utilizzare i metodi sopra in Access VBA. Ad esempio, potresti voler sapere quanto tempo ci vuole per spostarsi in un recordset.
| 123456789101112131415 | Sub LoopThroughRecords()Dim conta come a lungoDim Benchmark As DoubleBenchmark = Timer"Inizio del codice da testare"Imposta dbs = CurrentDbImposta rst = dbs.OpenRecordset("tblInvoices", dbOpenDynaset)con primaEsegui fino a .EOF = True.Sposta AvantiCiclo continuoTermina con"Fine del codice da testare"MsgBox "Ci sono voluti " & Timer - BenchMark & "secondi per il ciclo"Fine sottotitolo |
