توزيع الطلاب على 4 فصول حسب المجموع

السلام عليكم

اخي العزيز

1) اعمل ترتيب تصاعدي لحقل الصف

2)الذي له دور ثان ضع مجموعه صفر عشان ياتي اخر المجموع

اعمل ترتيب تنازلي لحقل المجموع

3) ماذا تقصد بالفصل تقصد الشعبة ؟؟؟هذة انت تضعها ؟؟؟؟

وبالله التوفيق

تفضل ...لعل هذا هو المطلوب

توزيع الطلاب حسب المجموع.rar

السلام عليكم

الاخ اواب

كيف ضفت راس جديد (راس stsff ) الى التقرير

وجزاك الله خير

جزاكم الله خيرا

أخى أواب

حقل الفصل لا يزال فارغا

أريد وضع رقم الفصل فى الحقل المخصص للجدول

أمام كل طالب

فيكون الطالب الأول مثلا

فى الصف الأول الفصل الثانى يعنى 1-2

يكون الطالب الثانى مثلا

فى الصف الأول الفصل الثالث يعنى 1-3

ليس المطلوب عمل ذلك فى تقرير

بل كتابة ذلك مباشرة فى الجدول

ننتظر الكود

جزاكم الله خيرا

55 مشاهدة للموضوع

70 مشاهدة

يعنى أنسى هذا الموضوع

لقد سبق و نفذته بالإكسل

و كنت آمل تنفيذه بالأكسيس

شكرا لكم

معذرة أخي فقد انشغلت ولم أتابع الموضوع

أرفق ما فعلته بالأكسل ليتم عمله لك بالأكسس لأن المطلوب غير واضح!!!!!!!!!

تفضل

هذا كود توزيع الفصول بالإكسيل

Sub tawz()
Application.ScreenUpdating = False
Dim i As Integer, mm As Integer
'عدد الفصول بشيت data
 mm = Sheets("الرئيسة").Range("f10").Value
'ماكرو للفرز حسب حول إلى مدرسة ثم حسب المجموع لحصر المحولين متتاليين
'فائدة ذلك عدم زيادة الفصل 1 عن باقى الفصول كثيرا لأن كل خروج من الحلقة يتبعه البدء ب 1
Call sort5
Sheets("all").Activate
'تنظيف المكان قبل العمل
Range("ab5:ab1000").ClearContents
'تحديد أو خلية للفصل
Range("ab5").Activate
'اعمل مادام خانة الاسم ليست فارغة
Dim LR2 As Long
LR2 = Sheets("all").Range("b" & Rows.Count).End(xlUp).Row
Dim ww As Long
Dim q As Integer
For ww = 1 To Int(LR2 / mm)
    For i = 1 To mm
        If Range("ab" & i + 4 + q).Offset(0, -5).Value = "" _
        And Range("b" & i + 4 + q).Value <> "" Then
        Cells(i + 4 + q, 28).Value = i
        End If
    Next i
q = q + mm
Next ww
'أعد الترتيب الأبجدى
Call abc
Application.ScreenUpdating = True
Application.CutCopyMode = False
Sheets("class").Select
Range("a5").Select
' رأس و تذييل الصفحة
 With Sheets("class").PageSetup
                    '.LeftHeader = "&""-,غامق""&12كشف رقم  : &P"
                     .LeftFooter = "&""-,غامق""&16مدير المدرسة" & " / " & Sheets(1).Range("f7")
                     .RightFooter = "&""-,غامق""&16وكيل ش ط" & " / " & Sheets(1).Range("f8")
                     '.RightFooter = "&""-,غامق""&16اللجنة :"
End With
End Sub

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

تفضل أخي الكريم أحد الحلول المقترحة ...

وسلامي لك وللجميع

EyClasses.rar

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

جزاك الله خيرا

على اهتمامك

والحل موفق

بقى شىء واحد

هو تساوى عدد الطلب بكل فصل

إن شاء الله أدرس كودك الرائع

و أرد عليك

شكرا جزيلا

و كود رائع

تعلمت منه الكثير

فضلا عن حل المشكلة

جزاك الله خيرا

أنت إياد باشا

السلام عليكم

الاخ اياد بيك وفعلا بيك وتستحق لقب بيك الاكسس

ارجو ان ترشدني او تساعدني في مسك راس خيط

البرمجة ...

هل لديك اي مستند وورد او مستند بي دي اف لتعلم

تواتي او تاتا (مصطلحات لتعلم اول خطوات مشي البيبي)

تواتي او تاتا البرمجة

ولك شكري وتقديري وتحياتي

ولاننسى بقية المشرفين من الاخت زهرة والاخ ابو يوسف والاخ مالك من شكرنا وتقديرنا لهم

والى الامام اخونا بيك الاكسس

والله يوفقك دنيا وأخرة

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

شكراً للأخوة أبو لميس وسلامنا لكم ولكنني لا أستحق منهم هذا الكلام ... على كل حال شكراً مرة أخرى ولا تنسونا من الدعاء بالفرج

وسلامي لكم وللجميع

أخانا إياد

فرج الله همك

و جمع شملك

ويسر أمرك