Các hàm VBA Timer trả về số giây đã trôi qua kể từ nửa đêm của ngày hiện tại (được trả về dưới dạng một kiểu dữ liệu duy nhất).
Sử dụng chức năng hẹn giờ VBA
Đoạn mã sau sẽ chỉ cho bạn cách sử dụng Hàm hẹn giờ VBA để xác định bao nhiêu giây đã trôi qua, kể từ nửa đêm, tại thời điểm mã đang được chạy:
| 12345678 | Sub usingTheVBATimerFunction ()Làm mờ giâysecondsSince = Timer ()Gỡ lỗi. In giâyKết thúc Sub |
Kết quả là:
Sử dụng Bộ hẹn giờ VBA để nhận Thời gian thực
Bạn có thể chuyển đổi giây trả về từ chức năng Bộ hẹn giờ thành định dạng hh: mm: ss để xem thời gian thực bằng cách sử dụng mã sau:
| 123456789101112131415 | Sub GettingTheActualTime ()Làm mờ giâyDim cTime As DoubleLàm mờ thời gian thực tế dưới dạng biến thểsecondsSince = Timer ()cTime = secondsSince / (86400)theActualTime = Định dạng (cTime, "hh: mm: ss")MsgBox "Thời gian trôi qua kể từ nửa đêm tính bằng giây là" & "" & giâySince & vbNewLine & _"Thời gian thực là:" & "" & theActualTimeKết thúc Sub |
Kết quả là:
Thời gian một phần của mã VBA
Nếu bạn đang tìm kiếm điểm chuẩn cho mã được viết lại hoặc tranh luận về các phương pháp "nhanh hơn" trong VBA, bạn có thể sử dụng bộ đếm thời gian tích hợp của VBA. Đặt một biến bằng bộ đếm thời gian ở đầu mã của bạn và trừ giá trị này khỏi bộ đếm thời gian ở cuối sẽ cung cấp cho bạn ước tính tốt thời gian một đoạn mã chạy.
Hiệu suất có thể bị ảnh hưởng bởi các chương trình khác đang chạy hoặc cố gắng chạy trong khi macro của bạn đang hoạt động, trong số những thứ khác.
Ví dụ sau được sử dụng để xem mất bao lâu để viết từ “test” vào ô A1 trên Sheet1 một nửa triệu lần. Mất 21 giây trên máy của tôi.
| 123456789101112131415161718 | Sub BenchMark ()Dim Count As LongDim BenchMark As DoubleBenchMark = Bộ hẹn giờ'Bắt đầu mã để kiểm traĐối với số lượng = 1 đến 500000Sheet1.Cells (1, 1) = "test"Lượt tiếp theo'Kết thúc mã để kiểm traBộ hẹn giờ MsgBox - BenchMarkKết thúc Sub |
Nếu mã của bạn đang chạy chậm, hãy thử tăng tốc bằng cách tắt cập nhật màn hình. Để giữ cho màn hình Excel hoạt động trong khi bộ đếm thời gian đang chạy, chúng ta có thể chèn phương thức DoEvents vào mã.
