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

موضوع: ماکرو و تکرار آن به دفعات دلخواه

  1. #1


    آخرین بازدید
    2018/01/06
    تاریخ عضویت
    May 2012
    نوشته ها
    18
    امتیاز
    7
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    Depressed ماکرو و تکرار آن به دفعات دلخواه

    خدمت دوستان عزیز و محترم با عرض سلام و خسته نباشید
    یه سئوال داشتم . یه ماکرو نوشتم که میخوام به دفعات ، اون رو تکرار کنم اما بشرط اینکه تعداد دفعات تکرار رو بتونم تغییر بدم یعنی اینکه این ماکرو شاید یه بار با زدن دکمه رادیویی 10 بار بخواد تکرار بشه شاید هم n بار میخواستم دوستان راهنمایی بفرمایند . با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: ماکرو و تکرار آن به دفعات دلخواه

    با سلام خدمت دوست عزیز
    شما میتونید یک روال Sub بنویسید و با استفاده از حلقه For و فرمان Call این کار رو انجام بدین

    کد PHP:
    sub name()
    dim j as byte
    dim i 
    as byte
    =inputbox("please enter number of runs")
    for 
    1 to i
    call 
    #,argument
    next j
    end sub 
    در فرمان Call شما نام فرآیندی که باید اجرا بشه رو در قسمت # وارد می کنید و در صورت داشتن آرگومان با قرار دادن یک کاما آنها رو وارد می کنید
    امیدوارم کمک کرده باشم

    برای فراخوانی یک فرآیند علاوه بر فرمان Call از فرمان Run هم می توان استفاده کرد که انعطاف پذیری بیشتری داره، به عنوان مثال می تونید نام روال هایی رو که میخواین در شرایط مختلف اجرا بشه رو به یک متغیر از نوع متن بدین و سپس با قرار دادن این متغیر جلوی Run در هر بار بسته به شرایطی که مشخص کردین یک رول اجرا بشه.

    همچنین در صورتیکه این روال یا تابع در ماژول همین روال قرار داشته باشه با ذکر نام تابع یا روالی که مقصودتون هست می تونید اجراش کنید.

  4. #3


    آخرین بازدید
    2018/01/06
    تاریخ عضویت
    May 2012
    نوشته ها
    18
    امتیاز
    7
    سپاس
    0
    سپاس شده
    1 در 1 پست
    تعیین سطح نشده است

    RE: ماکرو و تکرار آن به دفعات دلخواه

    ممنون از راهنمایی شما دوست عزیز[hr]
    دوست عزیز و گرامی من استفاده از ماکرو زیر هم تونستم مشکلم رو حل کنم گفتم راه حل دوم رو بزارم تا دوستان بتونن استفاده کنن

    Sub MACRO2()
    '
    ' Macro2 MACRO
    '

    '

    Application.ScreenUpdating = False

    Do Until IsEmpty(ActiveCell)
    Range("A2").Select
    Range("A2:K2").Select
    Selection.cut
    Sheets("Sheet2").Select
    Range("A2").Select
    Selection.Insert Shift:=xlDown
    ActiveCell.Select
    Sheets("Sheet1").Select
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Offset(0, 1).Range("A1").Select

    Loop

    End Sub



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

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

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

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

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

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

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

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