Chờ hoặc Trì hoãn trong VBA
Có nhiều trường hợp khi bộ đếm thời gian có thể hữu ích trong Excel, đây là một phương pháp để thử:
| 1234 | Sub MyTimer ()Application.Wait Now + TimeValue ("00:00:05")MsgBox ("5 giây")Kết thúc Sub |
Một vài cách sử dụng hẹn giờ trong Excel VBA đang tạm dừng mã và đo thời gian đã trôi qua. Phần sau sẽ đưa bạn đến nơi tương ứng mà tôi đã đăng một ví dụ về từng cách sử dụng:
1. Tạm dừng thực thi mã trong một khoảng thời gian mong muốn với Application.Wait (mô phỏng bộ đếm thời gian)
liên kết: Ẩn Excel
2. Đo thời gian đã trôi qua bằng Bộ hẹn giờ trong VBA
liên kết: Mã điểm chuẩn
Chờ hoặc Trì hoãn trong Access VBA
Bạn cũng có thể sử dụng các phương pháp trên trong Access VBA. Ví dụ, bạn có thể muốn biết mất bao lâu để di chuyển qua một tập bản ghi.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count As LongDim BenchMark As DoubleBenchMark = Bộ hẹn giờ'Bắt đầu mã để kiểm traĐặt dbs = CurrentDbĐặt rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Với đầu tiênLàm cho đến khi .EOF = True.MoveNextVòngKết thúc với'Kết thúc mã để kiểm traMsgBox "Phải mất" & Bộ hẹn giờ - BenchMark & "giây để lặp lại"Kết thúc Sub |
