اضافة صف فاصل بين عدة صفوف تحوي نفس القيمة

[seddiki_adz]

النتيجة المتوقعة بعد كل لجنة تصحيح اضافة سطر فارغ يوضع فيه المجموع كما في الملف التالي 

CLASSEUR11.xls

[حسين مامون]

جرب المرفق

Option Explicit

Sub test()
Dim lr
Dim x
Dim n, tot
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 2).End(xlUp).Row
For x = 2 To lr
tot = tot + Val(Cells(x, "f"))
If Val(Cells(x, 2).Offset(1)) > Val(Cells(x, 2)) Then
    Cells(x, 1).Offset(1).Resize(, 6).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   Cells(x, "f").Offset(1).Value = tot
   Cells(x, "E").Offset(1).Value = "المجموع"

    x = x + 1
    tot = 0
End If
Next x
Application.ScreenUpdating = True
End Sub

 

CLASSEUR11.xlsm

[seddiki_adz]

لاحظ اخي انه يتقوف عند اللجنة 9252 اي عندالسطر 2548

ثاني هل يمكن ان نكتب اللجنة في نفس سطر المجموع؟

[حسين مامون]

تفضل

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

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

CLASSEUR11.xlsm

[seddiki_adz]

شكرا اخي كثيرا 

لقصد ان لن نضع المجموع 180 ة تكتب قيل انه مجموع اللجنة 9009 حتى اعرف ان اللجنة 9009 مجموعها هو 180 

 

[حسين مامون]

تفضل

CLASSEUR11.xlsm

[seddiki_adz]

برورك فيك اخي

النتيجة المتزقعة

CLASSEUR11 (4).xlsm

[SELMY]

السلام عليكم

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