Poczekaj lub opóźnij w VBA
Istnieje wiele przypadków, w których zegar może być przydatny w programie Excel, oto jedna metoda do wypróbowania:
| 1234 | Sub MójZegar()Aplikacja.Czekaj teraz + TimeValue("00:00:05")MsgBox ("5 sekund")Napis końcowy |
Kilka zastosowań regulator czasowy w Excel VBA wstrzymują kod i mierzą upływający czas. Poniżej zaprowadzi Cię do odpowiedniego miejsca, w którym zamieściłem przykład każdego zastosowania:
1. Wstrzymaj wykonywanie kodu na żądany czas za pomocą Application.Wait (symulowanie timera)
link: Ukryj Excel
2. Zmierz upływ czasu za pomocą Timera w VBA
link: Kod benchmarkingu
Poczekaj lub opóźnij w dostępie VBA
Możesz również użyć powyższych metod w programie Access VBA. Na przykład możesz chcieć wiedzieć, ile czasu zajmuje przejście przez zestaw rekordów.
| 123456789101112131415 | Sub LoopThroughRecords()Dim liczyć tak długoDim BenchMark jako podwójnyBenchMark = Zegar„Początek kodu do przetestowania”Ustaw dbs = Bieżąca baza danychUstaw rst = dbs.OpenRecordset("tblInvoices", dbOpenDynaset)Z pierwszymCzy Do .EOF = Prawda.PrzesuńDalejPętlaKończyć z„Koniec kodu do przetestowania”MsgBox "Zajęło" & Timer - BenchMark & "sekundy do zapętlenia"Napis końcowy |
