seddiki_adz قام بنشر يونيو 16, 2021 قام بنشر يونيو 16, 2021 النتيجة المتوقعة بعد كل لجنة تصحيح اضافة سطر فارغ يوضع فيه المجموع كما في الملف التالي CLASSEUR11.xlsFetching info...
حسين مامون قام بنشر يونيو 16, 2021 قام بنشر يونيو 16, 2021 جرب المرفق 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.xlsmFetching info... 1
seddiki_adz قام بنشر يونيو 16, 2021 الكاتب قام بنشر يونيو 16, 2021 لاحظ اخي انه يتقوف عند اللجنة 9252 اي عندالسطر 2548 ثاني هل يمكن ان نكتب اللجنة في نفس سطر المجموع؟
تمت الإجابة حسين مامون قام بنشر يونيو 16, 2021 تمت الإجابة قام بنشر يونيو 16, 2021 تفضل بالنسبة لطلبك الثاني لم افهم ما تقصد بكتابة اللجنة في نفس سطر المجموع يمكنك رفع نمودج متوقع لما تريد CLASSEUR11.xlsmFetching info... 1 1
seddiki_adz قام بنشر يونيو 16, 2021 الكاتب قام بنشر يونيو 16, 2021 شكرا اخي كثيرا لقصد ان لن نضع المجموع 180 ة تكتب قيل انه مجموع اللجنة 9009 حتى اعرف ان اللجنة 9009 مجموعها هو 180
seddiki_adz قام بنشر يونيو 17, 2021 الكاتب قام بنشر يونيو 17, 2021 برورك فيك اخي النتيجة المتزقعة CLASSEUR11 (4).xlsmFetching info...
SELMY قام بنشر أكتوبر 16, 2021 قام بنشر أكتوبر 16, 2021 السلام عليكم موضوع جميل . على فرض انا عايز اوزع اللجان حسبب العدد من اعلى يعنى يكون كل عشر صفوف يمثلو لجنه ويتم اضافة نفس المجموع والبيانات مع تعديل رقم اللجنه بحيث تكون للجنه واحد لجنه 2 وهكذا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.