پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

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

  1. #1


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September_2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    151
    امتیاز
    36
    سپاس
    55
    سپاس شده
    31 در 22 پست

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

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

  2.  

  3. #2


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

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

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

    مانند کد زیر:


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

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


    با تشکر

  4. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September_2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    151
    امتیاز
    36
    سپاس
    55
    سپاس شده
    31 در 22 پست

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

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

    مانند کد زیر:


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

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


    با تشکر
    ممنون

  5. #4


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September_2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    151
    امتیاز
    36
    سپاس
    55
    سپاس شده
    31 در 22 پست

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

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

    مانند کد زیر:


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

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


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

  6. #5


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

    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)



  7. #6


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September_2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    151
    امتیاز
    36
    سپاس
    55
    سپاس شده
    31 در 22 پست

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

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

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

  8. #7


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

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

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

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

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


  9. #8


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    September_2011
    محل سکونت
    استان فارس - فراشبند
    نوشته ها
    151
    امتیاز
    36
    سپاس
    55
    سپاس شده
    31 در 22 پست

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

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


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

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

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

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

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

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

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