توزيع الطلاب على الفصول

[محمد عبد القادر]

الأخوة الكرام بارك الله فى علمكم 

برجاء المساعدة فى توزيع الطلاب على الفصول وفقاً للمجموع 

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

Book1.rar

[محمد عبد القادر]

الأخوة الكرام بارك الله فى علمكم 

برجاء المساعدة فى توزيع الطلاب على الفصول وفقاً للمجموع 

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

Book1.rar

[احمد عبد الناصر]

السلام عليكم

 

جرب هذه 

Dim C As Integer
Dim REC As Integer
Dim EN

Sub Dahmour()
LR = Range("a" & Rows.Count).End(xlUp).Row
EN = LR
Range("a2:f" & LR).Sort key1:=Range("c2")
LS = Sheets.Count
For inx = 1 To WorksheetFunction.RoundUp((LR - 1) / (LS - 1), 0)
If REC Mod 2 = 0 Or REC = 0 Then
R
Else
RR
End If
Next
Range("a2:f" & LR).Sort key1:=Range("a2")
C = 0
REC = 0
EN = 0
End Sub

Sub R()
REC = REC + 1
LS = Sheets.Count
For I = 2 To LS
Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Sheets(1).Cells(C + 2, 1)
Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row, 2) = Sheets(1).Cells(C + 2, 2)
Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row, 3) = Sheets(1).Cells(C + 2, 3)
C = C + 1
If C + 1 = EN Then Exit For
Next

End Sub

Sub RR()
REC = REC + 1
LS = Sheets.Count
For I = LS To 2 Step -1
Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Sheets(1).Cells(C + 2, 1)
Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row, 2) = Sheets(1).Cells(C + 2, 2)
Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row, 3) = Sheets(1).Cells(C + 2, 3)
C = C + 1
If C + 1 = EN Then Exit For
Next

End Sub

تحياتي

-++++توزيع الطلاب.rar

[محمد عبد القادر]

السلام عليكم أستاذ احمد 

لا أجد من كلمات الشكر ما يكافئك 

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

[احمد عبد الناصر]

السلام عليكم

 

شاكر لك دعائك , و جزاكم الله مثله .

 

 

تحياتي

[محمد يوسف محمد1]

فكرة جميلة يا حاج محمد

والشكر موصول للأخ احمد عبد الناصر ولكل اسرة المنتدى

[بن علية حاجي]

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

 

إخواني الكرام والله لم أكن أعرف أن التوزيع بهذه الطريقة ممكن باستعمال الأكواد (وأكواد بسيطة جدا) ولكن رائعة جدا جدا، أشكر لك أخي الكريم أحمد عبد الناصر هذا الإبداع وزادك الله من فيض علمه ونفع بك وجازاك الله عنا كل خير الدنيا والآخرة، وأشكر أخي عبد القادر على هذا الموضوع الذي آثار كل الإبداع...

 

 

أخوكم بن علية

تم تعديل مايو 15, 2013 بواسطه بن علية حاجي

[احمد عبد الناصر]

السلام عليكم 

 

استاذ بن علية , اسعد الله اوقاتك 

 

اسعدني مرورك الكريم , زادك الله من فيض علمه ونفع بك وجازاك الله عنا كل خير الدنيا والآخرة

 

تقبل تحياتي 

[أبو محمد عباس]

 

الاستاذ والاخ الحبيب احمد عبد الناصر جزاك الله خيرا

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

زادك الله علما ونفع بعلمك وفقك الله

تقبل فائق احترامي وتقديري

[احمد عبد الناصر]

شاكر لك مرورك الكريم استاذ عباس و تجربة الملف , تقبل تحياتي

[issam84]

ألف شكر يا غالي