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

[kazem3570]

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

[s.cheraghi]

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

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

sub name()
dim j as byte
dim i as byte
i =inputbox("please enter number of runs")
for j = 1 to i
call #,argument
next j
end sub 

در فرمان Call شما نام فرآیندی که باید اجرا بشه رو در قسمت # وارد می کنید و در صورت داشتن آرگومان با قرار دادن یک کاما آنها رو وارد می کنید
امیدوارم کمک کرده باشم

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

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

[kazem3570]

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