Изчакайте или забавете във VBA
Има много случаи, когато таймерът може да бъде полезен в Excel, ето един метод, който да опитате:
| 1234 | Sub MyTimer ()Приложение. Изчакайте сега + TimeValue ("00:00:05")MsgBox ("5 секунди")End Sub |
Няколко употреби на a таймер в Excel VBA поставят код на пауза и измерват изминалото време. Следното ще ви отведе до съответното място, където съм публикувал пример за всяка употреба:
1. Поставете на пауза изпълнението на код за желано време с Application.Wait (симулиращ таймер)
връзка: Скриване на Excel
2. Измерете изминалото време с таймер във VBA
връзка: Код за сравнителен анализ
Изчакайте или забавете в Access VBA
Можете също да използвате горните методи в Access VBA. Например, може да искате да знаете колко време отнема преминаването през набор от записи.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count As LongDim BenchMark As DoubleBenchMark = Таймер„Начало на тествания кодЗадайте dbs = CurrentDbЗадайте rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)С първиНаправете до .EOF = Вярно.ПреместванеСледЦикълКрай с„Край на кода за тестванеMsgBox "Това отне" & Таймер - BenchMark & "секунди за цикъл"End Sub |
