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

[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]

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