نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

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

  1. #1


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

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

    سلام
    دوستان عزيز:
    1- آيا براي ايجاد تاخير زماني در اجراي فرامين ماكرو دستور خاصي وجود داره ؟
    مثلاٌ من ميخواهم اكسل در هنگام اجراي كدهاي يك ماكرو وقتي دستور يك خط را اجرا كرد خط بعدي را با يك ثانبه تاخير انجام بده( يا كسري از ثانيه) مثلاً منظورم اينكه كه يك ماكرو اعداد 1 تا 10 رو بصورت متوالي در سل a1 درج كنه منتهي بين هركدام از اعداد يه مقدار تاخير وجود داشته باشه تا كاربر بتونه اونا رو ببينه
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2022/06/28
    تاریخ عضویت
    May 2010
    محل سکونت
    بلژیک
    نوشته ها
    174
    امتیاز
    108
    سپاس
    0
    سپاس شده
    119 در 53 پست
    تعیین سطح نشده است

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

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

    مانند کد زیر:


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

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


    با تشکر

  5. #3


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

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

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

    مانند کد زیر:


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

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


    با تشکر
    ممنون

  6. #4


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

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

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

    مانند کد زیر:


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

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


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

  7. #5


    آخرین بازدید
    2022/06/28
    تاریخ عضویت
    May 2010
    محل سکونت
    بلژیک
    نوشته ها
    174
    امتیاز
    108
    سپاس
    0
    سپاس شده
    119 در 53 پست
    تعیین سطح نشده است

    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)



  8. #6


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

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

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

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

  9. #7


    آخرین بازدید
    2022/06/28
    تاریخ عضویت
    May 2010
    محل سکونت
    بلژیک
    نوشته ها
    174
    امتیاز
    108
    سپاس
    0
    سپاس شده
    119 در 53 پست
    تعیین سطح نشده است

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

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

    http://parsaspace.com/files/3702674884/err.jpg.html
    دو خط اضافی دارید شما در کدتون!

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


  10. #8


    آخرین بازدید
    2022/08/30
    تاریخ عضویت
    September 2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    159
    امتیاز
    38
    سپاس
    55
    سپاس شده
    33 در 24 پست
    سطح اکسل
    45.00 %

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

    عالي بود - خيلي ممنون


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد