تفاوت دستورات Wait و Ontime در ماکرونویسی اکسل

در ماکرونویسی به زبان وی بی ای تفاوت های بین دو دستور Application.Wait و Application.Ontime وجود دارد که متاسفانه کمتر مورد توجه کاربران اکسل قرار گرفته است. در ادامه با ارائه های مثال های مختلف به بیان کاربرد هریک در وی بی ای اکسل خواهیم پرداخت.

کاربرد Application.Wait در ماکرونویسی اکسل

دستور Application.Wait پس از سپری شدن یک مدت زمان مشخص، اجازه ادامه اجرای یک ماکرو را صادر خواهد کرد.به این جمله دقت کنید! اجازه ادامه اجرای ماکرو … به عبارتی می توان گفت،منظور ماکرویی است که از قبل توسط کاربر درحالت اجرا (Run) قرار گرفته است.

به منظور درک بهتر به ماکرویی که در ادامه آورده شده است دقت کنید:

Sub Macro()
MsgBox ("This application is started!")
Application.Wait "14:00:00"
MsgBox ("Excecution resumed after 2PM")
End Sub

1

2

3

4

5

Sub Macro()

MsgBox ("This application is started!")

Application.Wait "14:00:00"

MsgBox ("Excecution resumed after 2PM")

End Sub

با اجرای ماکروی فوق، ادامه اجرای ماکرو به ساعت 14 بعدازظهر موکول خواهد شد.

به ماکروی دیگری دقت کنید:

Sub Macro()
MsgBox ("This application is started!")
Application.Wait (Now + TimeValue("0:00:10"))
MsgBox ("Excecution resumed after 10 Seconds")
End Sub

1

2

3

4

5

Sub Macro()

MsgBox ("This application is started!")

Application.Wait (Now + TimeValue("0:00:10"))

MsgBox ("Excecution resumed after 10 Seconds")

End Sub

با اجرای ماکروی فوق، عبارت Excecution resumed after … بعد از گذشت 10 ثانیه از زمان فعلی (Now) اجرایی خواهد شد.

کاربرد Application.Ontime در ماکرونویسی اکسل

بطور ساده و خلاصه از دستور Application.Ontime به منظور اجرای یک ماکرو در زمان مشخص مورد استفاده قرار میگیرد.

به منظور درک بهتر به ماکروهایی که در ادامه آورده شده است دقت نمایید:

اجرای ماکروی “Masoudhosseini” هم اکنون توسط OnTime Method و Now Function

Sub excellearn()
Application.OnTime Now(),"Masoudhosseini"
End Sub

1

2

3

Sub excellearn()

Application.OnTime Now(),"Masoudhosseini"

End Sub

اجرای ماکروی “Masoudhosseini” در ساعت 10 صبح توسط OnTime Method و TimeValue Function

Sub excellearn()
Application.OnTime TimeValue("10:00:00"), "Masoudhosseini"
End Sub

1

2

3

Sub excellearn()

Application.OnTime TimeValue("10:00:00"), "Masoudhosseini"

End Sub

اجرای ماکروی “Masoudhosseini” بعد از سپری شدن 15 ثانیه از زمان اجرای ماکروی زیر توسط OnTime Method

Sub excellearn()
Application.OnTime Now + TimeValue("00:00:10"), "Masoudhosseini"
End Sub

1

2

3

Sub excellearn()

Application.OnTime Now + TimeValue("00:00:10"), "Masoudhosseini"

End Sub

همانطور که در ماکروهای فوق مورد اشاره قرار گرفت، دستور Wait وقفه ای در اجرای ماکرو ایجاد و دستور Ontime ماکرویی را در راس زمانی اجرایی خواهد کرد.

در پایان امیدواریم پست آموزشی تفاوت دستورات Wait و Ontime در ماکرونویسی اکسل مورد توجه و رضایت شما عزیزان قرار گرفته باشد لذا در صورت وجود هرگونه انتقاد و پیشنهاد می توانید آن را در قسمت نظرات برای ما ارسال نمایید.