اجرای ماکرو در مقاطع زمانی

[nazarloo]

با سلام آیا امکان اجرای ماکرو مثلا هر ده ثانیه وجود دارد؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Nima]

با استفاده از کد زیر:

Private Sub Workbook_Open()
  Application.OnTime Now + TimeValue("00:10:00"), "MyMacro"
End Sub 

[nazarloo]

آقا نیما ممنونم.کاملا کاربردی بود

[Amin_D]

با استفاده از کد زیر:

Private Sub Workbook_Open()
  Application.OnTime Now + TimeValue("00:10:00"), "MyMacro"
End Sub 

با سلام
میبخشد این کد رو بایستی تو ماژول بزایم تا جوا ب بده؟

[Nima]

دوست عزیز یک فایل اکسل جدید باز کنید
به قسمت ویژوال برید و با کلیک راست روی ،thisworkbook از قسمت VBA project و انتخاب view code کد زیر رو وارد کنید:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=TimeValue("00:00:10"), Procedure:="MyMacro", Schedule:=False

End Sub

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "MyMacro"

End Sub 

خالا یک module جدید ایجاد کن و کد ماکرو زیر رو وارد کن :

Sub MyMacro()MsgBox "hello, see you in 10 seconds :)"
Application.OnTime Now + TimeValue("00:00:10"), "MyMacro"
End Sub 

با اینکار هر 10 ثانیه ماکرو اجرا میشه و یک مسیج باکس نمایش داده میشه.

[naser1357]

در خصوص كد بالا توضيح مي دهيد؟