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”.

ArrowStartTimer

Khi chạy macro, macro “TimerMsg” sẽ hiển thị một hộp thông báo.

ArrowStartingMessage

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ã.

ArrowAfterRunningMacro

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]