مطلوب طريقة لتشغيل الماكرو عدة مرات

[Taher Shawki]

السلام عليكم و رحمة الله و بركاته ..لو سمحتم عاوز طريقة اشغل بيها ماكرو اكثر من مرة بحيث اقوم بدخال عدد المرات التي سوف يقوم بعملها 

و ارفقت لكم ملف به كل المحتويات و المطلوب تنفيذه ..و لكم جزيل الشكر 

المصنف4.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

هناك عدة طرق منها اختيار خانة معينة  مثال  لنفترض ان اسم الماكرو هو   (Macro3) سيتم اعادة التشغيل للماكرو بشرط القيمة الموجودة في الخلية A1

Sub test1()
   Dim i As Long
   For i = 1 To Range("A1").Value
   Macro3
   Next i
End Sub

كما يمكنك ادخال عدد التكرار يدويا بهده الطريقة

Sub test2()
Dim i As Long
Dim N As Variant
    N = InputBox("اختر عدد مرات التكرار")
    If Not IsNumeric(N) Then Exit Sub
    For i = 1 To N
    Macro3
    Next i
End Sub

اليك ملف للتجربة

test_macro.xlsm

[Taher Shawki]

شكرا جزيلا على ردك اخي