Mục lục
Mô tả hẹn giờ
Trả về một giá trị Đơn đại diện cho số giây đã trôi qua kể từ nửa đêm.
Ví dụ về bộ hẹn giờ đơn giản
Đây là một ví dụ đơn giản về Bộ hẹn giờ:
123 | Sub Timer_Example ()Bộ hẹn giờ MsgBoxKết thúc Sub |
Cú pháp hẹn giờ
Trong VBA Editor, cú pháp cho hàm Bộ hẹn giờ.
1 | Hẹn giờ |
Hàm Timer không chứa đối số:
Ví dụ về hàm hẹn giờ VBA trong Excel
Sử dụng ví dụ mã sau, hãy thử so sánh sec1 và sec2.
Khi đó, chúng ta có thể dễ dàng biết được ý nghĩa của chức năng Timer.
123456789101112131415161718192021222324252627 | Sub Timer_Example1 ()Dim sec1 As SingleDim sec2 As Longsec1 = Bộ hẹn giờsec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Kết thúc SubHàm GetSecondsFromMidnight () As LongDim dt As DateDim h As IntegerDim m As IntegerDim s As Integerdt = Bây giờh = Giờ (dt)m = Phút (dt)s = Thứ hai (dt)phút = h * 60 + mgiây = phút * 60 + sGetSecondsFromMidnight = giâyChức năng kết thúc |
Sử dụng chức năng Bộ hẹn giờ, chúng tôi có thể đo lường thời gian chạy một phần của Mã VBA.
1234567891011121314151617 | Sub Timer_Example2 ()Dim startSec As SingleDim endSec As SingleDim i As LongstartSec = Bộ hẹn giờ'Bắt đầu mã VBA để kiểm traĐối với i = 1 đến 500000DoEventsTiếp theo tôi'Kết thúc mã VBA để kiểm traendSec = Bộ hẹn giờMsgBox "Phải mất" & CStr (endSec - startSec) & "s."Kết thúc Sub |