Thực thi lệnh / thủ tục con sử dụng bộ định thời VBA
Trong bài viết này, chúng ta sẽ tạo một macro để gọi một macro khác hoặc thực hiện một lệnh sau những khoảng thời gian xác định.
Để thực thi macro, hãy nhấp vào nút “Start Timer”.
Khi chạy macro, macro “TimerMsg” sẽ hiển thị một hộp thông báo.
Khi người dùng nhấp vào nút “OK”, ba giây sau, macro “MsgProcedure” sẽ được gọi. Macro “MsgProcedure” sẽ hiển thị một hộp thông báo.
Giải thích logic
Trong ví dụ này, chúng tôi đã tạo hai macro “TimerMsg” và “MsgProcedure”. Macro “TimerMsg” ** hiển thị một thông báo thông tin và gọi “MsgProcedure” sau khi đợi ba giây, như được định nghĩa trong mã.
Giải thích mã
Application.OnTime Method
Phương thức Application.OnTime được sử dụng để lập lịch chạy một thủ tục trong những khoảng thời gian xác định.
Cú pháp
Ứng dụng .OnTime Time, Procedure_name Time xác định khoảng thời gian mà thủ tục sẽ được chạy.
Procedure_name xác định tên của thủ tục.
Chúng tôi đã sử dụng phương thức Application.onTime để lập lịch cho macro “MsgProcedure”.
Vui lòng theo dõi bên dưới để biết mã
Option Explicit Sub TimerMsg() 'Declaring Date variable Dim AlertTime As Date 'Displaying message box at the start of the timer MsgBox "The alarm will go off in 3 seconds!" 'Setting timer time for 3 seconds after the activation time AlertTime = Now + TimeValue("00:00:03") 'Activating the timer and running the MsgProcedure at the end of the timer Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure() 'Sample procedure created for timer example MsgBox "Three Seconds is up!" End Sub
Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.
Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]