VBA taimera funkcijas atgriež sekunžu skaitu, kas pagājis kopš pašreizējās dienas pusnakts (tiek atgriezts kā atsevišķs datu veids).
Izmantojot VBA taimera funkciju
Šis kods parādīs, kā izmantot VBA taimera funkciju, lai noteiktu, cik sekundes ir pagājušas kopš pusnakts koda izpildes laikā:
| 12345678 | Sub, izmantojot funkciju VBATimerFunction ()Tumšas sekundesSince As SinglesecondsSince = Taimeris ()Atkļūdot. Drukāt sekundesBeigu apakš |
Rezultāts ir šāds:
Izmantojiet VBA taimeri, lai iegūtu faktisko laiku
Jūs varat pārvērst sekundes, kas atgriežas no taimera funkcijas, formātā hh: mm: ss, lai redzētu faktisko laiku, izmantojot šādu kodu:
| 123456789101112131415 | Sub GettingTheActualTime ()Tumšas sekundesSince As SingleDim cTime As DoubleDim theActualTime kā variantssecondsSince = Taimeris ()cTime = sekundesSince / (86400)theActualTime = Formāts (cTime, "hh: mm: ss")MsgBox "Laiks, kas pagājis kopš pusnakts sekundēs, ir" & "" & sekundesSince & vbNewLine & _"Faktiskais laiks ir:" & "" un theActualTimeBeigu apakš |
Rezultāts ir šāds:
Laiks VBA koda sadaļa
Ja vēlaties salīdzināt pārrakstīto kodu vai apspriest “ātrākas” metodes VBA, varat izmantot VBA iebūvēto taimeri. Koda sākumā iestatot mainīgo, kas ir vienāds ar taimeri, un beigās atņemot to no taimera, jūs iegūsit labs novērtējums cik ilgs laiks nepieciešams koda fragmenta palaišanai.
Cita starpā veiktspēju var ietekmēt citas programmas, kas darbojas vai mēģina palaist, kamēr jūsu makro ir aktīvs.
Šis piemērs tika izmantots, lai redzētu, cik ilgs laiks būs vajadzīgs, lai puslaika miljonu reižu uz lapas 1 šūnas uzrakstītu vārdu “tests”. Manā mašīnā tas aizņēma 21 sekundi.
| 123456789101112131415161718 | Sub BenchMark ()Dim skaits tik ilgiDim BenchMark As DoubleBenchMark = taimeris'Pārbaudāmā koda sākumsSkaitam = 1 līdz 5000001. lapa. Šūnas (1, 1) = "tests"Nākamais grāfs'Pārbaudāmā koda beigasMsgBox taimeris - BenchMarkBeigu apakš |
Ja jūsu kods darbojas lēni, mēģiniet to paātrināt, atspējojot ekrāna atjaunināšanu. Lai Excel ekrāns būtu aktīvs, kamēr darbojas taimeris, mēs varam kodā ievietot DoEvents metodi.
