كيف يمكن عمل تجميع للصفوف بواسطة الكود

[alaamun]

السلام عليكم

انا اعرف كود تجميع الصف

sheet1.Rows("2:16") . group

لكن ما لا استطيع عمله هو كيف يمكن تجميع صفوف ورقة عمل كاملة بحيث يتم تجميع كل 15 صف نترك صف ثم نقوم بتجميع 15 بعدها .. و ارجو التعديل على المرفق من يستطيع المساعدة و شكرا لكم

a.rar

[alaamun]

هل المطلوب صعب ؟؟؟؟؟ اتمنى ان اجد من يعرف الكود

[omar elhosseini]

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

الاخ alaamun

رغم انى لم افهم الغاية من المطلوب يمكنك استخدام الكود التالى

وايضا المرفق به مثال

Sub Test_1()
'/==================================================
'     عدد صفوف كل مجموعة
MyStep = 15
'/==================================================
'    رقم آخر صف لعمل المجاميع
Maximum_Row = 1000
'/==================================================
With Sheets("MySheet")
    For MyRow = 1 To Maximum_Row Step MyStep
        .Rows(MyRow & ":" & MyRow + MyStep - 1).Group
        MyRow = MyRow + 1
    Next
End With
End Sub

Test_1.rar

ارجو الاطلاع على التعليمات ذات اللون الاحمر التالية لهذه السطر

تم تعديل نوفمبر 7, 2008 بواسطه أبو تامر

[alaamun]

عزيزي ابو تامر

هذا هو المطلوب بالضبط ... شكرا جزيلا لك و اطال الله في عمرك