با سلام آیا امکان اجرای ماکرو مثلا هر ده ثانیه وجود دارد؟
-
-
با استفاده از کد زیر:
کد PHP:Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:10:00"), "MyMacro"
End Sub
[CENTER][COLOR=#ff0000]************************************[/COLOR]
No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
[COLOR=#ff0000]************************************[/COLOR]
[/CENTER] -
آقا نیما ممنونم.کاملا کاربردی بودکامنت
-
دوست عزیز یک فایل اکسل جدید باز کنید
به قسمت ویژوال برید و با کلیک راست روی ،thisworkbook از قسمت VBA project و انتخاب view code کد زیر رو وارد کنید:
کد PHP:
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 جدید ایجاد کن و کد ماکرو زیر رو وارد کن :
کد PHP:
Sub MyMacro()MsgBox "hello, see you in 10 seconds :)"
Application.OnTime Now + TimeValue("00:00:10"), "MyMacro"
End Sub
با اینکار هر 10 ثانیه ماکرو اجرا میشه و یک مسیج باکس نمایش داده میشه.Last edited by Nima; 2013/11/11, 06:15.[CENTER][COLOR=#ff0000]************************************[/COLOR]
No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
[COLOR=#ff0000]************************************[/COLOR]
[/CENTER]کامنت
-
در خصوص كد بالا توضيح مي دهيد؟کامنت
کامنت