ايجاد تاخير زماني در اجراي ماكرو

**m_d6712** · 2011/09/15, 21:02

RE: ايجاد تاخير زماني در اجراي ماكرو

سلام دوست عزیز من!
برای ایجاد تاخیر می توانی از فرمان Sleep استفاده کنی

مانند کد زیر:

Sub SleepVBA()
Do Until i = 5
i = i + 1
Range("A1") = i
Sleep 1000
Loop
End Sub

البته توجه کن که زمان به میلی ثانیه است!!!!!

با تشکر

**alisabet** · 2011/09/17, 09:44

RE: ايجاد تاخير زماني در اجراي ماكرو

نوشته اصلی توسط m_d6712

سلام دوست عزیز من!
برای ایجاد تاخیر می توانی از فرمان Sleep استفاده کنی

مانند کد زیر:

Sub SleepVBA()
Do Until i = 5
i = i + 1
Range("A1") = i
Sleep 1000
Loop
End Sub

البته توجه کن که زمان به میلی ثانیه است!!!!!

با تشکر

ممنون

**alisabet** · 2011/09/19, 11:16

RE: ايجاد تاخير زماني در اجراي ماكرو

نوشته اصلی توسط m_d6712

سلام دوست عزیز من!
برای ایجاد تاخیر می توانی از فرمان Sleep استفاده کنی

مانند کد زیر:

Sub SleepVBA()
Do Until i = 5
i = i + 1
Range("A1") = i
Sleep 1000
Loop
End Sub

البته توجه کن که زمان به میلی ثانیه است!!!!!

با تشکر

[از شما تشكر ميكنم اما دستور بالا جواب نداد اگه براي شما جواب داده لطف كنيد فايلشو ارسال كنيد

**m_d6712** · 2011/09/19, 20:03

RE: ايجاد تاخير زماني در اجراي ماكرو

نوشته اصلی توسط alisabet

نوشته اصلی توسط m_d6712

سلام دوست عزیز من!
برای ایجاد تاخیر می توانی از فرمان Sleep استفاده کنی

مانند کد زیر:

Sub SleepVBA()
Do Until i = 5
i = i + 1
Range("A1") = i
Sleep 1000
Loop
End Sub

البته توجه کن که زمان به میلی ثانیه است!!!!!

با تشکر

[از شما تشكر ميكنم اما دستور بالا جواب نداد اگه براي شما جواب داده لطف كنيد فايلشو ارسال كنيد

سلام خسته نباشید! حق باشماست من یادم رفت کتابخانه رو برای شما اضافه کنم! این کد رو ببینید! مشابه کد قبلی است فقط یک خط یک کتابخانه از نوع kernal بهش اضافه شده!
این یکی کار میکنه

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub a()
For i = 5 To 10
Range("A1") = i
Sleep 1000
Next
End Sub

روش دیگری نیز برای متوقف کردن وجود دارد:

با استفاده از تابع Wait مانند کد زیر:

Application.Wait DateAdd("s", 10, Now)

**alisabet** · 2011/09/20, 12:42

RE: ايجاد تاخير زماني در اجراي ماكرو

سلام
روش دوم ( با استفاده ازwait) جواب داد ولي روش اولي يه خطا ميده كه تصويرش رو در لينك زير ميذارم ببين مشكلش چيه

http://parsaspace.com/files/3702674884/err.jpg.html

**m_d6712** · 2011/09/20, 16:41

RE: ايجاد تاخير زماني در اجراي ماكرو

نوشته اصلی توسط alisabet

سلام
روش دوم ( با استفاده ازwait) جواب داد ولي روش اولي يه خطا ميده كه تصويرش رو در لينك زير ميذارم ببين مشكلش چيه

http://parsaspace.com/files/3702674884/err.jpg.html

دو خط اضافی دارید شما در کدتون!

Sub Macro1() اول و End Sub آخر را پاک کنید! درست می شود.