alaamun قام بنشر نوفمبر 6, 2008 قام بنشر نوفمبر 6, 2008 السلام عليكم انا اعرف كود تجميع الصف sheet1.Rows("2:16") . group لكن ما لا استطيع عمله هو كيف يمكن تجميع صفوف ورقة عمل كاملة بحيث يتم تجميع كل 15 صف نترك صف ثم نقوم بتجميع 15 بعدها .. و ارجو التعديل على المرفق من يستطيع المساعدة و شكرا لكم a.rar
alaamun قام بنشر نوفمبر 7, 2008 الكاتب قام بنشر نوفمبر 7, 2008 هل المطلوب صعب ؟؟؟؟؟ اتمنى ان اجد من يعرف الكود
omar elhosseini قام بنشر نوفمبر 7, 2008 قام بنشر نوفمبر 7, 2008 (معدل) عليكم السلام ورحمة الله وبركاتة الاخ 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 قام بنشر نوفمبر 7, 2008 الكاتب قام بنشر نوفمبر 7, 2008 عزيزي ابو تامر هذا هو المطلوب بالضبط ... شكرا جزيلا لك و اطال الله في عمرك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.