Inhaltsverzeichnis
Warten oder verzögern in VBA
Es gibt viele Fälle, in denen ein Timer in Excel nützlich sein könnte. Hier ist eine Methode, die Sie ausprobieren können:
| 1234 | Unter MyTimer()Anwendung.Jetzt warten + TimeValue("00:00:05")MsgBox ("5 Sekunden")End Sub |
Ein paar Verwendungen von a Timer in Excel VBA pausieren Code und messen die verstrichene Zeit. Folgendes führt Sie an die jeweilige Stelle, an der ich ein Beispiel für jede Verwendung gepostet habe:
1. Unterbrechen Sie die Codeausführung für eine gewünschte Zeit mit Application.Wait (Simulation eines Timers)
Link: Excel ausblenden
2. Messen Sie die verstrichene Zeit mit einem Timer in VBA
Link: Benchmarking-Code
Warten oder verzögern Sie in Access VBA
Sie können die oben genannten Methoden auch in Access VBA verwenden. Sie möchten beispielsweise wissen, wie lange es dauert, ein Recordset zu durchlaufen.
| 123456789101112131415 | Sub LoopThroughRecords()Dim Count As LongBenchmark als Double dimmenBenchmark = Timer'Start des Codes zum TestenSetze dbs = CurrentDbSet rst = dbs.OpenRecordset("tblInvoices", dbOpenDynaset)Mit rstTun bis .EOF = True.Nächstes verschiebenSchleifeEnde mit'Ende des zu testenden CodesMsgBox "Es dauerte" & Timer - Benchmark & "Sekunden für die Schleife"End Sub |
